Vec sto puta je na ovom forumu govoreno da kada koristis mnogo istih
objekata napravis NIZ OBJEKATA a evo kako bi to u tom tvom slucaju izgledalo.
Umjesto sto si postavio 75 tekstboxova koji se zovu Text1, Text2,.... Text75
napravi niz kontrola textboxsova na sledeci nacin.
Postavi na formu jedan text box. Sad klikni desnom tipkom misa na taj
textboks i odaberi "Copy". Klikni negdje na formu desnom tipkom i odaberi "Paste".
VB ce izbaciti poruku "dali zelis da napravis niz kontrola" i ti klikni na "Yes".
Sad jos 73 puta klikni na "Paste" ili na tastaturi "Ctrl + V" i naprvices 75 textboksova
koji se svi zovu "Text1" ali im se "Index" razlikuje od 0 do 74.
A evo zbog cega je to korisno u ovom tvom slucaju.
Snimanje
Code:
Private Sub Command1_Click()
Dim I As Long
On Error Resume Next
Open "c:\test.txt" For Output As #1
For I = 0 To 74
Write #1, Text1(I).Text
Next I
Close #1
End Sub
Ucitavanje
Code:
Private Sub Form_Load()
Dim s As String, I As Long
On Error Resume Next
Open "c:\test.txt" For Input As #1
For I = 0 To 74
Input #1, s
Text1(I).Text = s
Next I
Close #1
End Sub
Sad pogledaj koliko redova koda ima u ovom gore rjesenju a pogledaj koliko si ti napisao
koristeci svoj nacin.
Jos nesto sto sam zapazio: Kada deklarises promjenjive u jednom redu kao sto si ti
Dim a, s As String, samo ti je "s" promjenjiva tipa string a promjenjiva "a" je Variant.
Znaci za svaku promjenjivu moras da definises tip a ne samo na kraju reda:
Dim a As String, s As String.
[Ovu poruku je menjao BinLaden dana 04.11.2007. u 16:24 GMT+1]
Ero S Onoga Sveta
snimanje textbox u txt
