UC知道vb文本框焦点问题
来源：百度知道 编辑：UC知道 时间：2024/06/16 09:32:29
点按钮 文本框焦点会失去
但是点窗体 文本框焦点就不会消失 为什么啊
要怎么才能再点窗体时 文本框焦点消失
Private Sub Text1_lostfocus()
Dim a
a = Val(Text1.Text)
If a < 0 Or a > 50 Then
Beep
Text1.Text = ""
Text1.SetFocus
Print "重新输入"
Else
Print a
End If
End Sub
但是点窗体 文本框焦点就不会消失 为什么啊
要怎么才能再点窗体时 文本框焦点消失
Private Sub Text1_lostfocus()
Dim a
a = Val(Text1.Text)
If a < 0 Or a > 50 Then
Beep
Text1.Text = ""
Text1.SetFocus
Print "重新输入"
Else
Print a
End If
End Sub
Private Sub Form_Click()
Text1_LostFocus '手动触发失去焦点
End Sub
只有当窗体上没控件，或者所有控件都不能接受焦点（比如Lable）时，窗体才能获得焦点
要想文本框控件焦点消失，就把焦点移到其他地方去
Private Sub Form_Click()
Text1_lostfocus
End Sub
private sub form1_click()
text1.lossfocus
end sub
你的问题有点反常，可以通过代码实现。
Private Sub Form_Click()
Form.SetFocus
End Sub