by Masood Siddique (1 Submission)
Category: Sound/MP3
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 27th July 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Play *.AVI movie
Private Sub cmdopen_Click()
CommonDialog1.CancelError = True
On Error GoTo Errhandler:
CommonDialog1.Flags = cdlOFNFileMustExist
CommonDialog1.Filter = "Video (*.AVI)|*.AVI"
CommonDialog1.ShowOpen
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "Open"
Errhandler:
'if cancel clicked, then exit procedure
End Sub
Private Sub cmdplay_Click()
MMControl1.Command = "Play"
End Sub
Private Sub cmdquit_Click()
End
End Sub