Foxtable(狐表) → 用户栏目 → 专家坐堂 → 模拟按下p键


  共有2854人关注过本帖树形打印复制链接

主题：模拟按下p键
帅哥哟，离线，有人找我吗？
weibu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：5240 威望：0 精华：0 注册：2018/5/19 22:27:00 		模拟按下p键  发帖心情 Post By：2023/2/28 11:20:00 [显示全部帖子]

老师模拟按下P键盘键。代码是：SendKeys.SendWait("{P}")  这个吗？

 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：5240 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2023/2/28 11:59:00 [显示全部帖子]

老师，如果打开多个窗口（包含非狐表的外部窗口），什么代码可以使窗口1变为当前窗口。

 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：5240 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2023/2/28 15:54:00 [显示全部帖子]

老师多个窗口同时打开时（打开窗口包含窗口1），点击按钮“窗口1”，就激活这个窗口为当前窗口的代码如何写？

 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：5240 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：5240 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：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的数据，代码执行了
 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：5240 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2023/2/28 17:08:00 [显示全部帖子]

“窗口1”是独立窗口

 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：5240 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2023/2/28 17:54:00 [显示全部帖子]

  老师光标仍然不能回到textbox1的文本框中。光标还是在外面的程序上？
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}")
        System.Threading.Thread.Sleep(100)

        Forms("窗口1").Text = tx        
        Forms("窗口1").Show()
        ShowAppWindow("窗口1", 2)
        Forms("窗口1").Controls("textbox1").Select()   
        Forms("窗口1").Controls("TextBox1").Text = Nothing
 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：5240 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2023/2/28 20:15:00 [显示全部帖子]

还是不行图片点击可在新窗口打开查看

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询