是太难还是我不会啊

Question

private sub text1_keypress(byval keyascii as integer)
    keyascii=0
end sub

Answer 1

就是楼上所说的方法。或者Locked为True

Answer 2

那就在richTextBox1_TextChanged事件
里修改文本

Answer 3

Locked 属性（RichTextBox 控件）
      返回或设置一个值，该值指出 RichTextBox 控件中的内容是否能被编辑。语法object.Locked [= boolean]Locked 属性的语法包含下面部分：部分 描述 
object 对象表达式，其值是一个 RichTextBox 控件。 
boolean 布尔表达式，按“设置值”所指定的那样，指出控件的内容是否能被编辑。 
设置值boolean 的设置值是：设置值 描述 
True 可以滚动或突出显示控件中的文本，但不能对它进行编辑。程序中仍可通过改变 Text 属性来修改文本。 
False （缺省）可以编辑控件中的文本。 

Answer 4

再做一个用户控件，把你要用的那个控件装进去，把用户控件的KeyPreview属性改成True。这样键盘事件会先转发到你的用户控件，这样就可以屏蔽掉它了。

Answer 5

zhangyan_qd(doggyzone) :怎么我试验了你的方法还是不行啊,你可以看一下http://www.csdn.net/expert/topic/1006/1006150.xml?temp=.9890558,
如果哪位能帮我解决了,400分相送,决不食言啊?
帮帮帮帮帮帮帮帮帮帮帮帮帮帮帮帮帮帮帮帮忙啊

Answer 6

lock 不好使 。。还是可以粘贴的，，最好是做个控件包住它。

Answer 7

Private Sub Text2_GotFocus()
     Text1.SetFocus
End Sub这样永远也输入不了   
================================================================ok?

Answer 8

设置了keypreview之后，UserControl的KeyPress事件先于你害怕的那个控件的KeyPress事件发生，然后就
Sub UserControl_KeyPress(KeyAscii as integer)
    KeyAscii = 0
End Sub
你的控件接到的KeyAscii是0，应该就没有什么动作了。我用Rich Textbox做了个试验，确实没法输入。不过这个方法不能屏蔽粘贴动作。我对剪贴板没什么研究，问问其他人吧。

Answer 9

还是不对，我正在试试
zhangyan_qd(doggyzone)，你能将RichText控件环城微软的Dhtml Edit 控件，将这个控件放在自己的控件中，让这个DHTML edit不能被输入内容，你能试试吗，谢谢了。
DHTM edit的最主要的用法：
dhtmledit1.BrowserMode = false
dhtmledit1.loadDocument "c:\index.htm"
然后在dhtm edit控件中读入的网页可以随意编辑,现在我不想让他可以编辑,但又不能将Browsermode设为true.

Answer 10

你说的没错，我试了，DHTML控件确实和其他控件不一样，KeyPreview之后父控件还是捕获不了发给DHTMLEditor的按键消息。需要好好研究一下......

Answer 11

'在Change事件中加入就行了..
Private Sub rtfText_Change()
    rtfText.Text = ""
End Sub

Answer 12

Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
    If (条件) Then KeyCode = 0
End Sub
'如果条件不合适的话，就是它按什么键也不会有用！不过，
'如果用windows的消息SetWindowText的话，那就没办法了。不过，用户的按键只能在合适的条件下才会有用。

Answer 13

重写一个简短的消息处理函数，
在消息处理函数中滤掉 WM_KEYDOWN 等消息。
此方法我们大量使用，没有问题。
提示：GetWindowLong、SetWindowLong、CallWindowProc

Answer 14

putongren(普通人) :能给我个简短的例子吗