Question

求 控件RichTextBox1的，一种事件

Private Sub RichTextBox1_Change()
'这个事件是键盘输入文本后开始执行的代码。
Private Sub RichTextBox1_？？？？
'求的事件是按下键盘某按键先执行代码后对 RichTextBox1 文本更改的事件。

Answer 1

依次执行RichTextBox1_keydown、RichTextBox1_keypress、RichTextBox1_Change
keydown和keypress都在RichTextBox1_Change之前执行，这几个事件类似于textbox控件
private sub RichTextBox1_keypress(keyascii as integer)
执行你的代码
如果不想修改RichTextBox1的值，可：keyascii=0
本程序执行完毕后继续执行RichTextBox1_Change
如果keyascii=0，RichTextBox1_Change将不执行，因为RichTextBox1没有变化。
end sub