Combobox - Additem ze souboru + předání informací – Visual Basic – Fórum

Combobox - Additem ze souboru + předání informací

Yixi 0

Duch

28. 2. 2009 #1

Dobrý den

Mám menší problém ohledně comboboxu.
Mám formulář s comboboxem, kam se v proceduře Form_Load načtou položky ze strukturovaného textového souboru, který vypadá např. takto:

Beta Tester;SAV001.txt
Alpha Tester;SAV002.txt

Celé procedura vypadá takto:

Private Sub Form_Load()

    Dim var_loadN As Variant

    Dim var_findN As Variant

    Dim byt_sepP As Byte

    Open App.Path & "\locals\SAVES.txt" For Input Lock Write As #1

        Do Until EOF(1)

            Line Input #1, var_loadN

            byt_sepP = InStr(1, var_loadN, ";")

            var_findN = Left(var_loadN, byt_sepP - 1)

            cmb_loadg.AddItem var_findN, Index = Mid(var_loadN, byt_sepP + 1)

            frm_control.txt_console.Text = frm_control.txt_console.Text & (Chr(13)) + (Chr(10)) & pli_save_str

        Loop

    Close #1

    cmd_loadSG.Enabled = True

End Sub

Potřeboval bych tedy přesněji toto:

Ze souboru Saves.txt se načte, kterému nicku patří jaký soubor a do comboboxu se zobrazí jméno (to už se mi povedlo). Nicméně když poté kliknu na tlačítko, tak nevím, který soubor patří ke jménu, které jsem vybral v comboboxu (resp. informace následující za znakem ";"). Potřeboval bych nějaký způsob, aby se mi s vybraným jménm v comboboxu vrátila i hodnota, kterou čtu pomocí Mid (prstě např. "SAV001.txt").

Předem díky za odpověď ;)

Nahlásit jako SPAM