PlayAVI (3)
Private Sub Form_Load() Me.Show 'MciPlay.Visible = False MciPlay.Notify = True MciPlay.Wait = True MciPlay.Shareable = False MciPlay.filename = "c:\winnt\clock.avi" MciPlay.Command = "Open" MciPlay.Command = "Play" End Sub
Private Sub Form_Load()
Me.Show
'MciPlay.Visible = False
MciPlay.Notify = True
MciPlay.Wait = True
MciPlay.Shareable = False
MciPlay.filename = "c:\winnt\clock.avi"
MciPlay.Command = "Open"
MciPlay.Command = "Play"
End Sub
(playavi3.html)- by Paolo Puglisi - Modifica del 25/3/2019