Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long,ByVal dwDuration As Long) As Long
Private Sub Form_Load()
playsnd 587,100: playsnd 784,100: playsnd 880,100: playsnd 988,100:: playsnd 988,200: playsnd 0,100
playsnd 988,100: playsnd 1047,200: playsnd 988,100
playsnd 880,100: playsnd 100,150: playsnd 880,100: playsnd 0,(5)
playsnd 988,(5)::: playsnd 988,(5):::: playsnd 988,100
playsnd 784,100: playsnd 740,200: playsnd 100,200:: playsnd 784,100:: playsnd 0,100
playsnd 0,100: playsnd 587,100:: playsnd 784,100: playsnd 1175,(5)::: playsnd 1175,99: playsnd 988,(5)
playsnd 987,(5):::: playsnd 784,200
playsnd 784,(5)::: playsnd 784,50:: playsnd 659,(50)
playsnd 784,100: playsnd 659,100:: playsnd 100,110
playsnd 784,120: playsnd 880,130: playsnd 740,140: playsnd 784,200:: playsnd 1,1::::: playsnd 1,1
End Sub
Function playsnd(ByVal x As Long,y As Long)
Beep x,y * 3
DoEvents
End Function
-------------------------------------------------
-----
-----------------
Beep不行，用API。引用：
Public 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
例子：
mciSendString "close C:\Windows\Media\onestop.mid",vbNullString,0
mciSendString "open C:\Windows\Media\onestop.mid",0
mciSendString "play C:\Windows\Media\onestop.mid",0
原文地址：https://www.jb51.cc/vb/258311.html
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
