2

VISUAL BASIC 2010 を使用して小さなアプリケーションを作成しています (Visual Studio 2010 にパッケージ化されています)。

Access データベースによって設定されるようにリスト ボックスを設定しています。データベースには 2 つの列があります。1) 変数名 2) 説明。

私の質問で使用される例として、ここに私のデータのサンプルがあります：

変数名 説明 DOG1 ファミリー 1 に由来する犬種

これで、[説明] 列が入力されたリスト ボックスができました。これが必要です。ボタンをクリックした後、クリックされた項目に応じて、対応する「説明」をテキストボックスに表示します。これは、DisplayMember と ValueMember に関連していると思います。一度に1つのアイテムに対してこれを行うことに成功しました。私の質問は、ループを使用して、リスト ボックスで選択されている可能性のある複数のアイテムに対して同じタスクを実行するにはどうすればよいですか?

これは、一度に1つずつクリックされたアイテムを表示するために100％機能する私のコードです。

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

以下はうまくいくと思っていましたが、うまくいかず、その理由もよくわかりません。

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.SelectedValue - 1    
           TextBox1.Text = ListBox1.SelectedValue(i)
        Next i
End sub

また、できればlistbox1で選択した項目を別のリストボックスに表示したいです。以前に自分で入力した単純なリストボックスでこれを行ったことがありますが、値と表示メンバーを使用しているため、コードを適応させることができないようです:

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

事前に助けてくれてありがとう！

4

3 に答える 3

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
于 2014-01-19T15:25:47.667 に答える
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
于 2014-12-03T01:36:21.393 に答える
0

私はあなたが必要だと思います -

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

「&」を参照してください。

まだ再確認する機会がありません。

于 2013-02-27T16:57:59.583 に答える