如何去掉“叮、叮”声

一个单行文本框里输入公式，敲回车在Keypress事件里执行，一切正常，但是系统会发出“叮、叮”的声音，怎样才能把它去掉呢？

解决方案 »

  1.   

    Option ExplicitPrivate Sub Text1_KeyPress(KeyAscii As Integer)
    '你的代码写在这里
    KeyAscii = 0
    End Sub
      

  2.   

    laisiwei(.:RNPA:.刺猬) 
    不可能啊，声音还有
      

  3.   

    laisiwei(.:RNPA:.刺猬) 
    这怎么回事，有的机子有声音，而有的机子没有了
      

  4.   

    to tearsboy() 
    no,no,偶在南京上学
      

  5.   

    Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then KeyAscii = 0
    End Sub
      

  6.   

    代码里没写，怎摸回有叮叮声呢？是不是你代码里有蜂鸣声Beep的循环啊回答一下！
      

  7.   

    设置好   tabindex 
    然后在 keypress 中 
    用  sendkey {Tab} 进行焦点转移
      

  8.   

    呵呵，上次我们用spread也是莫名奇妙发声音，删除，再加一个spread就没有问题了
    搞不懂-_-#
      

  9.   

    laisiwei(.:RNPA:.刺猬) 所说的方法，不一定可以成功的，楼主可以有个方法解决：
    将你的控制面板-》声音-》设置为无声方案
      

  10.   

    是不是回车的原因？？
    把在KeyDown里写呢？
    或者把KeyAscii清零
      

  11.   

    在kepress事件中加入:
    text1.enabled=false
    text1.enabled=true
      

  12.   

    WallesCai(我是老蔡，不是泡菜！) 
    用程序的人在使用之前，还得设置一下“控制面板”啊！
      

  13.   

    要实现的功能就是在文本框里输入一个数学表达式进行运算，那个声音挺郁闷的，
    to WallesCai(我是老蔡，不是泡菜！) 
    怎样用程序关闭系统的声音方案呢？
      

  14.   

    laisiwei(.:RNPA:.刺猬) 觉得正解，楼主试之
      

  15.   

    Option ExplicitPrivate Sub Text1_KeyPress(KeyAscii As Integer)
    '你的代码写在这里
    KeyAscii = 0
    End Sub
      

  16.   

    既然有声音  那就 在运行此操作时停止windows播放声音  结束此操作时恢复声音 。有相关的api  baidu就能搜索到