Auswählen, OK klicken, angezeigt bekommen

[Illuminatum]

Hallo zusammen!
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?
Vielen Dank im Vorraus!!

MfG

€dit: Der Zusatz "Spiele anfügen" bzw "Zur Auswahl hinzufügen" wäre natürlich spitze!

 

[Va7e]

Was soll das für ein Key sein?
Ich könnte dann die Tage mal was für dich schreiben ;-]

 

[DrSoong]

Meinst du den Key aus dem Spiel auslesen oder sollte das ganze so eine Art Key-Verwaltung für deine Spiele werden (die Keys hast du z.B. in einer Textdatei gespeichert)?


Der Doc!

 

[Illuminatum]

Nein, ich benutze das Programm ausschließlich zur Keyverwaltung. Das heißt für jedes auswählbare Spiel gibt es einen Key, den ich zuvor irgendwann eingegeben habe.
Ich habe mal ein paar If-Schleifen ausprobiert.
Code in Worten: If der Inhalt in Liste = Battlefield 2, dann Ausgabe in Textbox = XXXX-YYYY-FFDW-HHWE-SQQE
Aber auf Dauer ist das keine Lösung.
@Va7e: Supi, ich freu mich schon

Danke für eure Antworten,
MfG

 

[DrSoong]

Das kannst du dir auch leicht selbst schreiben, hier eine kleine Anleitung.

1) Das Format deiner Key-Datenbank (am besten eine Textdatei):
Am besten, du speicherst deine Daten in eine Textdatei, in einer Zeile zuerst den Namen des Spiels und dann den Key. Zwischen Namen und Key brauchst du noch ein Trennzeichen, irgend ein Zeichen, dass im Spielnamen bzw. im Key selbst nicht vorkommt (empfehle hier meist das | ).

Battlefield 2|XXXX-YYYY-FFDW-HHWE-SQQE

2) Einlesen der Textdatei in ein Array:
Jetzt liest du die gesamte Textdatei in ein Array ein

'in ein Modul
Dim sSpiele() As String

'in deine Form
Dim iFile As Integer, sInhalt As String, sFile As String
sFile = "c:\DeineKeys.txt"
sInhalt = Space(FileLen(sFile))
iFile = FreeFile
Open sFile For Binary Access Read As iFile
 Get #iFile, , sInhalt
Close iFile
sSpiele = Split(sInhalt, vbNewLine)

3) Einlesen der Spielenamen in eine ListBox:
Nun kannst du ganz einfach die Spielenamen in eine ListBox (hier "lstSpiele") einlesen:

For cnt  = 0 To UBound(sSpiele)
 sTemp = Split(sSpiele(cnt), "|")
 lstSpiele.AddItem sTemp(0)
Next cnt

4) Spiel aus Liste wählen und den OK-Button klicken:
Wenn du nun das Spiel wählst und den OK-Button (hier "cmdShowKey") klickst, wird der Key in der Textbox (hier "txtKey") angezeigt

Private Sub cmdShowKey_Click()
 Dim iLIndex As Integer, sTemp() as String
 iLIndex = lstSpiele.ListIndex
 sTemp = Split(sSpiele(iLIndex), "|")
 txtKey.Text = sTemp(1)
End Sub

Der Doc!