在窗体的FORM_LOAD过程中执行text1.setfocus,出现错误提示 "无效的过程调用或参数" 是怎么回事，如何避免

himetric 2014-12-11 09:58:42

Private Sub Form_Load()
Option1.value = True
End Sub

Private Sub Option1_Click()

Text1.Visible = True
Text1.SetFocus

End sub

执行到Text1.SetFocus这一句时提示：无效的过程调用或参数，请问（1）是什么原因，（2）如何添加一个判断，当处在窗体过载过程中或窗体未显示的状态时，不执行Text1.SetFocus这个语句。谢谢大家！

...全文

254 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

Tiger_Zhao 2014-12-11

打赏
举报

Form_Load 是初始化界面，初始化之后才会显示，没显示就没焦点。

Private Sub Form_Activate()

    Static bInitilized As Boolean

    

    If Not bInitilized Then

        bInitilized = True

        Option1.Value = True

    End If

End Sub



Private Sub Option1_Click()

    

    Text1.Visible = True

    Text1.SetFocus



End Sub

himetric 2014-12-11

打赏
举报

引用 1 楼 Tiger_Zhao 的回复:

Form_Load 是初始化界面，初始化之后才会显示，没显示就没焦点。

Private Sub Form_Activate()
    Static bInitilized As Boolean
    
    If Not bInitilized Then
        bInitilized = True
        Option1.Value = True
    End If
End Sub

Private Sub Option1_Click()
    
    Text1.Visible = True
    Text1.SetFocus

End Sub

非常感谢