列表框前往下一個項目

Question

我有一個列表框，我可以加載項目。

我怎樣才能點擊一個按鈕，它會突出顯示下一個項目並將其粘貼到文本框中？

Me.ListBox1.SelectedIndex = Me.ListBox1.SelectedIndex + 1 

Answer 1

首先，一個按鈕控件添加到您的表單，然後線了一個事件處理方法其Click事件。

接下來，你將不得不編寫一些代碼—你不希望我會寫它爲你，是嗎？首先了解ListBox中的所有項目均可通過Items property訪問。因此您可以簡單地選擇n + 1項目，其中n是當前選定項目的索引。

我不確定您的意思是「將其複製到文本框」。列表框項目不能複製到文本框。您是否要將顯示的項目文本複製到文本框？如果是這樣，請調用單個項目的ToString方法，並使用Clipboard class的適當方法將其添加到剪貼板。

Answer 2

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click 
    If ListBox1.SelectedIndex >= 0 AndAlso ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then 
    ListBox1.SelectedIndex += 1 
    End If 
End Sub 

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ListBox1.SelectedIndexChanged 
    If ListBox1.SelectedIndex >= 0 AndAlso ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then 
    TextBox1.Text = ListBox1.SelectedItem.ToString() 
    End If 
End Sub