学步园

控件的KeyPress事件里添加
SendKeys.Send("{Tab}");
实现了回车实现tab键功能，但是每按一次回车会发出声音，不能像按tab键一样不发出警报声

在keypress中
if(e.KeyChar==(char)13) e.Handled=true;

就不会发出警报声了。

另：在按钮上按回车或是按空格，都是触发单击事件，这是Windows的传统啊。。。

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then'如果按下回车
   KeyAscii = 0'不发声
End If
End Sub

如何消除在TEXT中回车的“嘀”声音。
用以下的方法可以消除聲音.  
  Private   Sub   Text1_KeyPress(KeyAscii   As   Integer)  
        Dim   strvalid   As   String  
          strvalid   =   "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"  
          KeyAscii   =   Asc(UCase(Chr(KeyAscii)))  
          If   KeyAscii   >   26   Then  
              If   InStr(strvalid,   Chr(KeyAscii))   =   0   Then   KeyAscii   =   0  
          End   If  
          If   KeyAscii   =   Asc(vbCr)   Then   KeyAscii   =   0  
  End   Sub