用户登陆窗口打开时密码不能输入问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我做了个系统，当打开软件时会先打开用户登陆窗口，然后密码文本框会被选择，然后由用户直接输入密码，我发现经常性的问题是

当显示这个窗口时，用户想直接输入密码时无反应，要用鼠标再点一下那个密码文本框才能正常输入密码，请问这是为什么呢？

此主题相关图片如下：登录窗口.png

AfterLoad的代码用如下方法，选择密码框,目的是让用户不用鼠标点这密码框去输入密码，而是直接就可以输入他的密码，但发现常常不能输入。

e.Form.Controls("TextBox1").Select()

这个窗口是模式窗口，请问要用什么方法解决这个问题？

焦点是在这个密码框中（看到光标是在这里的），但就是不能输入，经常要用鼠标去点一下才能输入密码。

[此贴子已经被作者于2014-9-4 15:04:20编辑过]

请问有没什么方法去将窗口作为激活窗口（用鼠标去点击的方法除外）

例子很难上传，能否远程看一下？

我发现了我在显示这个窗口前用了如下代码，这些代码是用来登录局域网中的共享文件的，其中主要的shell代码的说明如下

shell(pathname[,windowstyle]) 

Shell 函数的语法含有下面这些命名参数： 

部分 描述 
pathname 必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。 
Windowstyle 可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。 

windowstyle 命名参数有以下这些值： 

常量 值 描述 
vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。 
VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。 
VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。 
VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。 
VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。 
VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。

系统中的BeforeOpenProject代码为：

If FileSys.DirectoryExists("\\192.168.1.147\升级\产品规格表") Then

Return

Else

shell("net use \\192.168.1.147\升级 sjsj /user:sj",6)

End If

If FileSys.DirectoryExists("\\192.168.1.2\pic") Then

Return

Else

shell("net use \\192.168.1.2\pic 1011234 /user:101",6)

End If

[此贴子已经被作者于2014-9-4 15:55:31编辑过]

请问有没用FT的方法达到以上的目的？就是用狐表的代码可以做到自动登录局域网的？因为用shell会将窗口的焦点移到DOS中

[此贴子已经被作者于2014-9-4 16:01:11编辑过]

如果用0的话，窗口被隐藏，且焦点会移到隐式窗口。那它的焦点也是一样的移到DOS窗口？

经过一天的测试，发现一个问题，原来如果经过开发者登录窗口后，自己设计的登录窗口能才正常获得焦点，如果没过经过就不能正常获得输入焦点，要用鼠标手动点击才行，请问有没解决办法？

如果经过下面的窗口打开，就能正常：

此主题相关图片如下：登录窗口1.png

主题：用户登陆窗口打开时密码不能输入问题