Private Sub Button1_Click(...) Handles Button1.Click
TextBox1.Focus()
‘从数据库中读取数据...
'copy
'把Copy字符串写入剪貼板
Clipboard.SetDataObject(_clip, True)
'parse
SendKeys.Send("^V")
End Sub
定义4个全局变量
dim xxx as string
dim xxx1 as string
dim xxx2 as string
dim str1 as string
假设textbox1是你要操作的textbox
那么在textbox1_leave事件中写
xxx = TextBox1.Text
xxx1 = xxx.Substring(0, TextBox1.SelectionStart)
xxx2 = xxx.Substring(TextBox1.SelectionStart, xxx.Length - TextBox1.SelectionStart)
当你取得数据库中的值后赋值给str1
那么
最后textbox1.text=xxx1 & str1 & xxx2
这里有一个逻辑上的问题:当你点击按钮的时候,焦点已经转移到按钮上,文本框中已经没有光标了。不过我做了一个勉强可以的:
Private Sub Button1_Click(...) Handles Button1.Click
TextBox1.Focus()
SendKeys.Send("^V")
End Sub