Registracija

kako da namestim da se neotvara uvek isto

Odgovori Nova tema

1 odgovor
5.254 pregleda

kako da namestim da se neotvara uvek isto 14.03.2004. u 20:34 · pre 275 meseci #1

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

Potpis

Sve u sta verujes - bice ti ispunjeno

Re: kako da namestim da se neotvara uvek isto 14.03.2004. u 21:00 · pre 275 meseci #2

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.

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme