by Jamal 331 (5 Submissions)
Category: Sound/MP3
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 2nd January 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
A Mini Movie Player using the Microsoft Multimedia Control (msdxm.ocx) Instructions included to put this app together.
VBcoders
‘You need a combo box, a drive list, a folder list, and a file list box.
‘And you need a text box and a picture box.
‘Put two caption buttons: Play and Exit.
'Make the Multimedia Control Invisible.
‘Insert the code and arrange the objects any way you want.
‘Enjoy using this sample movie player.
‘Mail Me at [email protected]
Private Sub Form_Load()
Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2
Combo1.AddItem "*.avi;*.mpg"
End Sub
Private Sub Combo1_Change()
File1.Pattern = ("*.avi;*.mpg")
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
File1.Pattern = ("*.avi;*.mpg")
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Exit_Click()
Unload Me
End Sub
Private Sub File1_Click()
File1.Pattern = ("*.avi;*.mpg")
If Right(File1.Path, 1) <> "\" Then
filenam = File1.Path + "\" + File1.FileName
Else
filenam = File1.Path + File1.FileName
End If
Text1.Text = filenam
End Sub
Private Sub Picture1_Click()
End Sub
Private Sub play_Click()
MMplayer.FileName = Text1.Text
End Sub
Private Sub stop_Click()
If MMplayer.Mode = 524 Then Exit Sub
If MMplayer.Mode <> 525 Then
MMplayer.Wait = True
MMplayer.Command = "Stop"
End If
MMplayer.Wait = True
MMplayer.Command = "Close"
End Sub
No comments have been posted about A Mini Movie Player using the Microsoft Multimedia Control (msdxm.ocx) Instructions included to put. Why not be the first to post a comment about A Mini Movie Player using the Microsoft Multimedia Control (msdxm.ocx) Instructions included to put.
