Listbox SelectedItem löschen mit entf taste

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Trade.

    Listbox SelectedItem löschen mit entf taste

    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

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private nIndex As Long
    4. Private Sub ListBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles ListBox1.KeyPress
    6. End Sub
    7. Private Sub Listbox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseMove
    8. Dim sTemp As String
    9. ' Button gedrückt und Eintrag ausgewählt?
    10. If e.Button > 0 And nIndex > -1 Then
    11. With ListBox1
    12. If nIndex <> .SelectedIndex Then
    13. ' vorhergehenden Eintrag zwischenspeichern
    14. sTemp = .Items(nIndex)
    15. ' vorhergehenden Eintrag durch aktuellen
    16. ' Eintrag ersetzen
    17. .Items(nIndex) = .Items(.SelectedIndex)
    18. ' aktuellen Eintrag durch vorgehenden
    19. ' Eintrag ersetzen
    20. .Items(.SelectedIndex) = sTemp
    21. ' Index des aktuellen Eintrags "merken"
    22. nIndex = .SelectedIndex
    23. End If
    24. End With
    25. End If
    26. End Sub
    27. Private Sub Listbox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Listbox1.MouseUp
    28. nIndex = -1
    29. End Sub
    31. Private Sub ListBox1_MouseDown(ByVal sender As System.Object, _
    32. ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
    33. If e.Button = Windows.Forms.MouseButtons.Right Then
    34. With ListBox1.Items.Add(InputBox("eintragen"))
    36. End With
    37. End If
    39. nIndex = ListBox1.SelectedIndex
    40. End Sub
    42. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    43. ListBox1.Items.Remove(ListBox1.SelectedItem)
    44. End Sub
    45. End Class

    KeyPreview der Form auf ​True stellen, im KeyDown-Event den KeyCode abfragen und bei "Entfernentaste" Code ausführen.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    tom2000 schrieb:

    KeyCode abfragen
    Setz einen Haltepunkt rein, klick dann auf e und drück Shift+F9.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    doch jetzt gehts , danke

    VB.NET-Quellcode

    1. Private Sub ListBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyDown
    2. If e.KeyCode = Keys.Delete AndAlso ListBox1.SelectedItem <> Nothing Then
    3. ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
    4. End If
    5. End Sub

    Der Hilfreich-Button ist nicht nur zur Deko da ;)
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

Facebook
Telefonspende