16,549
社区成员
发帖
与我相关
我的任务
分享
Private Sub 复制_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text <> "" Then
Clipboard.SetDataObject(TextBox1.Text)
Else
TextBox2.Text = "无数据"
End If
End Sub
Private Sub 粘贴_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim iData As IDataObject = Clipboard.GetDataObject()
If iData.GetDataPresent(DataFormats.Text) Then
TextBox2.Text = CType(iData.GetData(DataFormats.Text), String)
Else
TextBox2.Text = "无数据"
End If
End Sub
Public intCursorIndex As Integer = -1 '全局变量 光标位置索引
Private Sub 粘贴_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim iData As IDataObject = Clipboard.GetDataObject()
If iData.GetDataPresent(DataFormats.Text) Then
TextBox2.Text =TextBox2.Text.insert(intCursorIndex, CType(iData.GetData(DataFormats.Text), String))
Else
TextBox2.Text = "无数据"
End If
End Sub
'在鼠标移到按钮上方时保存光标位置索引
Private Sub Button2_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.MouseEnter
intCursorIndex = Me.TextBox2.SelectionStart '当Textbox2没有光标时此值为0,将在Textbox最前端插入粘贴文本
End Sub