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


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

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


加好友 发短信
等级：三尾狐 帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00 		模拟按下p键  发帖心情 Post By：2023/2/28 11:20:00 [只看该作者]

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

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/2/28 11:32:00 [只看该作者]

去掉大括号

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


加好友 发短信
等级：三尾狐 帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2023/2/28 11:59:00 [只看该作者]

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

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/2/28 12:06:00 [只看该作者]


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


加好友 发短信
等级：三尾狐 帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2023/2/28 15:54:00 [只看该作者]

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

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/2/28 15:57:00 [只看该作者]

ShowAppWindow("窗口1",2)

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


加好友 发短信
等级：三尾狐 帖子：659 积分：5357 威望：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编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/2/28 16:07:00 [只看该作者]


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


加好友 发短信
等级：三尾狐 帖子：659 积分：5357 威望：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的数据，代码执行了
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/2/28 17:04:00 [只看该作者]

什么类型的窗口？

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