大虾帮忙：怎么屏蔽系统beep?

Question

come onanyOne can help me ,please?

Answer 1

谢谢,我是指程序调用，有没有相应的API函数。

Answer 2

Private Declare Function SetCapture Lib "user32" Alias "SetCapture" (ByVal hwnd As Long) As Long在MouseDown事件里判断鼠标位置

Answer 3

用 SendKey 发送一个 0 给它，

Answer 4

对了，用  SendKey  发送一个  0  给它，是什么意思？给谁发？

Answer 5

在弹出的小窗体中加入如下代码即可解决这个问题：
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As LongPrivate Sub Form_Load()
  SetCapture Me.hwnd
End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  ReleaseCapture
  Unload Me
End Sub