Question

我有一个可以加载项目的列表框。

如何点击按钮突出显示下一个项目并将其粘贴到文本框中？

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

Answer 1

首先，向表单添加一个按钮控件，然后将事件处理程序方法连接到其Click事件。

接下来，你将不得不写一些代码 - 你不希望我写你，是吗？首先要知道ListBox中的所有项目都可以通过Items property访问。因此，您只需选择n + 1项，其中n是当前所选项目的索引。

我不确定你的意思是“把它复制到文本框”。 ListBox项目无法复制到文本框中。是否要将项目显示的文本复制到文本框？如果是这样，请调用单个项目的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

列表框转到下一个项目

2 个答案: