Auswählen, Ok klicken, angezeigt bekommen
Hallo!
Ich will mir unbedingt ein Programm schreiben, bei dem ich eine Textbox, einen Ok-Button und eine Liste habe.
Das heißt, wenn ich in der Liste "Battlefield 2" auswähle und auf OK klicke, soll mir der Key des Spiels angezeigt werden.
Also Auswählen -> Ok klicken -> Key copy&paste
Dürfte nicht so schwer sein. Kann mir jemand solch einen Code geben?
MfG
€dit: Der Zusatz "Spiele anfügen" bzw "Zur Auswahl hinzufügen" wäre natürlich spitze!
Re: Auswählen, Ok klicken, angezeigt bekommen
Zitat:
Zitat von Illuminatum
Hallo!
Ich will mir unbedingt ein Programm schreiben, bei dem ich eine Textbox, einen Ok-Button und eine Liste habe.
Das heißt, wenn ich in der Liste "Battlefield 2" auswähle und auf OK klicke, soll mir der Key des Spiels angezeigt werden.
Also Auswählen -> Ok klicken -> Key copy&paste
Dürfte nicht so schwer sein. Kann mir jemand solch einen Code geben?
MfG
€dit: Der Zusatz "Spiele anfügen" bzw "Zur Auswahl hinzufügen" wäre natürlich spitze!
Grundlegend ist es relativ leicht ,Zufallszahl generieren , entsprechenden case aufrufen und key in der textbox anzeigen , den Rest musste selbst hinbekommen
lässt sich natürlich erweitern , derzeit wir eine Zahl von 1 bis 5 Generiert
Private Sub Command1_Click()
Zufallszahl = Int((5 * Rnd) + 1)
Select Case (Zufallszahl)
Case 1
Text1.Text = "key1"
Case 2
Text1.Text = "key2"
Case 3
Text1.Text = "key3"
Case 4
Text1.Text = "key4"
Case 5
Text1.Text = "key5"
End Select
End Sub
MfG