以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 模拟按下p键 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185527) |
-- 作者:weibu -- 发布时间:2023/2/28 11:20:00 -- 模拟按下p键 老师模拟按下P键盘键。代码是:SendKeys.SendWait("{P}") 这个吗? |
-- 作者:有点蓝 -- 发布时间:2023/2/28 11:32:00 -- 去掉大括号 |
-- 作者:weibu -- 发布时间:2023/2/28 11:59:00 -- 老师,如果打开多个窗口(包含非狐表的外部窗口),什么代码可以使窗口1变为当前窗口。 |
-- 作者:有点蓝 -- 发布时间:2023/2/28 12:06:00 -- http://www.foxtable.com/webhelp/topics/2713.htm |
-- 作者:weibu -- 发布时间:2023/2/28 15:54:00 -- 老师多个窗口同时打开时(打开窗口包含窗口1),点击按钮“窗口1”,就激活这个窗口为当前窗口的代码如何写? |
-- 作者:有点蓝 -- 发布时间:2023/2/28 15:57:00 -- ShowAppWindow("窗口1",2) |
-- 作者:weibu -- 发布时间:2023/2/28 15:59:00 -- 狐表内部窗口也是这个代码吗? ClipBoard.SetText(tx) SetCursorPos (r1("x"), r1("y")) \'鼠标位置 mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) \'点击 mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) mouse_event( MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0) \'点击 mouse_event (MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0) System.Threading.Thread.Sleep(100) SendKeys.SendWait("P") SendKeys.SendWait("{Enter}") \'上面代码是把tx黏贴到指定位置。并回车;测试正常运行 System.Threading.Thread.Sleep(100) Forms("窗口1").Text = tx \'窗口1为狐表中的内部窗口 Forms("窗口1").Show() ’激活窗口1并为当前窗口,代码未执行 e.Form.Controls("textbox1").Select() \'光标放在窗口1中的textbox1,代码未执行 e.Form.Controls("TextBox1").Text = Nothing’清空textbox1的数据,代码未执行 [此贴子已经被作者于2023/2/28 16:25:48编辑过]
|
-- 作者:有点蓝 -- 发布时间:2023/2/28 16:07:00 -- Foxtable的窗口用show:http://www.foxtable.com/webhelp/topics/0709.htm |
-- 作者:weibu -- 发布时间:2023/2/28 17:03:00 -- 老师标蓝色的代码未执行,请问怎么修改? SetCursorPos (r1("x"), r1("y")) \'鼠标位置 mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) \'点击 mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) mouse_event( MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0) \'点击 mouse_event (MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0) System.Threading.Thread.Sleep(100) SendKeys.SendWait("P") SendKeys.SendWait("{Enter}") \'上面代码是把tx黏贴到指定外部窗口的位置。并回车;测试正常运行 System.Threading.Thread.Sleep(100) Forms("窗口1").Text = tx \'窗口1为狐表中的内部窗口 Forms("窗口1").Show() ’激活窗口1并为当前窗口,代码未执行 Forms("窗口1").Controls("textbox1").Select() \'光标放在窗口1中的textbox1,代码未执行 Forms("窗口1").Controls("TextBox1").Text = Nothing’清空textbox1的数据,代码执行了
|
-- 作者:有点蓝 -- 发布时间:2023/2/28 17:04:00 -- 什么类型的窗口? |