[ Igor-Rogi-89 @ 14.03.2004. 19:34 ] @
Interesuje me da li neko zana kako recimo kad kliknem na command1 da se neucita uvek ista slika na picture1.picture = loadpicture("moja prva slika") vec da vrtim vise razlicitih ocija recim
picture1.picture = loadpicture("moja prva slika")
picture1.picture = loadpicture("moja druga slika")
picture1.picture = loadpicture("moja treca slika")
picture1.picture = loadpicture("moja itd.")
[ Safet Beriša @ 14.03.2004. 20:00 ] @
Ja bih to ovako uradio:

Deklarišeš array promenljivih tipa String u koji ćeš staviti adrese slika, npr. za 5 slika:

Code:
Dim AdresaSlike(4) As String


Trebaće ti i jedan brojač (ako hoćeš da prikazuješ slike nekim određenim redosledom):

Code:
Dim Brojac As Integer


U Form_Load npr. dodeliš lokacije slika odgovarajućim promenljivama:

Code:
AdresaSlike(0) = "C:\Slika1"
AdresaSlike(1) = "C:\Slika2"
itd...

Brojac = 0


I onda u _Click događaj Commad1 dugmeta staviš:

Ako hoćeš da se pojavljuju redom:
Code:
Picture1.Picture = LoadPicture(AdresaSlike(Brojac))

If Brojac < 4 Then
    Brojac = Brojac + 1
Else
    Brojac = 0
EndIf


Ako hoćeš da se pojavljuju nasumice (u ovom slučaju ti ne treba promenljiva Brojac):
Code:
Randomize

Picture1.Picture = LoadPicture(AdresaSlike(Int(5 * Rnd)))


Sve ovo je za 5 slika, za različit broj slika samo zamenuti brojeve na odgovarajući način.