- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 添加远程升级后登录界面失去焦点怎么整？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128777)
-- 发布时间：2018/12/14 18:56:00
-- 添加远程升级后登录界面失去焦点怎么整？
之前 AfterOpenProject代码是这样的：
以下内容为程序代码:
1 Forms("用户登录").Open()
2 If _UserName = "" Then
3 Syscmd.Project.Exit()
4 Return
5 End If
双击程序打开后，焦点自动在密码输入框里，输入密码确认，即可登录。
可是添加远程升级后，代码改成如下：
双击程序打开后，整个程序都失去了焦点，需要手动点击密码框，进行输入密码？以下内容为程序代码:
1 If Syscmd.Project.Update(False,True) = False Then
2 Forms("用户登录").Open()
3 If _UserName = "" Then
4 Syscmd.Project.Exit()
5 Return
6 End If
7 End If
有什么办法回到从前吗？
此主题相关图片如下：2018-12-14 18_51_33.png
此主题相关图片如下：2018-12-14 18_51_33.png-- 发布时间：2018/12/14 20:42:00
--
登录窗口afterload
e.Form.BaseForm.TopMost = True
e.form.select
e.form.controls("某个输入框").select
-- 发布时间：2018/12/14 20:42:00
--
或者参考：http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=124991&skin=0