Hej!

Hur läggar man in ID, namn i en listbox, och sedan hämtar ut bara ID från listboxen för att kunna uppdatera en post. så här läggar jag in namn i listboxen:

While reader.Read
                'hämtar förnamn och efternamn från databasen med readern och lägger till till personlistan.
                listbox1.Items.Add(reader.Item("namn"))
                     
     'Här vill jag ha lD-index????
            End While

Istället för att lägga till en sträng i ListBoxen så lägger du till ett objekt. D.v.s. en klass som innehåller id och namn etc.

Har ni något förslag (skript)?

Dim ID As Integer
While reader.Read
 'hämtar förnamn och efternamn från databasen med readern och lägger till till personlistan.
 ID = listbox1.Items.Add(reader.Item("namn"))
End While

<code>
Public Class example
Public id As Integer
Public value As String

Public Function ToString() As String
Return value
End Function
End Class

Dim ex As New example
ex.id = 10
ex.value = "Test"

listbox1.Items.Add(ex)
</code>
Hur du ska implementera detta med din kod får du själv komma på, men tillvägagångssättet visas.

Tack för hjälpen.

Jag har en annan fråga angående Listbox. Jag har en kod som jag skrev i VB6 förut, men nu jag vill uppgaradera VB-koden till VB.Net:

Dim strIN, i
For i = 0 ToListbox1.ListCount - 1
       If Listbox1.Selected(i) Then
           strIN = strIN & ", " & Listbox1.ItemData(i)
       End If
   Next

Imports System.Text


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sb As New StringBuilder
        For Each ex As example In ListBox1.SelectedItems
            sb.Append(", " & ex.id)
        Next
        MessageBox.Show(sb.ToString().Substring(2))
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        For i As Integer = 1 To 10

            Dim ex As New example
            ex.id = i
            ex.value = String.Format("Item {0}", i)

            ListBox1.Items.Add(ex)
        Next
    End Sub

    Public Class example
        Public id As Integer
        Public value As String



        Public Overrides Function ToString() As String
            Return value
        End Function
    End Class

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For i As Integer = 0 To ListBox1.Items.Count - 1
            ListBox1.SetSelected(i, True)
        Next
    End Sub
End Class

Tack så mycket...det funkar jättebra