VB ispiši ime slike
 

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 !

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"

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

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š

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 :)

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