Option ExplicitPrivate Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As LongPrivate Sub Command1_Click() Dim S As String mciSendString "open " & Text1.Text & " alias MPEG", vbNullString, 0, 0 S = String(256, Chr(0)) mciSendString "status MPEG length", S, Len(S), 0 MsgBox Val(S) End Sub 这只是长度,时间应是长度除比特率吧?
Dim S As String
mciSendString "open " & Text1.Text & " alias MPEG", vbNullString, 0, 0
S = String(256, Chr(0))
mciSendString "status MPEG length", S, Len(S), 0
MsgBox Val(S)
End Sub
这只是长度,时间应是长度除比特率吧?