setfocus对象怎么用啊,请帮忙,在线等候.

olive_fy

请教,我刚刚学代码,要使一个控件获得焦点,格式什么样子啊?

请帮忙,在线等候.

下面是代码,这样子不能弹出窗口,焦点搞不好,如果删掉第四行(得到焦点的那行),窗口可以弹出.


Private Sub HTN_lostfocus()                    定义htn文本框控件失去焦点后的函数


  If [HTN].Text = "" Then                          判定文本框内容是否为空
  
    MsgBox "请输入热处理批号"                如果是空的弹出提示窗口

    [htn].setfocus=true                              htn文本筐重获焦点
   
Else
End If
End Sub

[ 本帖最后由 olive_fy 于 2008-12-29 11:13 编辑 ]

Henry D. Sy

If isnull([HTN]) Then                          判定文本框内容是否为空
  
    MsgBox "请输入热处理批号"                如果是空的弹出提示窗口

    me.[htn].setfocus
end if

olive_fy

谢谢版主

但是还是只能弹出窗口,焦点回不去啊.设置焦点到别的控件可以,就这个控件不行.

[ 本帖最后由 olive_fy 于 2008-12-29 12:05 编辑 ]

Henry D. Sy

将代码放在更新后

olive_fy

原帖由 Henry D. Sy 于 2008-12-29 12:04 发表
将代码放在更新后

谢谢版主

但是还是只能弹出窗口,焦点回不去啊.设置焦点到别的控件可以,就这个控件不行.

不能放在更新后啊,我是要判定出文本框是空的才要焦点回来的，放在更新后不是焦点一直在这里了？

Henry D. Sy

或者先让其他控件获得焦点，然后再将焦点移到htn

Henry D. Sy

比如
Private Sub Text0_LostFocus()
    If IsNull(Me.Text0) Then
        MsgBox 1
        Me.Text2.SetFocus
        Me.Text0.SetFocus
    End If
End Sub

Henry D. Sy

方法有很多，
这样也可以
Private Sub Text0_Exit(Cancel As Integer)
    If IsNull(Me.Text0) Then
        MsgBox 2
        Cancel = True
    End If
End Sub

olive_fy

非常感谢,很多论坛都没有见到这么热心的版主了.
已经按第一种方法解决.

83677847

好温暖