Hallo leute
will das SelectedItem löschen mit entf taste
im mom mach ich das mit einen button
hab paar sachen versucht hat leider nicht geklappt
hoffe jemand kann mir das in meinen beispielcode einfügen
vielen dank
will das SelectedItem löschen mit entf taste
im mom mach ich das mit einen button
hab paar sachen versucht hat leider nicht geklappt
hoffe jemand kann mir das in meinen beispielcode einfügen
vielen dank
VB.NET-Quellcode
- Public Class Form1
- Private nIndex As Long
- Private Sub ListBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles ListBox1.KeyPress
- End Sub
- Private Sub Listbox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseMove
- Dim sTemp As String
- ' Button gedrückt und Eintrag ausgewählt?
- If e.Button > 0 And nIndex > -1 Then
- With ListBox1
- If nIndex <> .SelectedIndex Then
- ' vorhergehenden Eintrag zwischenspeichern
- sTemp = .Items(nIndex)
- ' vorhergehenden Eintrag durch aktuellen
- ' Eintrag ersetzen
- .Items(nIndex) = .Items(.SelectedIndex)
- ' aktuellen Eintrag durch vorgehenden
- ' Eintrag ersetzen
- .Items(.SelectedIndex) = sTemp
- ' Index des aktuellen Eintrags "merken"
- nIndex = .SelectedIndex
- End If
- End With
- End If
- End Sub
- Private Sub Listbox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Listbox1.MouseUp
- nIndex = -1
- End Sub
- Private Sub ListBox1_MouseDown(ByVal sender As System.Object, _
- ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
- If e.Button = Windows.Forms.MouseButtons.Right Then
- With ListBox1.Items.Add(InputBox("eintragen"))
- End With
- End If
- nIndex = ListBox1.SelectedIndex
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- ListBox1.Items.Remove(ListBox1.SelectedItem)
- End Sub
- End Class