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

我在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

改成

 

Dim s As String = ClipBoard.GetText()

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

而且代码我做了修改发现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

 

1、不明白你的意思；

 

2、要在别的软件输入，你要模拟点击，然后模拟输入，如何粘贴板没有任何关系。

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

 

1、那你就模拟点击后模拟输入ctrl+v进行粘贴。

 

2、输入丢失的情况，做个实例发上来测试，说明测试步骤。

此主题相关图片如下：qq截图20181203110944.png

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

大概15次会，错一次

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:text2.rar

我用记事本测试没问题。请说明你如何用记事本测试出现问题的。

 

是否你输入法的问题？你第三方那里，切换到英文输入后测试一下。

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

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

 

我用notepad测试没问题，无论输入多少次，都正常输入结果。