Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
dat is heel simpel:
Code:ListBox1.SelectedItem.ToString()
Dan krijg je de tekst die het item heeft in je listbox.
gewoon je event toevoegen
Code:Private Sub ListBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDoubleClick End Sub
Private Sub ListBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDoubleClick
If ListBox1.SelectedIndex <> -1 Then
MsgBox("Item gedubbelklikt")
End If
End Sub
Die heb ik 6 februari ook al gegeven ..
maar goed , hier is ie :
Code:Private Sub ListBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDoubleClick If ListBox1.SelectedIndex <> -1 Then MsgBox("Item gedubbelklikt") End If End Sub
Private Sub ListBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDoubleClick
Dim p As Point = Cursor.Position
p = ListBox1.PointToClient(p)
If (ListBox1.IndexFromPoint(p) <> -1) Then
MsgBox("Item gedubbelklikt")
End If
End Sub
Code:Private Sub ListBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDoubleClick Dim p As Point = Cursor.Position p = ListBox1.PointToClient(p) If (ListBox1.IndexFromPoint(p) <> -1) Then MsgBox("Item gedubbelklikt") End If End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.