Kako pokrenuti video fajl???

Re: Kako pokrenuti video fajl??? 23.05.2005. u 00:16 · pre 261 mesec #21

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

Potpis

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

Re: Kako pokrenuti video fajl??? 23.05.2005. u 01:05 · pre 261 mesec #22

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

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: Kako pokrenuti video fajl??? 23.05.2005. u 15:58 · pre 261 mesec #23

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

Potpis

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

Forum kao aplikacija na telefonu

Srodne teme