Ovako, napravio sam prost program.
Na formi 2 checkboxa i jedno dugme.
I sad ako chekiram 1 checkbox, i hocu da snimam takav projekat, koji je najbolji nacin da se to odradi?
Znaci izaberem 1. checkbox i kliknem na dugme, napravi se neki fajl sa nekom extenzijom koju ce moj program da koristi.
I znaci ako kliknem na taj snimljen projekat, otvara se moj program sa selektovanim prvim checkboxom, kako sam snimio.
A kako da registrujem extenziju, t.j. da se snimljeni projekat otvori u mom programu?
Unapred hvala.
poz.
Registrovanje Ekstenzija i snimanje projekta?
Zaključano
Zakačeno
Za registrovanje ekstenzije imas dosta programa na
www.planet-source-code.com
potrazi pod imenom npr "Associate Extension",
imash takav jedan primjer i ovdje na Elitesecuritiju. Btw ja sam to i zatrazio!
A za snimanje jednostavno u fajl upises stanje checkboxa
npr
Open "C:\Test.txt" for output as #1
Print #1, Check1.Value
Print #1, Check2.Value
close #1
Imaj na umu --> ako je checkbox zakvacen onda mu je stanje 1, analogno tome
ako nije zakvacen stanje mu je 0.
www.planet-source-code.com
potrazi pod imenom npr "Associate Extension",
imash takav jedan primjer i ovdje na Elitesecuritiju. Btw ja sam to i zatrazio!
A za snimanje jednostavno u fajl upises stanje checkboxa
npr
Open "C:\Test.txt" for output as #1
Print #1, Check1.Value
Print #1, Check2.Value
close #1
Imaj na umu --> ako je checkbox zakvacen onda mu je stanje 1, analogno tome
ako nije zakvacen stanje mu je 0.
Potpis
[ :. n!t .: ]
To za ekstenzije trenutno i nije bitno.
Pisacu u text fajl.
A kako posle da ucitam text fajl i da sam checkuje opcije koje su snimljene?
poz.
Pisacu u text fajl.
A kako posle da ucitam text fajl i da sam checkuje opcije koje su snimljene?
poz.
Evo sta ti ja preporucujem, pa ti vidi valja li:
to je za snimanje, a za citanje ide ovako:
Ja koristim ovako nesto. Naravno Type mozes da nazoves kako hoces i da mu dodas koliko god ti treba parametara.
Ako ti treba pomoc, vici!
Code:
Type tData
ch1 As Integer
ch2 As Integer
End Type
....
Command1_Click()
Dim myData As tData
myData.ch1 = CheckBox1.Value
myData.ch2 = CheckBox2.Value
Open "C:\test.txt" For Binary As #1
Put #1, , myData
Close #1
End Sub
Type tData
ch1 As Integer
ch2 As Integer
End Type
....
Command1_Click()
Dim myData As tData
myData.ch1 = CheckBox1.Value
myData.ch2 = CheckBox2.Value
Open "C:\test.txt" For Binary As #1
Put #1, , myData
Close #1
End Sub
to je za snimanje, a za citanje ide ovako:
Code:
Dim myData As tData
Open "C:\test.txt" For Binary As #1
Get #1, , myData
Close #1
CheckBox1.Value = myData.ch1
CheckBox2.Value = myData.ch2
Dim myData As tData
Open "C:\test.txt" For Binary As #1
Get #1, , myData
Close #1
CheckBox1.Value = myData.ch1
CheckBox2.Value = myData.ch2
Ja koristim ovako nesto. Naravno Type mozes da nazoves kako hoces i da mu dodas koliko god ti treba parametara.
Ako ti treba pomoc, vici!
Sve je to lepo, ali gde da stavim :
Gde god ga stavim, greska...
poz.
Code:
Type tData
ch1 As Integer
ch2 As Integer
End Type
Type tData
ch1 As Integer
ch2 As Integer
End Type
Gde god ga stavim, greska...
poz.
Pokazuje mi :
Invalide inside procedure
Kako ovo da resim?
Unapred Hvala!
poz.
Invalide inside procedure
Kako ovo da resim?
Unapred Hvala!
poz.
Hvala mnogo, a kako da resim prethodni problem?
Ono u vezi tData...to mi je najveci problem...
poz.
Ono u vezi tData...to mi je najveci problem...
poz.
Tip deklarisii u modulu ako ce ti trebati na vise mesta u aplikaciji. Ako ti treba na samo jenioj formi onda ga deklarisi kao Private
Potpis
Ne mogu da opisem koliko si mi pomogao!!!
Sad radi! Mnogo hvala!
poz.
Sad radi! Mnogo hvala!
poz.