• Home
 · 
• Sound/MP3
 · 
• A Mini Movie Player using the Microsoft Multimedia Control (msdxm.ocx) Instructions included to put

A Mini Movie Player using the Microsoft Multimedia Control (msdxm.ocx) Instructions included to put

A Mini Movie Player using the Microsoft Multimedia Control (msdxm.ocx) Instructions included to put this app together.

Rate A Mini Movie Player using the Microsoft Multimedia Control (msdxm.ocx) Instructions included to put

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

‘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