1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Public Class FormInitial
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim WavFileName = Chr(34) & "C:\monwav.wav") & Chr(34)
mciSendString("open " & WavFileName & " alias monwav", Nothing, 0, 0)
Dim RetString As New String(" "c, 50)
mciSendString("Set monwav time format milliseconds", Nothing, 0, 0)
mciSendString("Status monwav length", RetString, RetString.Length, 0)
MsgBox(RetString.ToString)
mciSendString("close monwav", Nothing, 0, 0)
End Sub
End Class |
Partager