---
title: "listbox, select"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/74097-listbox-select"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "P"
published: "2003-04-14T18:41:25.000Z"
updated: "2003-04-15T09:08:42.000Z"
replies: 2
views: 246
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/74097-listbox-select"
---

# listbox, select

## #1 — P, 2003-04-14T18:41Z

Försöker få alla värden från en listbox när jag klickar på en knapp:

```
    Private Sub btnMove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMove.Click
        Dim i As Integer
        For i = 0 To lbColumn.SelectedItems.Count
            Label7.Text += lbColumn.SelectedItem(i).ToString() & Environment.NewLine
        Next
    End Sub
```

Binder datan när en annan comdobox uppdateras, som ändras då en annan uppdateras:

```
    Private Sub cbTable_SelectionChangeCommitted(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles cbTable.SelectionChangeCommitted
        ' Binding The databases to 
        Dim strConn2 As String = "Driver={MySQL};Database=" & cbDatabase.Text
        Dim strSql2 As String = "Describe " & cbTable.Text
        Dim objConn2 As New OdbcConnection(strConn2)
        Dim objCmd2 As New OdbcDataAdapter(strSql2, objConn2)

        Dim dt2 As New DataTable()
        objCmd2.Fill(dt2)
        lbColumn.DataSource = dt2
        lbColumn.DisplayMember = "Field"
        lbColumn.ValueMember = "Field"
    End Sub
```

Jag markerar några items och trycker på knappen. Det som skrivs ut i labln är du kolumner från datatabeln, 1 valt item = 1 column , 3 valda = 3 kolumner etc

Har suttit hela kvällen med det här...  x(

hela koden finns på p.latmask.com/test.txt

Permalänk: https://www.webforum.nu/p/74097

## #2 — niko, 2003-04-14T21:40Z

```
    Private Sub btnMove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMove.Click
        Dim drw As DataRowView
        Label7.Text = ""
        For Each drw In lbColumn.SelectedItems()
            Label7.Text += drw(0).ToString & Environment.NewLine
        Next
    End Sub
```

?

Permalänk: https://www.webforum.nu/p/1010940

## #3 — P, 2003-04-15T09:08Z

Funka fint!

Permalänk: https://www.webforum.nu/p/1011102

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/74097-listbox-select