楼主
winnie_xyh |
Q:vba怎么播放音乐和停止音乐
A:代码如下：- Private 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 Long
- Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
- Private Function ConvShortFilename(ByVal strLongPath$) As String
- Dim strShortPath$
- If InStr(1, strLongPath, " ") Then
- strShortPath = String(LenB(strLongPath), Chr(0))
- GetShortPathName strLongPath, strShortPath, Len(strShortPath)
- ConvShortFilename = Left(strShortPath, InStr(1, strShortPath, Chr(0)) - 1)
- Else
- ConvShortFilename = strLongPath
- End If
- End Function
- Public Sub Mp3Play(ByRef FileName As String)
- FileName = ConvShortFilename(FileName)
- mciSendString "close " & FileName, vbNullString, 0, 0
- mciSendString "open " & FileName, vbNullString, 0, 0
- mciSendString "play " & FileName, vbNullString, 0, 0
- End Sub
- Public Sub Mp3Stop(ByRef FileName As String)
- FileName = ConvShortFilename(FileName)
- mciSendString "stop " & FileName, vbNullString, 0, 0
- mciSendString "close " & FileName, vbNullString, 0, 0
- End Sub
- Dim mp3file As Variant
- Private Sub CommandButton1_Click()
- mp3file = ThisWorkbook.Path & "\混音版.mp3"
- Sheet1.Mp3Stop (LastMp3File)
- LastMp3File = mp3file
- Sheet1.Mp3Play (mp3file)
- End Sub
- Private Sub CommandButton2_Click()
- Sheet1.Mp3Stop (mp3file)
- End Sub
 VBA添加音乐.rar
|
我要用来做贺卡