VB 声音提示

原创 2013年12月05日 17:03:29
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 880, 100: playsnd 988, 100: playsnd 1047, 200: playsnd 988, 100: playsnd 988, 100
playsnd 880, 100: playsnd 100, 150: playsnd 880, 100: playsnd 784, 100:: playsnd 988, 100: playsnd 0, (5)
playsnd 988, 100: playsnd 0, (5)::: playsnd 988, 100: playsnd 0, (5):::: playsnd 988, 100: playsnd 880, 100
playsnd 784, 100: playsnd 740, 100: playsnd 784, 200: playsnd 100, 200:: playsnd 784, 100: playsnd 880, 100
playsnd 784, 100: playsnd 988, 100: playsnd 0, (5)::: playsnd 988, 100:: playsnd 0, (5)::: playsnd 988, 100
playsnd 0, (5)::: playsnd 988, 100: playsnd 100, 100: playsnd 587, 100:: playsnd 784, 100: playsnd 1175, 100
playsnd 0, (5)::: playsnd 1175, 99: playsnd 988, 100: playsnd 0, (5):::: playsnd 988, 100: playsnd 0, (5)
playsnd 987, 100: playsnd 100, 100: playsnd 784, 100: playsnd 0, (5):::: playsnd 784, 100: playsnd 880, 200
playsnd 784, 100: playsnd 0, (5)::: playsnd 784, 100: playsnd 0, (5):::: playsnd 784, 50:: playsnd 659, (50)
playsnd 784, 100: playsnd 659, 100: playsnd 784, 100: playsnd 880, 100:: playsnd 100, 100: playsnd 587, 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, 0
  mciSendString "open C:\Windows\Media\onestop.mid", vbNullString, 0, 0
  mciSendString "play C:\Windows\Media\onestop.mid", vbNullString, 0, 0
版权声明:本文为博主原创文章,未经博主允许不得转载。

JQuery自动播放提示音

在网站开发中,有时需要一个提示音告诉不在浏览器面前的人有新消息了。当然很多人想能不能实现浏览器自动置顶到其他桌面程序,然后弹出窗口告诉用电脑的人呢?答案是不行的,浏览器目前不知道这样的事件,但是浏览器...
  • yy374864125
  • yy374864125
  • 2014年09月29日 13:46
  • 7837

android 自定义notification的提示音

package com.example.notification; import android.app.Activity; import android.app.Notification; imp...
  • chenli052
  • chenli052
  • 2014年04月28日 15:55
  • 3443

监控网页内容,发现需要的内容后弹框和声音提醒

帮朋友的忙写了个小应用,他需要每隔一段时间自动访问一个网页,如果发现特定的内容就弹框提醒和声音提醒,一条消息已经提醒过了就不用再次提醒了,只有遇到新的才提醒。 这是一个小功能,一会儿就搞完了,把里面...
  • lk_blog
  • lk_blog
  • 2015年09月30日 22:12
  • 3414

VB实现给控件添加系统声音

作品展中组员做了一个小游戏,功能都实现了但还有很多方面要维护,其中添加声音就是改进的一方面。通过上网搜集找到了些代码,很简单也很有意思,和大家分享一下。         (1)添加“咚”的声音  ...
  • ggibenben1314
  • ggibenben1314
  • 2012年04月22日 10:32
  • 3256

VB加入声音图片的按钮

  • 2014年03月19日 14:46
  • 27KB
  • 下载

VB版DWL声音频谱分析仪(示波器)

  • 2013年05月16日 00:58
  • 27KB
  • 下载

精彩编程与编程技巧-在VB应用程序中恰当的使用声音...

  • 2009年10月10日 22:50
  • 3KB
  • 下载

精彩编程与编程技巧-在vb6中如何使机箱内的小喇叭发出不同的声音?...

  • 2009年10月10日 22:49
  • 1KB
  • 下载

定时闹钟倒计时程序(VB6.0代码编写),定时闹钟倒计时程序,自动调用系统时间,当定时到时可以发出声音提醒,也可以显示倒计时。

  • 2009年06月29日 10:18
  • 6KB
  • 下载

VB版的真正Wav声音波型分析代码(推荐)

  • 2005年12月21日 10:42
  • 18KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB 声音提示
举报原因:
原因补充:

(最多只允许输入30个字)