怎么让蜂鸣器beep?

我怎样才能让机器的蜂鸣器beep呢？用Beep函数没有声音。而且最好可以设定beep的时间长短。有人说要自己录一段声音，是不是一定要这样呢？ 问题点数：20、回复次数：3Top

1 楼gpo2002（永吹不休）回复于 2002-10-22 19:43:09 得分 20

Private   Declare   Function   Beep   Lib   "kernel32.dll"   (ByVal   dwFreq   As   Long,   _  
      ByVal   dwDuration   As   Long)   As   Long    
   
  Private   Sub   Command1_Click   ()    
      Dim   Retval   As   Long    
      Retval   =   Beep   (800&,   10&)    
   
      If   Retval   =   0   Then    
          Debug.Print   "Beep   ist   gescheitert"    
      End   If    
  End   SubTop

2 楼EpopeeLei（午夜狂编）回复于 2002-10-22 19:43:58 得分 0

Public   Declare   Function   APIBeep   Lib   "kernel32"   Alias   "Beep"   (ByVal   dwFreq   As   Long,   ByVal   dwDuration   As   Long)   As   Long  
  Private   Sub   Command1_Click()  
          APIBeep   220,   500  
  End   Sub  
  Top

3 楼wts（天胜）回复于 2002-10-22 19:51:03 得分 0

挺有意思，原来这个API可以搞定啊！关注！Top

相关问题

• beep
• 蜂鸣器
• apibeep
• dwfreq
• dwduration
• retval
• byval
• kernel32
• sub command1
• as long

• 帖主：kennyow
• gpo2002

• Visual Basic类图书
• Visual Basic类源码下载