[es] - kako da namestim da se neotvara uvek isto

Igor-Rogi-89
Igor Ciric
Beograd

Član broj: 13752
Poruke: 27
*.159.eunet.yu

Profil

kako da namestim da se neotvara uvek isto

^{14.03.2004. u 19:34 - pre 244 meseci}

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.")

Sve u sta verujes - bice ti ispunjeno

Odgovor na temu

Safet Beriša
Malo N. Sad, malo SAD.

Član broj: 17338
Poruke: 929
*.telekom.yu

+4 Profil

Re: kako da namestim da se neotvara uvek isto

^{14.03.2004. u 20:00 - pre 244 meseci}

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.

Odgovor na temu