- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 自定义登陆窗体发布后默认当前窗口问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=112772)
-- 发布时间：2018/1/2 17:34:00
-- 自定义登陆窗体发布后默认当前窗口问题
使用自定义登陆窗体，发布后打开程序，在win系统中不是当前窗口，需要用鼠标点一点标题栏
此主题相关图片如下：qq图片20180102173327.png
这里文本框没法录入，每次要点下标题栏后才能录入
-- 发布时间：2018/1/2 18:09:00
--
在timertick事件写代码，如
If ShowAppWindow(e.Form.Text, 1) = True Then
e.Form.BaseForm.TopMost = True
e.Form.TimerEnabled = False
End If
http://www.foxtable.com/webhelp/scr/1322.htm
-- 发布时间：2018/1/2 22:11:00
--
老师，还是不行哦，登陆窗体timertick事件写代码，如
If ShowAppWindow(e.Form.Text, 1) = True Then
e.Form.BaseForm.TopMost = True
e.Form.TimerEnabled = False
End If
AfterLoad事件写代码
e.Form.TimerEnabled = True
-- 发布时间：2018/1/2 22:15:00
--
这个和操作系统以及已经打开的程序有关，没有办法完全控制。重启下电脑应该就可以了
-- 发布时间：2018/1/3 10:02:00
--
老师，还是不行哦，登陆窗体timertick事件写代码，如
肯定可以，你试试改成
msgbox(e.form.text)
If ShowAppWindow("登陆窗口", 1) = True Then
msgbox(123)
e.Form.BaseForm.TopMost = True
e.Form.TimerEnabled = False
End If
-- 发布时间：2018/1/5 11:32:00
--
不断弹出“登陆窗口”的提示框出来，后面代码未执行
If ShowAppWindow("登陆窗口", 1) = True Then
msgbox(123)
e.Form.BaseForm.TopMost = True
e.Form.TimerEnabled = False
End If
-- 发布时间：2018/1/5 11:46:00
--
那只需要改成这样即可，如
If ShowAppWindow("登陆窗口", 1) = True Then
e.Form.BaseForm.TopMost = True
e.Form.TimerEnabled = False
e.form.select
e.form.controls("textbox1").select
End If