VB 声音提示
发布时间：2020-12-17 08:04:03 所属栏目：百科 来源：网络整理
导读：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,10
|
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:WindowsMediaonestop.mid",vbNullString,0
mciSendString "open C:WindowsMediaonestop.mid",0
mciSendString "play C:WindowsMediaonestop.mid",0
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |