Private sub GetLength() As Single
Dim nLength%, sLength As String * 255
nReturn = mciSendString("Status" & sAlias & "length", sLength, 255, 0)
nLength = InStr(sLength, Chr(0))
GetLength = Val(Left(sLength, nLength))
End sub这样应该可以得出声音文件的长度,但是否播完还的在timer控件中检测
Dim nLength%, sLength As String * 255
nReturn = mciSendString("Status" & sAlias & "length", sLength, 255, 0)
nLength = InStr(sLength, Chr(0))
GetLength = Val(Left(sLength, nLength))
End sub这样应该可以得出声音文件的长度,但是否播完还的在timer控件中检测
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货