VB ispiši ime slike

[malixx]

Bok, zna li netko kako ispisati ime slike, ona koja se loadira u projekt, sve sam pretražio i
nemogu nigdje nać o tom. Npr. imam u formi Picture box ili image, i sad ja pozovem neku
sliku u Picturebox, ona se lijepo otvori, i kak sad znat koje je ime te slike?? Ja sam probao
napisat picture1.name, al to ustvari ispisuje ime tog boxa di je slika, a ne ime slike koje mi treba.

Zna netko? help !

[noobinator]

to ti treba za poker?

a nemozes saznat ime slike, ali mozes zapisat u "Tag" koja je slika, znači:

Picture1.Picture = LoadPicture ( App.Path & "\1.gif")
Picture1.Tag = "1.gif"

[malixx]

Da, radim video poker, znači ne može se, al sam našo drugi način kak saznat..
odma tam di ti se generira broj se ispisuju brojevi, i po tome ih kontroliram.

II. E a dr. pitanje, jel se može recimo, imam 12 imagea praznih i sad stavim ovo:
For i = 1 To 12
lup(i).Picture = LoadPicture(bjj$ & brj$ & ".gif")
Next i
al mi se onda prikažu karte u svih 12, a jel se može da se na svaki klik pokaže druga onda, tj na svaki klik u slijedećem imageu... ?

III. I treće pitanje, deklariranje. Ovo mi treba za MODUL, trebam deklarirati kartu koja ima index iza,
a nemogu ubacit gore jer je to broj ! Inače ovo se može napravit:
Public Sub nt(img As Object)
Al kako da napravim nešto tipa ovog:
Public Sub nt(img(1) As Object) 'to očitava ko grešku, jer je br. jedan unutra..
Zna ko kako to deklarirati, znači img(1)?

Hvala

[noobinator]

2. Bolje da staviš da se karta pokaže svakih pola sekunde.

Dodaj ovo:

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)


i onda:
For i = 1 To 12
lup(i).Picture = LoadPicture(bjj$ & brj$ & ".gif")
DoEvents
Sleep (500)
Next i

3. Nemožeš

[malixx]

Broj dva nisam onda baš dobro objasnio, jer ne treba mi da idu karte jedna za drugom,
nego mi to treba ono za lupanje, ak znaš na pokeru high i low, i onda da se na svaki klik buttona pojavi karta u drugomu Image okviru, ili ti PictureBoxu. Što se tiće ovog napisanog to mi dobro dođe za neš drugo tamo, ak skužim

-znači lupim jednom, tj. klik butona1 se pojavi slika u image(1)
-drugi klik butona1 se pojavi slika u umage(2)
-treći klik butona1 se pojavi slika u image(3)

Samo bit će dva butona za to, pa da te ne zbuni sam napiso ovak

[noobinator]

Jbg čarobna kugla mi je zaštekala


Dodaj skrozz gore u programu:

Public lol as Integer

i kod click eventa na ta 2 buttona dodas:

lol = lol + 1
lup(lol).Picture = LoadPicture(bjj$ & brj$ & ".gif")