[ set_X @ 06.02.2005. 19:03 ] @
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.
[ Pr[o_O]F @ 06.02.2005. 20:13 ] @
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.



[ set_X @ 06.02.2005. 20:45 ] @
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.
[ Aleksandar Ružičić @ 07.02.2005. 00:34 ] @
Evo sta ti ja preporucujem, pa ti vidi valja li:
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

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

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!

[ set_X @ 07.02.2005. 07:53 ] @
Sve je to lepo, ali gde da stavim :

Code:

Type tData
   ch1   As Integer
   ch2   As Integer
End Type


Gde god ga stavim, greska...

poz.
[ set_X @ 07.02.2005. 09:55 ] @
Pokazuje mi :
Invalide inside procedure

Kako ovo da resim?

Unapred Hvala!

poz.
[ mladenovicz @ 07.02.2005. 10:03 ] @
Associate Extension
[ set_X @ 07.02.2005. 10:10 ] @
Hvala mnogo, a kako da resim prethodni problem?

Ono u vezi tData...to mi je najveci problem...

poz.
[ mladenovicz @ 07.02.2005. 10:26 ] @
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
[ set_X @ 07.02.2005. 10:32 ] @
Ne mogu da opisem koliko si mi pomogao!!!

Sad radi! Mnogo hvala!

poz.