Napravio sam kada kliknem na picture box tj. na sliku svaka bi slika trebala imati drugi zvuk,ali to ne radi.
Pomagajte.
Private Sub Command1_Click()
Zvuk = sndPlaySound("d:\zvuk\A.wav", 1)
Picture1.Picture = LoadPicture("d:\slike\A1.gif")
Text1.Text = "AUTO"
End Sub
Private Sub Command2_Click()
Zvuk = sndPlaySound("d:\zvuk\B.wav", 1)
Picture1.Picture = LoadPicture("d:\slike\B1.gif")
End Sub
Private Sub Picture1_Click()
Zvuk = sndPlaySound("d:\zvuk\B1.wav", 1)
Text1.Text = "as"
End Sub
Hvala
[Ovu poruku je menjao mladenovicz dana 04.01.2005. u 11:28 GMT+1]