Anonymní profil DrMinda – Programujte.com

#1 korunka
Dal bych tam:

dim opened as integer

'Při zmáčknutí tlačítka
If opened = 1 then
Msgbox("Jedno okno už je otevřené!")
elseif opened = 0 then
opened = 1
'Otevřeš okno
end if

'A při zavírání:
Form1.opened = 0

Mělo by to fungovat, ale nevím no.

Zdravím, chtěl bych se zeptat, když mám kód:

Dim soubor As New IO.StreamWriter("database.txt")           'otevřít soubor
        For i As Integer = 0 To ListView1.Items.Count - 1           'projít všechny položky seznamu
            soubor.WriteLine(ListView1.Items(i).SubItems(0).Text)   'zapsat datum
            soubor.WriteLine(ListView1.Items(i).SubItems(1).Text)   'zapsat částku
            soubor.WriteLine(ListView1.Items(i).SubItems(2).Text)   'zapsat popis
            soubor.WriteLine(ListView1.Items(i).SubItems(3).Text)   'zapsat nevím co
        Next
        soubor.Close()                  

Tak se mi po zavření vymaže obsah souboru database.txt, prosím kde mám chybu? Za každou odpověď děkuji :)