• Home
 · 
• Custom Controls/Forms/Menus
 · 
• MSDXM Controls/Chapters

MSDXM Controls/Chapters

MSDXM MediaPlayer (IMediaplayer) Controls.
This is to demonstrate how to use the various controls within the MSDXM
Mediaplayer. Subject may change upon discovery. Update1: Moved: Timer1 to
Playstatechange event Changed: hScoll change events causes skipping
playback. What's new? Demonstration on how to Draw Chapters for MSDXM
IMediaplayer control List2 Click correction Added: Skip Reverse/Forward
button Example

Rate MSDXM Controls/Chapters

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'*********************************************
' IMPORTANT
' SendOpenStateChange must be ENABLED!
' SendPlayerStateChange must be ENABLED!
' Context Menu
' If you use the Context menu and you are using Owner Drawn buttons
' Detection
' Detect what the Mediaplayer is doing within the Context Menu
' ----------------------------------------------
' First we will detect the Play/Pause
' ----------------------------------------------
' Some Case Select are MARKED to what is known
' FORMOTHER = Child Form not of the Video Form
' Create a Owner Drawn Button/Checkbox Name: Checkbox1
' Change MP1 to you Mediaplayer1 Control name
Private Sub MP1_PlayStateChange(ByVal OldState As Long, ByVal NewState As Long)
On Error GoTo Err_Proc ' Not needed - Just incase
 Select Case NewState
 Case 0 ' Stop
 Debug.Print "Stopped"
 FORMOTHER.Checkbox1.Value = 0
 FORMOTHER.Checkbox1.Caption = "Stopped"
 Case 1 ' Paused
 Debug.Print "Paused"
 FORMOTHER.Checkbox1.Value = 1
 FORMOTHER.Checkbox1.Caption = "Paused"
 Case 2 ' Playing
 Debug.Print "Playing"
 FORMOTHER.Checkbox1.Value = 0
 FORMOTHER.Checkbox1.Caption = "Playing"
 Case Else:
 Debug.Print NewState, "Else"
 Debug.Print "Case Else is Only here to see other Fired Controls"
 End Select
Exit sub
Err_Proc:
 Select Case Err.Number
 Case 0:
 Case Else:
 MsgBox Err.Number & " " & Err.Description
 End Select
End Sub
' That was only to demonstrate the Menu Play/Pause