窗口弹出当前选中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口弹出当前选中

共有2106人关注过本帖树形打印复制链接主题：窗口弹出当前选中

benwong2015

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：122 积分：1546 威望：0 精华：0 注册：2018/7/4 8:21:00

窗口弹出当前选中 发帖心情

Post By：2018/9/12 16:25:00 [只看该作者]

做了一个文件夹下文件命名的监控软件，希望文件夹添加文件的时候系统会弹出窗口，并且窗口也设计了顶层，但弹出之后还是需要鼠标点击当期窗体之后才能在文本框输入，有没有办法设置成弹出对话窗体后，直接可以用键盘输入，而不需要鼠标再点；

此主题相关图片如下：2.jpg

此主题相关图片如下：23.jpg

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/12 16:51:00 [只看该作者]

1、afterLoad事件

e.form.text = e.form.name
e.form.TimerInterval = 500
e.Form.TimerEnabled = True

2、timertick事件，写代码

If ShowAppWindow(e.Form.text,1) Then
e.Form.controls("textbox1").Select
e.Form.TimerEnabled = False
End If

主题：窗口弹出当前选中