2013-02-27 73 views
1

我正在編寫一個使用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 

感謝這麼多的:我以前用簡單的列表框我自己居住,但現在,我與價值,並顯示成員的工作,我似乎無法適應代碼做到了這一點提前幫助!

回答

0

我認爲你需要 -

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

參見 「&」。

還沒有機會仔細檢查一下。

0

這應該是你需要的。嘗試一下。不要忘記將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 
0

試試這個從Listbox1查看到Listbox2

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

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