列表框和项目值 - Visual Basic 2010

问题描述：

我正在编写一个使用VISUAL BASIC 2010（它包装在Visual Studio 2010中）的小型应用程序。列表框和项目值 - Visual Basic 2010

我有一个列表框设置为由Access数据库填充。该数据库有两列：1）变量名称2）说明。

举个例子，以我的问题可以使用，这是我的数据样本：从家庭1

来到现在

变量名称说明 DOG1狗种，我有一个列表框，由Description列填充。这是我需要的。我想单击一个按钮，然后根据哪个项目被点击，在文本框中显示其相应的“描述”。这与我相信DisplayMember和ValueMember有关。我一次成功地为一件物品做这件事。我的问题是，如何使用循环来为可能在列表框中选择的几个项目执行相同的任务？

这是我的代码100％用于显示单击一次的项目。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
      TextBox1.Text = ListBox1.SelectedValue 
    End Sub

我认为下面的工作，但它不，我不太清楚为什么。另外，如果可能的话，我想将列表框1中选中的项目显示在另一个列表框中。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     Dim i As Integer 
     For i = 0 To Listbox1.SelectedItems.Count - 1 
      Listbox2.Items.Add(Listbox1.SelectedItems.Item(i)) 
     Next i

感谢这么多的：我以前用简单的列表框我自己居住，但现在，我与价值，并显示成员的工作，我似乎无法适应代码做到了这一点提前帮助！

答

我认为你需要 -

For i = 0 To ListBox1.SelectedValue - 1  
      TextBox1.Text &= ListBox1.SelectedValue(i) 
     Next i

参见 “&”。

还没有机会仔细检查一下。

答

这应该是你需要的。尝试一下。不要忘记将Listbox的SelectionMode属性更改为Multisimple。

TextBox1.Clear() 
Listbox2.Items.Clear() 
For x As Integer = 0 To ListBox1.SelectedItems.Count - 1 
    TextBox1.Text += ListBox1.SelectedItems(x).ToString + " " 
    ListBox2.Items.Add(ListBox1.SelectedItems(x).ToString) 
Next x

答

试试这个从Listbox1查看到Listbox2：

ListBox1.Items.Add("Dog, Cat, Fish, Bear, Bird, Goat") 

Dim myArr() As String = ListBox1.Items.OfType(Of String)().ToArray() 
ListBox2.DataSource = myArr

列表框和项目值 - Visual Basic 2010

相关推荐