markierter eintrag aus listbox entfernen

  • VB6

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von roger_pautz.

    markierter eintrag aus listbox entfernen

    hallo zusammen, habe ein problem beim programieren. ich soll ein program erstellen, dass mehrere informationen in eine listbox aufnehmen soll. diese infos kann man auch in der listbox markieren. so weit bin ich schon gekommen. jedoch habe ich keine ahnung wie man etwas markiertes aus dieser listbox löschen soll. vielen dank für eure hilfe!

    der code bisher:

    Visual Basic-Quellcode

    1. Option Explicit
    2. Private Zustand As String
    3. Private Const MAXANZ = 5 'Anzahl der erlaubten Einträge
    4. Private Nummer As Long 'Deklaration eines Feldes mit maxanz Elementen
    5. Private Namen As String
    6. Private Postleitzahl As Long
    7. Private Nummerarray(1 To MAXANZ) As Integer
    8. Private Namenarray(1 To MAXANZ) As String
    9. Private Plzarray(1 To MAXANZ) As Integer
    11. Private Zaehler As Integer
    13. Private Sub CmdHinzu_Click()
    14. If IsNumeric(TxtNummer.Text) = True Then
    17. Namen = TxtName.Text
    18. Nummer = TxtNummer.Text
    19. Postleitzahl = TxtPLZ.Text
    20. LstAusgabe.AddItem TxtNummer.Text & " " & TxtName.Text & " " & TxtPLZ.Text
    21. Nummerarray(Zaehler) = Nummer
    22. Plzarray(Zaehler) = Postleitzahl
    23. Namenarray(Zaehler) = Namen
    24. TxtNummer.Text = ""
    25. TxtPLZ.Text = ""
    26. TxtName.Text = ""
    27. Zaehler = Zaehler + 1
    29. Else
    30. MsgBox "unkorrekte Eingabe"
    31. TxtNummer.Text = ""
    32. TxtPLZ.Text = ""
    33. End If
    34. End Sub
    36. Private Sub CmdLoeschen_Click()
    38. hier fehlt was
    40. End Sub
    42. Private Sub CmdZustand_Click()
    43. If Zustand = "Neueingabe" Then
    44. Zustand = "Bearbeiten"
    45. LblZustand.Caption = Zustand
    46. CmdLoeschen.Enabled = True
    47. CmdAendern.Enabled = True
    48. CmdHinzu.Enabled = False
    49. Else
    50. Zustand = "Neueingabe"
    51. LblZustand.Caption = Zustand
    52. CmdLoeschen.Enabled = False
    53. CmdAendern.Enabled = False
    54. CmdHinzu.Enabled = True
    55. End If
    56. End Sub
    58. Private Sub Form_Load()
    59. Zustand = "Neueingabe"
    60. CmdLoeschen.Enabled = False
    61. CmdAendern.Enabled = False
    62. Zaehler = 1
    63. LstAusgabe.Enabled = True
    64. End Sub
    66. Private Sub LstAusgabe_Click()
    67. Dim pos As Integer
    68. If LstAusgabe.ListIndex = -1 Then
    70. Else
    71. pos = LstAusgabe.ListIndex + 1
    72. TxtNummer.Text = Nummerarray(pos)
    73. TxtName.Text = Namenarray(pos)
    74. TxtPLZ.Text = Plzarray(pos)
    75. End If
    76. End Sub



    Edit by Mad Andy:
    VB-Tag eingefügt!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Mad Andy“ ()

    Hi!

    Visual Basic-Quellcode

    1. List1.RemoveItem List1.ListIndex
    List1.ListIndex ist der Index des angewählten Elementes.
    List1.RemoveItem löscht ein Element aus der Liste. Als Parameter musst du den Index des zu entfernenden Elements übergeben (wenns das ausgewählte ist eben ListIndex)


    so long..
    Andy

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Mad Andy“ ()

    Ändern Button

    hallo, danke für deine hilfe, dass wäre jetzt erstmal geschafft. wie siehts denn mit dem ändern button aus? da soll jetzt nur die änderung in die listbox übernommen werden. bestimmt gibts dafür auch so ein kurzen befehl.

    mit der ändeung das geht auch. aber wie gibt er dann wieder das makierte in den textfeldern aus. es wird immer das alte ausgegeben und nicht das geänderte. <--- ok das habe ich jetzt hinbekommen.

    nun ist aber das Problem, wenn ich was lösche aus der listbox und dann wieder ein eintrag makiere zeigt der den eintrag in den textfeldern der gelöscht wurde und nicht den ich makiert habe.
    hat ja jemand ne lösung?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „s-dino“ ()

    Visual Basic-Quellcode

    1. Option Explicit
    2. Private Zustand As String
    3. Private Const MAXANZ = 10 'Anzahl der erlaubten Einträge
    4. Private Nrm As Long 'Deklaration eines Feldes mit maxanz Elementen
    5. Private Namen As String
    6. Private Postleitzahl As String
    7. Private Zaehler As Integer
    8. Private Nummerarray(1 To MAXANZ) As Integer
    9. Private Namenarray(1 To MAXANZ) As String
    10. Private Plzarray(1 To MAXANZ) As String
    11. Private pos As Integer
    13. Private Sub cmdaendern_Click()
    14. Dim pos As Integer
    15. pos = lstausgabe.ListIndex + 1
    16. Namen = txtname.Text
    17. Nrm = txtnummer.Text
    18. Postleitzahl = txtplz.Text
    19. lstausgabe.List(lstausgabe.ListIndex) = txtnummer.Text & " " & txtname.Text & " " & txtplz.Text
    20. Nummerarray(pos) = Nrm
    21. Plzarray(pos) = Postleitzahl
    22. Namenarray(pos) = Namen
    24. End Sub
    26. Private Sub CmdHinzu_Click()
    27. Dim pos As Integer
    28. If IsNumeric(txtnummer.Text) = True Then
    31. Namen = txtname.Text
    32. Nrm = txtnummer.Text
    33. Postleitzahl = txtplz.Text
    34. lstausgabe.AddItem txtnummer.Text & " " & txtname.Text & " " & txtplz.Text
    35. Nummerarray(Zaehler) = Nrm
    36. Plzarray(Zaehler) = Postleitzahl
    37. Namenarray(Zaehler) = Namen
    38. txtnummer.Text = ""
    39. txtplz.Text = ""
    40. txtname.Text = ""
    41. Zaehler = Zaehler + 1
    43. Else
    44. MsgBox "unkorrekte Eingabe"
    45. txtnummer.Text = ""
    46. txtplz.Text = ""
    47. End If
    48. End Sub
    50. Private Sub CmdLoeschen_Click()
    51. lstausgabe.RemoveItem (lstausgabe.ListIndex)
    53. End Sub
    55. Private Sub CmdZustand_Click()
    56. If Zustand = "Neueingabe" Then
    57. Zustand = "Bearbeiten"
    58. lblzustand.Caption = Zustand
    59. cmdloeschen.Enabled = True
    60. cmdaendern.Enabled = True
    61. cmdhinzu.Enabled = False
    62. Else
    63. Zustand = "Neueingabe"
    64. lblzustand.Caption = Zustand
    65. cmdloeschen.Enabled = False
    66. cmdaendern.Enabled = False
    67. cmdhinzu.Enabled = True
    68. End If
    69. End Sub
    71. Private Sub Form_Load()
    72. Zustand = "Neueingabe"
    73. cmdloeschen.Enabled = False
    74. cmdaendern.Enabled = False
    75. Zaehler = 1
    76. lstausgabe.Enabled = True
    77. End Sub
    79. Private Sub LstAusgabe_Click()
    80. Dim pos As Integer
    81. If lstausgabe.ListIndex = -1 Then
    83. Else
    84. pos = lstausgabe.ListIndex + 1
    85. txtnummer.Text = Nummerarray(pos)
    86. txtname.Text = Namenarray(pos)
    87. txtplz.Text = Plzarray(pos)
    88. End If
    89. End Sub


    das ist der gesamte text. Ich schaffe es einfach nicht, dass er den array(pos) wieder runterzählt und somit dann den richtigen eintrag anzeigt. man ich bin echt am verzweifeln. habe alles probiert in allen möglichen arten und weisen es zu schreiben aber ich schaff es einfach nicht. ;(

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „s-dino“ ()

    Damit der Code funktioniert, müssen die Indizes der Arrays parallel zu denen der Liste laufen. Also wenn du einen Eintrag inner Listbox löscht, müssten du auch den Eintrag im Array löschen und alle Elemente drunter um eins nach oben rücken. Das dürfte mit einer For-Schleife kein Problem darstellen ;)


    so long..
    Andy

    das mit dem doppeleintrag habe ich so versucht

    Visual Basic-Quellcode

    1. Private Sub CmdHinzu_Click()
    2. Dim nrm As Long
    3. Dim pos As Integer
    4. If IsNumeric(txtnummer.Text) Then
    5. nrm = txtnummer.Text
    6. If Zaehler <= MAXANZ Then
    7. If Not Doppeleintrag(Zahlarray, Zaehler - 1, nrm) Then
    8. Namen = txtname.Text
    9. nrm = txtnummer.Text
    10. Postleitzahl = txtplz.Text
    11. lstausgabe.AddItem txtnummer.Text & " " & txtname.Text & " " & txtplz.Text
    12. Zahlarray(Zaehler) = nrm
    13. Plzarray(Zaehler) = Postleitzahl
    14. Namenarray(Zaehler) = Namen
    15. txtnummer.SetFocus
    16. txtnummer.Text = ""
    17. txtplz.Text = ""
    18. txtname.Text = ""
    19. Zaehler = Zaehler + 1
    20. Else
    21. MsgBox "Eintrag schon vorhanden"
    22. End If
    23. Else
    24. MsgBox "Eingabefeld voll!"
    25. Zustand = "liste bearbeiten"
    26. End If
    27. Else
    28. MsgBox "Bitte eine Zahl eingeben!"
    29. Eingabe.Text = ""
    30. End If
    31. End Sub


    und dazu diese subroutine

    Visual Basic-Quellcode

    1. Private Function Doppeleintrag(Feld() As Single, anz As Integer, Eintrag As Single) As Boolean
    2. 'Funktion untersucht ein Array, ob Eintrag schon vorhanden
    3. Dim i As Integer
    4. Dim doppelt As Boolean
    5. doppelt = False
    6. i = 1
    7. Do While i <= anz And Not doppelt
    8. doppelt = Feld(i) = Eintrag
    9. i = i + 1
    10. Loop
    11. Doppeleintrag = doppelt
    12. End Function


    aber jetzt kommt immer die fehlermeldung: unverträglichen typ: array oder benutzerdefinierter typ erwartet. und dann zeigt er auf

    Visual Basic-Quellcode

    1. If Not Doppeleintrag(Zahlarray, Zaehler - 1, nrm) Then


    bei diesem zahlarray.

    aber warum ?(