列表框转到下一项答案

【问题标题】：Listbox going to next item列表框转到下一项
【发布时间】：2011-08-14 15:19:16
【问题描述】：

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

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

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

【问题讨论】：

标签： .net vb.net winforms listbox

【解决方案1】：

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

接下来，你必须编写一些代码——你不希望我会为你编写它为你，是吗？首先要知道ListBox 中的所有项目都可以通过Items property 访问。因此您可以简单地选择n + 1 项，其中n 是当前选定项的索引。

我不确定您所说的“将其复制到文本框”是什么意思。 ListBox 项目不能复制到文本框。是否要将项目显示的文本复制到文本框？如果是这样，请调用单个项目的ToString 方法，并使用Clipboard class 的适当方法将其添加到剪贴板。

【讨论】：

【解决方案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

【讨论】：

已编辑，SelectedIndex 可以为-1。