Foxtable(狐表)用户栏目专家坐堂 → 剪贴板复制黏贴报错


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

主题:剪贴板复制黏贴报错

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


加好友 发短信
等级:三尾狐 帖子:641 积分:5194 威望:0 精华:0 注册:2018/5/19 22:27:00
剪贴板复制黏贴报错  发帖心情 Post By:2018/12/3 8:28:00 [显示全部帖子]

我在TEXTBOX中的keydown执行语句报错:请问老师如何修改代码

 

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20181203082514.png
图片点击可在新窗口打开查看

代码:

If e.KeyCode = Keys.ENTER Then
Dim t As String = e.Form.Controls("TextBox1").Text
 ClipBoard.Clear
 ClipBoard.SetText(t)
Output.Show(t)
Dim r1 As DataRow = DataTables("表A").Find("name = 'a'")
Dim r2 As DataRow = DataTables("表A").Find("name = 'b'")
        SetCursorPos (r1("x"), r1("y")) '鼠标位置
        mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) '点击
        mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
        ClipBoard.GetText(t)
        SendKeys.SendWait("{Enter}")
        System.Threading.Thread.Sleep(100)

        SetCursorPos (r2("x"), r2("y")) '鼠标位置
        mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) '点击
        mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
       
        e.Form.Controls("TextBox1").value = Nothing
        e.Form.Controls("textbox1").Select()
End If


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


加好友 发短信
等级:三尾狐 帖子:641 积分:5194 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2018/12/3 9:38:00 [显示全部帖子]

老师修改后,不能实现剪切板的内容复制到第三方软件的文本框;

而且代码我做了修改发现gettext那里一直弹出messagebox,关闭一个又弹出一个,根本关闭掉;如图:


此主题相关图片如下:qq截图20181203093319.png
按此在新窗口浏览图片

If e.KeyCode = Keys.ENTER Then
Dim t As String = e.Form.Controls("TextBox1").Text
 ClipBoard.Clear
 ClipBoard.SetText(t)
Dim r1 As DataRow = DataTables("表A").Find("name = 'a'")
Dim r2 As DataRow = DataTables("表A").Find("name = 'b'")
        SetCursorPos (r1("x"), r1("y")) '鼠标位置
        mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) '点击
        mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
        Dim s As String = ClipBoard.GetText()

        messagebox.show(s)

        SendKeys.SendWait("{Enter}")
        System.Threading.Thread.Sleep(100)

        SetCursorPos (r2("x"), r2("y")) '鼠标位置
        mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) '点击
        mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
       
        e.Form.Controls("TextBox1").value = Nothing
        e.Form.Controls("textbox1").Select()
End If

 


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


加好友 发短信
等级:三尾狐 帖子:641 积分:5194 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2018/12/3 10:00:00 [显示全部帖子]

我键盘模拟输入到第三方软件,输入第三方软件的第一个字符总是重复,或有时缺少;所以我就想着把狐表的文本框内容复制黏贴到第三方软件,看是否能解决这个问题


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


加好友 发短信
等级:三尾狐 帖子:641 积分:5194 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2018/12/3 11:10:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20181203110944.png
图片点击可在新窗口打开查看


 甜老师,模拟键盘输入错误,如输入文本框“123456”回车,输入到第三方软件的数字变为“1123456”或“11123456”或“23456”;错的情况是偶然的

大概15次会,错一次

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:text2.rar


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


加好友 发短信
等级:三尾狐 帖子:641 积分:5194 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2018/12/3 12:13:00 [显示全部帖子]

甜老师,我是输入的数字;这个跟输入法有关系吗/

不是每次都出现问题,出现问题的概率很小。15次有1次

[此贴子已经被作者于2018/12/3 12:14:05编辑过]

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


加好友 发短信
等级:三尾狐 帖子:641 积分:5194 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2018/12/3 13:23:00 [显示全部帖子]

老师有什么办法,能让狐表最小化时,其中一个窗口不最小化

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


加好友 发短信
等级:三尾狐 帖子:641 积分:5194 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2018/12/3 14:55:00 [显示全部帖子]

老师我换了台电脑为什么最后文本框光标就回不来,但确选中了文本框所在窗口呢

 回到顶部