急~~vb的一道程序题

显示全部楼层 · 2009-3-26 11:00:30

详细的问题说明，有助于Private sub command1_click()
text1.text="visual basic"
End sub
Private sub text1_lostfocus()
If text1.text"BASIC"then
Text1.text=""
Text1.setfocus
End if
End sub
程序运行后，在text1文本框中输入"Basic"然后单机按钮。为什么会出现文本框中无内容，焦点在文本框中，而不是visual basic在文本框中，请解释下

千问 · 2009-3-26 11:00:30

Private sub text1_lostfocus() 事件写明了失去焦点时~当文本框1中不是BASIC 就清空text1 且text1具有焦点你在单击按钮时。按钮获得焦点 text1的焦点就没有~就这么简单。...

千问 · 2009-3-26 11:00:30

因为你单击按钮后，文本框中是 "visual basic" 。同时你的程序有要求当文本框失去焦点是，并且文本框不是“BASIC”，所以就的空的了。...

千问 · 2009-3-26 11:00:30

很明显，你的文本框中的内容与“visual basic”不同，所以就执行了清空文本框以及文本框得到焦点的指令，出现你看到的结构。...

千问 · 2009-3-26 11:00:30

"Basic""BASIC"，大小写不同。因此Text1.text="" ，并且Text1.setfocus 。...