Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

kako da namestim da se neotvara uvek isto

[es] :: Visual Basic 6 :: kako da namestim da se neotvara uvek isto

[ Pregleda: 3697 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Igor-Rogi-89
Igor Ciric
Beograd

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



Profil

icon kako da namestim da se neotvara uvek isto14.03.2004. u 19:34 - pre 195 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



+3 Profil

icon Re: kako da namestim da se neotvara uvek isto14.03.2004. u 20:00 - pre 195 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

[es] :: Visual Basic 6 :: kako da namestim da se neotvara uvek isto

[ Pregleda: 3697 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.