如题所述
获得文字直接用
Clipboard.GetText
获得图片可以用
Clipboard.GetData
设置文字直接用
Clipboard.SetText
设置图片可以用
Clipboard.SetData
清空
Clipboard.Clear
检测剪贴板中的内容
Clipboard.GetFormat(1)
返回True则文字
返回False则其他
不用剪切板可以这样
Dim s
Private Sub Command1_Click()
s = Text1.Text
Text1.Text = ""
End Sub
Private Sub Command2_Click()
s = Text1.Text
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text + s
End Sub
Private Sub Form_Load()
Command1.Caption = "剪切"
Command2.Caption = "复制"
Command3.Caption = "粘贴"
End Sub
Clipboard.GetText
获得图片可以用
Clipboard.GetData
设置文字直接用
Clipboard.SetText
设置图片可以用
Clipboard.SetData
清空
Clipboard.Clear
检测剪贴板中的内容
Clipboard.GetFormat(1)
返回True则文字
返回False则其他
不用剪切板可以这样
Dim s
Private Sub Command1_Click()
s = Text1.Text
Text1.Text = ""
End Sub
Private Sub Command2_Click()
s = Text1.Text
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text + s
End Sub
Private Sub Form_Load()
Command1.Caption = "剪切"
Command2.Caption = "复制"
Command3.Caption = "粘贴"
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2017-09-20
这是剪切复制粘贴文本
Private Sub 剪切按钮_Click(sender As Object, e As EventArgs) Handles 剪切按钮.Click
If 文本框.SelectionLength > 0 Then
文本框.Cut()
Else
Exit Sub
End If
End Sub
Private Sub 复制按钮_Click(sender As Object, e As EventArgs) Handles 复制按钮.Click
If 文本框.SelectionLength > 0 Then
文本框.Copy()
Else
Exit Sub
End If
End Sub
Private Sub 粘贴按钮_Click(sender As Object, e As EventArgs) Handles 粘贴按钮.Click
If My.Computer.Clipboard.ContainsText Then
文本框.Paste()
Else
Exit Sub
End If
End Sub
这是 .NET 的。如果是 6.0，粘贴按钮那个 My...过程不存在
Private Sub 剪切按钮_Click(sender As Object, e As EventArgs) Handles 剪切按钮.Click
If 文本框.SelectionLength > 0 Then
文本框.Cut()
Else
Exit Sub
End If
End Sub
Private Sub 复制按钮_Click(sender As Object, e As EventArgs) Handles 复制按钮.Click
If 文本框.SelectionLength > 0 Then
文本框.Copy()
Else
Exit Sub
End If
End Sub
Private Sub 粘贴按钮_Click(sender As Object, e As EventArgs) Handles 粘贴按钮.Click
If My.Computer.Clipboard.ContainsText Then
文本框.Paste()
Else
Exit Sub
End If
End Sub
这是 .NET 的。如果是 6.0，粘贴按钮那个 My...过程不存在
第2个回答 2013-10-15
sendkey（）用API函数模拟键盘输入
第3个回答 2013-10-15
以文本框进行选中文本的复制\剪切为例进行说明
在窗体上画一个文本框和三个按钮.
剪切按钮代码:
Clipboard.SetText Text1.SelText
Text1.SelText = ""
复制按钮代码:
Clipboard.SetText Text1.SelText
粘贴按钮代码
Text1.SelText = Clipboard.GetText
在窗体上画一个文本框和三个按钮.
剪切按钮代码:
Clipboard.SetText Text1.SelText
Text1.SelText = ""
复制按钮代码:
Clipboard.SetText Text1.SelText
粘贴按钮代码
Text1.SelText = Clipboard.GetText
