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

大师：请问为何自定义的登陆窗口显示后，鼠标焦点在TextBox1控件中。但不能输入，非要再用鼠标点击一下才行？

窗口打开后的代码如下：

e.Form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None

e.Form.AcceptButton = "Button1" ' -----按回车键的按钮

e.Form.BaseForm.ShowInTaskBar = True '-----在任务栏显示此窗口---

e.Form.Select()

e.Form.Controls("TextBox1").Enabled = True

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

e.Form.Controls("TextBox1").BaseControl.Focus()

Timertick事件

If ShowAppWindow(e.Form.Text, 1) = True Then

e.Form.BaseForm.TopMost = True

e.Form.TimerEnabled = False

End If

还是不行。我来重新表述一下：

1、双击打开项目文件夹

2、双击项目文件打开项目运行

3、显示了自定义的登陆窗口，光标在该窗口中的TextBox1显示。

4、用键盘输入"a"时，光标就选定项目文件夹中的以”a“开头的文件夹，不能再TextBox1中输入字符。非要用鼠标在此点击一下，才能输入字符。我希望不用光标在此处点击，用键盘输入"a"时，就能输入。

试试

e.Form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None

e.Form.AcceptButton = "Button1" ' -----按回车键的按钮

e.Form.BaseForm.ShowInTaskBar = True '-----在任务栏显示此窗口---

e.Form.BaseForm.TopMost = True

If e.Form.BaseForm.CanFocus Then e.Form.BaseForm.Focus()
e.Form.Controls("TextBox1").Enabled = True

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

不，可，能，自己看2楼，timertick事件你要开启啊

http://www.foxtable.com/help/topics/1301.htm

就可能，一打开窗口就开启了。

你的登陆窗口改一个特殊的标题名字，然后加入msgbox测试是否执行了代码啊

msgbox(date.now)

If ShowAppWindow("登陆窗口标题", 1) = True Then

e.Form.BaseForm.TopMost = True

e.Form.TimerEnabled = False

End If

实在不行，请做一个例子发上来测试。

我的窗口打开后本来就有计划在执行，文字移动。这个问题去年就问了，您帮人家搞了，说我的问题简单，不复杂。但一直未解决。

窗口afterload事件代码为：

e.Form.BaseForm.TopMost = True

e.Form.TimerInterval = 1 '设定定时器周期为10/1000=0.01秒

e.Form.TimerEnabled = True ' 起动定时器

Dim lab3 As WinForm.Label = e.Form.Controls("Label3")

Dim lab4 As WinForm.Label = e.Form.Controls("Label4")

Dim lab5 As WinForm.Label = e.Form.Controls("Label5")

lab3.Left = -lab3.Width

lab4.Left = -lab4.Width

lab5.Left = lab5.Width

lab3.Text = "系统"

lab4.Text = "financial statement"

If UKey.Start() Then

Dim khs As String = UKey.ReadStr(0,50)

lab5.Text = khs

End If

If loginMode = True Then

e.Form.Text = "用户登录"

e.Form.Controls("Button1").Text = "登录"

e.Form.Controls("Button2").Text = "退出"

Else

e.Form.Text = "切换用户"

e.Form.Controls("Button1").Text = "切换"

e.Form.Controls("Button2").Text = "取消"

End If

'e.Form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None

'e.Form.AcceptButton = "Button1" ' -----按回车键的按钮

'e.Form.BaseForm.ShowInTaskBar = True '-----在任务栏显示此窗口---

'e.Form.Select()

'e.Form.Controls("TextBox1").Enabled = True

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

'e.Form.Controls("TextBox1").BaseControl.Focus()

e.Form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None

e.Form.AcceptButton = "Button1" ' -----按回车键的按钮

e.Form.BaseForm.ShowInTaskBar = True '-----在任务栏显示此窗口---

e.Form.BaseForm.TopMost = True

If e.Form.BaseForm.CanFocus Then e.Form.BaseForm.Focus()

e.Form.Controls("TextBox1").Enabled = True

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

timetick事件代码为：

Dim lab3 As WinForm.Label = e.Form.Controls("label3")

Dim lab4 As WinForm.Label = e.Form.Controls("label4")

Dim lab5 As WinForm.Label = e.Form.Controls("label5")

Dim n1 As Boolean = False

Dim n2 As Boolean = False

Dim n3 As Boolean = False

If lab3.left > (e.Form.width - lab3.Width)/2 Then

lab3.left = (e.Form.width - lab3.Width)/2

n1 = True

Else

lab3.left += 1

End If

If lab4.left > (e.Form.width - lab4.Width)/2 Then

lab4.left = (e.Form.width - lab4.Width)/2

n2 = True

Else

lab4.left += 1

End If

If lab5.left < (e.Form.width - lab5.Width)/2 Then

lab5.left = (e.Form.width - lab5.Width)/2

n3 = True

Else

lab5.left -= 1

End If

If n1 = True And n2 = True And n3 = True Then

e.Form.TimerEnabled = False

劳驾帮忙解决，光标在窗口的TextBox1控件中闪烁，不用鼠标点击此控件，就不能输入字符的原因？??????

叫你用7楼代码测试。不会做就上传实例啊

主题：请教登陆窗口的焦点问题