dotNETportal.cz

Private Sub vymprac_Click()    
    Open "C:\rosta\database.txt" For Append As #1
    Close #1
    Rem maximálně třicet pracovníků
    Label1 = "Vymazání pracovníka"
    Dim jmenoprac(30) As String
    Dim b As Integer
    b = 0       
     Open "C:\pruzna\database.txt" For Input As #1
       Do While Not EOF(1)
             b = b + 1
             Input #1, jmenoprac(b)
             List1.AddItem jmenoprac(b), b - 1
       Loop
     Close #1  
       
End Sub

Děkuji za pomoc s LIST BOXEM. Nyní ze souboru database.txt se nacte promená jmenoprac(b) + přidají se položky do listbox.

List box jsem si musel vytvořit v visual basic úvodním prostředí, ale potřeboval bych, aby se listbox objevil hned po té co uzavřu soubor close #1, ješte v té samo proceduře.

Prosím tedy o radu. Aby listbox nebyl v úvodu, ale po stisknutí v MENU na volbu.

Napište mi buď to mail [email protected] nebo zde ve fóru, které sleduji.

Programování vyžaduje přesnost a disciplinu a logické uvažování. Tak to zkuste, prosím. Nezakládejte nové vlákno na stejnou věc. Neptejte se na to, co bylo odpovězeno - používejte svoji hlavu, bez toho se programovat nedá. Respektujte doporučení nebo se víc snažte: kód se zde vkládá po klepnutí na VBcode mezi tři a tři kolmice "

  ' sem 

"

Kód už jsem ručně opravil.

Nestačilo by nastavit v návrhu formu

nebo ve Form_Load vlastnost listboxu

visible=false a pak po naplnění items

na lboRobotnici.visible=true.