Textbox Einträge speichern und anzeigen
18.04.2013 18:08:42
plsHelp
Ich möchte gerne einen Wert aus der TextBox1 in die ListBox1 übernehmen.
Dafür habe ich diesen Code
Private Sub cmdhinzufügen_Click()
Dim intZeile As Integer
intZeile = ListBox1.ListCount
ListBox1.AddItem
ListBox1.list(intZeile, 0) = TextBox1.text
End Sub
Wie schreibe ich das?
Für das Entfernen aus der Listbox1 verwende ich den Code
Private Sub cmdentfernen_Click()
With Me.ListBox1
If .ListIndex > -1 Then .RemoveItem (.ListIndex)
End With
End Sub
Das funktioniert. Wie schreibe ich es das alle Werte aus der ListBox1 gelöscht werden?
Private Sub cmd4_Click()
ListBox1.Items.Clear()
End Sub
funktioniert leider nicht ich bekomme einen syntax Fehler
Andere Frage:
Die Werte in der ListBox1 sollen zusammen mit einem Wert aus der combobox (cboPA_Nummer) gespeichert werden.
Diese Werte sollen auch jedesmal in der ListBox1 angezeigt werden, je nachdem welcher Wert in der combox ausgewählt und zuvor gespeichert wurde.
Bin für jede Hilfe Dankbar!
mfg