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


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

主题:模拟按下p键

帅哥哟,离线,有人找我吗?
weibu
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

“窗口1”是独立窗口

 回到顶部
帅哥,在线噢!
有点蓝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Forms("窗口1").Show()
ShowAppWindow("窗口1",2)
Forms("窗口1").Controls("textbox1").Select() 

 回到顶部
帅哥哟,离线,有人找我吗?
weibu
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥,在线噢!
有点蓝
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


ShowAppWindow("本项目的标题,比如:Foxtable - 管理项目1.foxdb", 2)
        Forms("窗口1").Text = tx        
        Forms("窗口1").Show()
        ShowAppWindow("窗口1", 2)
        Forms("窗口1").Controls("textbox1").Select()   
        Forms("窗口1").Controls("TextBox1").Text = Nothing

 回到顶部
帅哥哟,离线,有人找我吗?
weibu
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥,在线噢!
有点蓝
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

项目和窗口的标题有没有写对?

 回到顶部
总数 16 上一页 1 2