Evo jedan primjer galerije slika.
Nije do kraja zavrsen.
Namjerno sam ostavio par stvari nedovrsenih da mi se mogli vjezbati ovi koji tek pocinju sa kodom.
Nerazumijem jedino kako promijeniti putanju a da nije "C:\Documents and Settings\Ime\Desktop\" nego neka druga npr: "D:\Katalozi".
zxz
13.10.2011 16:23
Predmet:Re: Galerija slika
U polje galerija napisati ime vase galerije te kliknuti na comandni taster nova galerija i odabrati dir gdje se nalaze slike.
Sve slike ce biti prekopirane u dir katalaozi isubdir imegalerije.
Vjerovatno ti se app. nalazi na desktopu te uvijek imas tu putanju.
Postavi to na c: u neki folder pa ces imati tu putanju.
Predrag
13.10.2011 17:35
Predmet:Re: Galerija slika
Hvala!
Car si.
Može još jedno pitanje?
Dali mogu aplikaciju stviti u neki drugi folder a da putanja bude u nekom drugom folderu, npr: app. na C:\nešto, a Galerija (putanja) na D:\nešto. Može neki kod.
zxz
13.10.2011 21:19
Predmet:Re: Galerija slika
Moze ako promijenis u kodu.
Ako sam ne uspijes mozes mi napisati konkretno gdje hoces pa cu ja ispraviti.
Predrag
13.10.2011 23:10
Predmet:Re: Galerija slika
Želio bi da app. bude na C:\, a putanja na D:\. nemogu nikako da napravim.
U svakom slučaju Hvala.
Pozdrav
zxz
13.10.2011 23:41
Predmet:Re: Galerija slika
gdje god pise u kodu Db_Putanja zanijeni sa "d:\" i otvori dir na D pod imenom Katalozi
Predrag
14.10.2011 07:31
Predmet:Re: Galerija slika
Dali si mislio ovako?
Spoiler:
Function Db_Putanja() As String
'--------------------------------------------- -----
'Ova funkcija pronalazi putanju postojeće baze
'Autor funkcije ZXZ
'_____________________________________________ _____
Dim Db As Database, Putanja As String
On Error Resume Next 'Ako naiđeÅ¡ na greÅ¡ku nastavi
Set Db = DBEngine(0)(0) 'Setovanje baze
Putanja = Db.Name 'Upis putanje baze i njenog imena
Do Until Right$(Putanja, 1) = "D:\" 'Petlja za odvajanje imena baze od putanje baze
Putanja = Left$(Putanja, Len(Putanja) - 1)
Loop
Db_Putanja = Putanja 'Upis putanje u funkciju
End Function
Spoiler: