hallo ich suche nach einem Code wo ich bestimmte Einträge aus einer Listbox in eine Textbox bekommen.
Die Listbox sieht so aus:
Eintrag1 - Eintrag2
Eintrag1 - Eintrag2
nun möchte ich aber nur
Eintrag1
un die Textbox übertragen, also alles was nach dem - kommt soll nicht mit kopiert werden. ich hab da zwar schon gegooglet und hab da auch einige Programmschnipsel gefunden, aber leider bin ich da nicht wirklich schlau rausgeworden.
Leider muss ich dazu sagen, das ich in VB6 blutiger Anfänger bin.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZzÄäÜüÖöß" & Chr$(8), Chr$(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End Sub
das hab ich probiert, doch leider gilt das nur für die Eingabe, nicht beim Adden in der Textbox
bei der listbox sieht es so aus:
Private Sub List1_Click()
Text1.Text = List1.List(List1.ListIndex)
End Sub
Bitte fangt nun nicht an zulachen, fals es ein einfach code ist, für hilfe wäre ich echt dankbar
torsten40
