Office中国论坛/Access中国论坛

标题: [求助]如何使窗体总是获得焦点？ [打印本页]

作者: tmtming 时间: 2006-12-4 19:44
标题: [求助]如何使窗体总是获得焦点？
有窗体1、窗体2，两个都是弹出式窗体，窗体1有一按钮，点击后弹出窗体2，现想当窗体2打开后，会自动把焦点返回给窗体1。即窗体1总是获得焦点。

作者: 一点通 时间: 2006-12-4 20:03
参考一下这个例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=39268

作者: tmtming 时间: 2006-12-4 20:43
看了，不是我要的效果，我想要的是总是获得焦点（即边框总是蓝色的不会变灰），不是总是在前面。

作者: gaoqiwen 时间: 2006-12-4 22:54
可利用窗体1的Timer事件使窗体1重获焦点：

Private Sub Command0_Click()
DoCmd.OpenForm "窗体2"
Form.TimerInterval = 500
End Sub

Private Sub Form_Timer()
If CurrentProject.AllForms("窗体2").IsLoaded Then
Forms("窗体1").SetFocus
Form.TimerInterval = 0

End If
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)