Question

VBA textbox change事件的疑问

Private Sub cmd2_Click()
Text1.Text = "studing all VB!"
Text1.SelStart = 8
Text1.SelLength = 2
MsgBox Text1.SelText
End Sub

Private Sub Text1_Change()
Text1.Text = "studing all VB!"
Text1.SelStart = 8
Text1.SelLength = 1
MsgBox Text1.SelText
End Sub
我在TEXT BOX里键入一个“a"或者其他一个什么字母的时候，为什么一个对话框里写着“a“ 的对话框会出现两次！？而，我按那个CMD1就不会出现这样的事情！求解！~

Answer 1

因为你按键盘是触动了一次text1_change,然后Text1.Text = "studing all VB!"这相当于又触发了一次text1_change。
按cmd也会出现两次我试了一下，一个是“a”另一个对话框写着"al"。正好对应的，第一次先触发text1_change,第二次才是MsgBox Text1.SelText

Answer 2

Text_Change是当内容改变时候触发。
无论程序改变还是用户输入，最后都是内容改变，都会引发Text_Change。

如果不想让程序设置的改变被处理，建议设置一个全局变量（如x）

程序：

Text1_Change:
if x=true then
x=false
else
x = true
Text1.Text = "changed!"
end if

Answer 3

这是一个焦点的问题，你在CMD1事件的代码中加上一句text1.setfouce应该就可以了的。
没试过，呵呵。估计的。