Question

vb如何做剪切、复制、粘贴按钮

Answer 1

获得文字直接用
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

Answer 2

这是剪切复制粘贴文本
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...过程不存在

Answer 3

sendkey（）用API函数模拟键盘输入

Answer 4

以文本框进行选中文本的复制\剪切为例进行说明
在窗体上画一个文本框和三个按钮.
剪切按钮代码:
Clipboard.SetText Text1.SelText
Text1.SelText = ""
复制按钮代码:
Clipboard.SetText Text1.SelText
粘贴按钮代码
Text1.SelText = Clipboard.GetText