リストボックス項目の順番を入れ替える方法

質問

リストボックス内に10個ほどの項目があります。
ある項目を選択し、ボタンAをクリックすると、その項目が1つ上に移動し、
ボタンBをクリックすると、その項目が1つ下に移動するようにしたいのです。

ウグイス
ホトトギス
フラミンゴ
↓
フラミンゴを選択し、ボタンAをクリックします。
↓
ウグイス
フラミンゴ
ホトトギス

使用ツールはVB.NET2003です。
テキストファイルから読み込んだデータをリストボックスに入れ、順序を入れ替えてから、上書き保存しようとしております。

何か良いアイディアありましたら、是非教えてください。
どうぞよろしくお願いします。

回答No.1

BLUEPIXY · ベストアンサー

こんな感じかと思います
----------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'選択項目を下げる
Dim pos As Integer, repPos As Integer
Dim wk As String
pos = ListBox1.SelectedIndex()
If pos <> -1 And pos < ListBox1.Items.Count - 1 Then
repPos = pos + 1
wk = ListBox1.Items.Item(repPos)
ListBox1.Items.Item(repPos) = ListBox1.Items.Item(pos)
ListBox1.Items.Item(pos) = wk
ListBox1.SelectedIndex = repPos
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'選択項目を上げる
Dim pos As Integer, repPos As Integer
Dim wk As String
pos = ListBox1.SelectedIndex()
If pos > 0 Then
repPos = pos - 1
wk = ListBox1.Items.Item(repPos)
ListBox1.Items.Item(repPos) = ListBox1.Items.Item(pos)
ListBox1.Items.Item(pos) = wk
ListBox1.SelectedIndex = repPos
End If
End Sub

お礼

お早いお答えありがとうございます。
早速試したところ、完全にイメージした通りの動作をしました。
この度は誠にありがとうございました。