- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口弹出当前选中 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124727)
-- 发布时间：2018/9/12 16:25:00
-- 窗口弹出当前选中
做了一个文件夹下文件命名的监控软件，希望文件夹添加文件的时候系统会弹出窗口，并且窗口也设计了顶层，但弹出之后还是需要鼠标点击当期窗体之后才能在文本框输入，有没有办法设置成弹出对话窗体后，直接可以用键盘输入，而不需要鼠标再点；
此主题相关图片如下：2.jpg
此主题相关图片如下：23.jpg
-- 发布时间：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