[es] - Kako pokrenuti video fajl???

shpiki
Student
Novi Sad

Član broj: 50342
Poruke: 1651

+62 Profil

^{22.05.2005. u 23:16 - pre 242 meseci}

OK, shvatio...

Imam još jedan problem... Kako bih mogao da namestim da se klikom na određeno dugme(Command Button) pojavi određena (ista forma za svako dugme samo sa različitim Captionom) forma i da Caption te forme bude ime (name) kliknutog dugmeta???
Znam kako se prikazuje forma:

Code:

'Recimo za Dugme1
Private Sub Dugme1_Click()
Form4.Show, Me
'e sad bi trebao da se prikaže Caption forme kao ime kliknutog dugmeta
Form4.Caption = Dugme1.Name
End Sub

Da li moram za svako Dugme da pravim posebno na Click Event da se Caption forme menja ili je moguće napraviti uopšteno za svako Dugme npr. BILO koje Dugme (na Click event) da Caption forme bude ime tog dugmeta

Code:

Private Sub BiloKojeDugme_Click()
Form4.Caption = <kliknuto dugme.Name>
End Sub

P.S. Inače, imam 10 takvih Dugmića(zovu se Dugme1, Dugme2... Dugme10) i glupo je da za svako dugme definišem da na Click Event caption forme bude ime samog dugmeta...

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: Kako pokrenuti video fajl???

^{23.05.2005. u 00:05 - pre 242 meseci}

zasto je glupo? :D
samo da vidis kod programa koji sad pravim...

mozes da napravis control array:

postavi na formu jedno dugme (recimo Command1), onda ga kopiraj (desni klik pa Copy) i pastuj na formu (opet desni klik, al sad na formu, pa Paste) i kad te bude pitao oces li da napravis control array ti kazi yes, klikni dvaput na bilo koje dugme, otvorice ti se Code window, e sad samo treba da otkucas ovaj kod:

Code:

Private Sub Command1_Click(Index As Integer)
Form4.Show
Form4.Caption = Command1(Index).Caption
End Sub

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

shpiki
Student
Novi Sad

Član broj: 50342
Poruke: 1651

+62 Profil

Re: Kako pokrenuti video fajl???

^{23.05.2005. u 14:58 - pre 242 meseci}

Umesto CAPTION:

Code:

Private Sub Command1_Click(Index As Integer)
Form4.Show
Form4.Caption = Command1(Index).Caption
End Sub

meni treba NAME ::>

Code:

Private Sub Command1_Click(Index As Integer)
Form4.Show
Form4.Caption = Command1(Index).Name
End Sub

Hoću NAME da bih mogao da ga iskoristim za INI:

Code:

Private Sub Command1_Click()
  Fajl$ = App.Path & "\Player.ini"
  Form4.Show
  Form4.Caption = Command1.Name
  WriteProfile Form4.Caption, "Naslov","ništa",Fajl$
  'sad dolazi dalje kod
  ':)
  .
  .
  .
End Sub

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Odgovor na temu