|
|
|
Poslao: 02 Jun 2008 21:58
|
offline
- LittleHacker
- Ugledni građanin
- Pridružio: 13 Apr 2007
- Poruke: 452
- Gde živiš: Beograd
|
Ajde da ti pomognem...Ne znam da resim ovo jer ti radis u VB a ja ne, ali mene su ovako ucili...
Kad nesto ne znas da uradis prvo pitas cika googla...Trazis, trazis, i ako ne nadjes onda ovde pitas...Ne verujem da ce ljudi da se bakcu oko ovako jednostavnih stvari...Ne kazem da sam ja bio bolji, ja sam pitao jos lakse stvari, ali su me ljudi odavde uputili na pravi put...
Pazi, google, tutorijali i knjige...To je ono sto ti treba...Ljudi ne pisu to za dzabe, i veruj mi, moze mnogo da se nauci iz knjiga i tutova...Znaci, citaj, niko ti nece sipati znanje u glavu...
|
|
|
|
|
|
|
|
|
|
|
Poslao: 02 Jun 2008 22:04
|
offline
- Srki94
- Mod u pemziji
- Pridružio: 14 Feb 2008
- Poruke: 12402
|
Haha Ja nisam moderator da menjam ime obrati se moderatorima. xD
Ti si rekao da je prosto uradi ti tj ispisi kod ovde :@
|
|
|
|
|
|
|
Poslao: 02 Jun 2008 22:10
|
offline
- LittleHacker
- Ugledni građanin
- Pridružio: 13 Apr 2007
- Poruke: 452
- Gde živiš: Beograd
|
Evo kad si navalio...Eto ti...Kod za sejv u Delphi-u...
procedure TForm1.SaveOptions; // zapis opcija
begin
If Check1.Checked then Strings.Values['Option1'] := 'yes'
else Strings.Values['Option1'] := 'no';
If Check2.Checked then Strings.Values['Option2'] := 'yes'
else Strings.Values['Option2'] := 'no';
If Check3.Checked then Strings.Values['Option3'] := 'yes'
else Strings.Values['Option3'] := 'no';
Strings.Values['Option4'] := FloatToStr(SpinEdit1.Value);
Strings.Values['Option5'] := DirectoryDef.EditText;
// mozes da dodas jos milion ovakvih....kolko ti drago
Strings.SaveToFile(extractfilepath(application.ExeName) + '/options.txt' ); //zapisuje se u folderu gde se nalazi program u fajl options.txt
end;
Jel treba i za load?
|
|
|
|
|
|
|
Poslao: 02 Jun 2008 22:16
|
offline
- biser-x
- Počasni građanin
- Pridružio: 28 Jun 2004
- Poruke: 990
- Gde živiš: Kucura
|
mod: U buduce pisi naslove koji su slicni tematici tvoje poruke (naslov treba da sugerise problem)! Moderatori nisu tu da vecito ispravljaju necije greske, zato sto nekoga mrzi da razmisli 5sec duze....
Iz pravilnika 5.G:
Citat:Kada se otvara nova diskusija (tj. kada se piše nova poruka), naslov poruke mora biti u skladu sa temom o kojoj se piše. Nije dobro pisati naslove tipa "Pomoć", "Da li..", "Problem", itd, gde se iz naslova ne može zaključiti o čemu se radi. Naslov mora biti smišljen tako da se iz njega može zaključiti o čemu se radi, da ne bi korisici bespotrebno otvarali poruku ukoliko ih ne interesuje tema.
|
|
|
|
|
|
|
Poslao: 03 Jun 2008 00:12
|
offline
- Srki94
- Mod u pemziji
- Pridružio: 14 Feb 2008
- Poruke: 12402
|
@ Biser X
Pa dobro covece sta ti je tesko da promenis. Necu vise ! Pih.
Da bi bio dobar moderator moras to da radis. Ti si samo Moderator.
Dopuna: 03 Jun 2008 0:12
@ Litle Hacker
Svi ovi linkovi su za Visual Basic 2008. A ja radim u 6.0 xD
|
|
|
|
|
|
|
Poslao: 03 Jun 2008 00:19
|
offline
- bobby
- Administrator
- Pridružio: 04 Sep 2003
- Poruke: 24135
- Gde živiš: Wien
|
Srki04, ne kontas poentu.
Ti treba da osmislis kako da sacuvas sadrzaj tih komponenti.
Mozda ti je najlakse da to uradis preko INI fajlova. Potrazi malo na netu info o tome kako se pisu INI fajlovi u VB-u.
|
|
|
|
|
|
|
Poslao: 03 Jun 2008 00:28
|
offline
- Srki94
- Mod u pemziji
- Pridružio: 14 Feb 2008
- Poruke: 12402
|
E ljudi evo Srki_82 mi je pomogao puno evo koda:
Private Sub Command1_Click()
Open "srki94" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Private Sub Command2_Click()
Open "srki94" For Input As #1
Input #1, Text1
Close #1
End Sub
[/quote]
Problem je gde pise:
Input #1, Text1
I onda mi pojavi gresku : "Variable required cant asing to this expression.
Probao sam i sa text1.text ali nce  Pomoc?
|
|
|
|
|
|
. I niste mi odgovorili kako da sacuvam sliku pomocu common dialoga (ODGOVORITE NA ONO1vo 
