Question

在VB制作剪贴板

一个窗体,一个文本框,三个按键(剪切,复制,粘贴)
我问的是如何在VB里编辑剪切,复制,粘贴

Answer 1

Private Sub 复制_Click()
If Text1.SelText <> "" Then
Clipboard.SetText Text1.SelText
End If
End Sub

Private Sub 剪切_Click()
If Text1.SelText <> "" Then
Clipboard.SetText Text1.SelText
Text1.SelText = ""
End If
End Sub

Private Sub 粘贴_Click()
Text1.SetFocus
If Trim(Clipboard.GetText) <> "" Then
If Text1.SelStart = 0 Then
Text1.Text = Clipboard.GetText & Text1.Text
ElseIf Text1.SelStart = Len(Text1.Text) Then
Text1.Text = Text1.Text & Clipboard.GetText
Else
Text1.Text = Left(Text1.Text, Text1.SelStart) & Clipboard.GetText & Right(Text1.Text, Len(Text1.Text) - Text1.SelStart)
End If
End If
End Sub

Answer 2

Private Sub Command1_Click()
If Text1.Text <> "" Then
Clipboard.SetText Text1.Text
Text1.Text = ""
End If
End Sub

Private Sub Command2_Click()
If Text1.Text <> "" Then
Clipboard.SetText Text1.Text
End If
End Sub

Private Sub Command3_Click()
Text1.SetFocus
If Trim(Clipboard.GetText) <> "" Then
If Text1.SelStart = 0 Then
Text1.Text = Clipboard.GetText & Text1.Text
ElseIf Text1.SelStart = Len(Text1.Text) Then
Text1.Text = Text1.Text & Clipboard.GetText
Else
Text1.Text = Left(Text1.Text, Text1.SelStart) & Clipboard.GetText & Right(Text1.Text, Len(Text1.Text) - Text1.SelStart)
End If
End If
End Sub