关于PrivateSubtxtInput_LostFocus()DimResponseAsIntegerIf(IsNumeric(txtInput.Text)=TrueAndVal(txtInput.Text)>=0)TheniStr=txtInput. (“输入数椐仅由阿拉伯数字0-9组成”,vbOKOnly+vbCritical,”数据出错”)txtInput.SetFocusEndIfEndSubLostFocus()是什么意思呢?txtInput.SetFocus又是什么意思?请高手给我指点着两个问题拉!谢谢!的问题
这段代码的含义：
当文本框txtInput失去焦点时执行事件过程txtInput_LostFocus()，判断文本框中的内容，如果是数字且数值大于等于0时，将文本框内容覆赋给变量istr，否则出现消息框，并使文本框再次获得焦点。
看来这是一段要求输入口令或用户名等的代码，LostFocus是文本框的事件之一，当文本框失去焦点，即框内没有光标时，触发该事件。
SetFocus是文本框的方法之一，调用该方法，使得文本框获得焦点，即框内有一个工字形的光标，说明文本框可以接受键盘输入。
