UC知道VB RichTextBox控件的一个小问题
来源：百度知道 编辑：UC知道 时间：2024/05/18 01:13:08
如何在RichTextBox1控件里面把回退键屏蔽掉啊？？
Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Or KeyAscii = 32 Then KeyAscii = 0
End Sub
用这个可以屏蔽掉空格但是对回退键却不起作用这是为什么啊？？请知道的大侠回答下，谢谢了
一楼的一看你就没有测试过，我都说了这样写可以屏蔽掉空格但对回退键不起作用,你以为我是说着玩呢啊。谢谢二楼的，你的代码是正确的。我就还有30分了给你加上了。
Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Or KeyAscii = 32 Then KeyAscii = 0
End Sub
用这个可以屏蔽掉空格但是对回退键却不起作用这是为什么啊？？请知道的大侠回答下，谢谢了
一楼的一看你就没有测试过，我都说了这样写可以屏蔽掉空格但对回退键不起作用,你以为我是说着玩呢啊。谢谢二楼的，你的代码是正确的。我就还有30分了给你加上了。
KeyDown事件中进行处理,在vb6下测试,可以实现空格与退格键的屏蔽:
Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 8 Or KeyCode = 32 Then KeyCode = 0
End Sub
Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Or KeyAscii = 32 or KeyAscii = 9 Or KeyAscii = 10 Or KeyAscii = 13 Then KeyAscii = 0
End Sub
全屏蔽