Visual Basic Programming Code Examples
Visual Basic > Code Snippets Code Examples
Winmm example
Winmm example
Plays an AVI file
'winmm function examples
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Public Function SoundCard() As Boolean
Dim lng As Long
lng = waveOutGetNumDevs()
If lng > 0 Then
SoundCard = True
Exit Function
Else
SoundCard = False
Exit Function
End If
End Function
Public Sub PlayAvi()
Dim strAviPath As String
Dim strCmdStr As String
Dim lngReturnVal As Long
strAviPath = "h:\windows\clock.avi"
strCmdStr = "play " & strAviPath & " fullscreen "
lngReturnVal = mciSendString(strCmdStr, 0&, 0, 0&)
End Sub
Private Sub Form_Load()
MsgBox SoundCard()
Call PlayAvi
End Sub
'Notes:
'change the "h:\windows\clock.avi" to an AVI file on your system
