Listbox und Textfeld

[CoderX]

Guten Abend,

ich entschuldige mich schonmal für die schlechte Beschreibung von dem Thread.

Also folgendes Problem...

Ich habe eine Listbox einen Button und eine Textbox, jetzt stehen in der Listbox ca. 10 Einträge die unterschiedlich sind.

Bsp: In der Listbox steht der Eintrag "Banane" dann möchte ich wenn der User auf Banane klickt, und danach auf den Button drückt das in der Textbox dann halt "Ich bin Gelb" geschrieben wird...

Ich habe ein bisschen rumgespielt, aber mehr als Fehlermeldungen kamen auch nicht raus.

Achja, nun wird es ja später nicht bei 10 Einträgen bleiben, man könnte es doch auch über eine verschlüsselte DB machen, wo die ganzen Einträge drinstehen, oder?

Ich bedanke mich jetzt schonmal, für jede hilfreiche Antwort.

Gruß
coderX

 

[D@nger]

Hallo,

Private Sub Command1_Click()
If List1.Text="Banane" then
Text1.Text=""Ich bin Gelb"
end if

 

[CoderX]

Aha, danke erstmal für deine Hilfe....

aber wie ist das jetzt wenn ich 10 oder 100 Einträge in der ListBox habe?

Gruß
coderX

 

[D@nger]

Hallo,jetzt hatte ich den Code gerade fertig abgestürzt. Also nochmal.

[Command1]
Dim i as integer
for i=1 to 200
List1.Additem i
list2.Additem i & "sdfsdfsdf"
next i

[Command2]
List2.ListIndex = List1.ListIndex
Text1.Text = List2.Text