以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  模拟按下p键  (http://foxtable.com/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
--  
什么类型的窗口?