TGFC Lifestyle - Powered by Discuz! Board

标题: [数码手机] 再请教一个VB问题。。。用了beep播放音乐就不能做其它事情了，怎么解决？？ [打印本页]

作者: shixn 时间: 2009-9-3 22:48 标题: 再请教一个VB问题。。。用了beep播放音乐就不能做其它事情了，怎么解决？？

就是每10分钟，播放一段beep，提醒到时间，同时弹出一个msgbox，中止or继续。

但是beep一响，整个程序就没反映了，啥事也干不了……弹出了msgbox也点不了，只能等

doevents俺也加了，可不管事啊。。。

代码如下。。。

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Timer1_Timer()
DoEvents
  msgbox(....)
  Beep(500, 500)
  Beep(400, 400)
  Beep(300, 300)

End Sub

欢迎光临 TGFC Lifestyle (http://bbs.tgfcer.com/)