vb ClipBoard 剪切板应用（复制剪切粘贴）

Private Sub Command1_Click()    '复制    If Text1.SelText "" Then Clipboard.SetText Text1.SelText    '理解：如果Text1文本框选定的文字不是空则把剪切板的内容设置为Text1选中的文字

End SubPrivate Sub Command2_Click()    '剪切    If Text1.SelText "" Then Clipboard.SetText Text1.SelText: Text1.SelText = ""    '理解：如果Text1文本框选定的文字不是空则把剪切板的内容设置为Text1选中的文字：并用空字符代替文本框选中的文字

End Sub

Private Sub Command3_Click()    '粘贴    If Clipboard.GetText "" Then        If Text1.SelText "" Then            Text1.SelText = Clipboard.GetText            '如果剪切板的文字内容不为空则把文本框选中的内容用它来代替（把剪切板文字内容粘贴到光标处）        Else            '文本框没有选中文字，粘贴时直接把剪切板文字内容粘贴到文本框当前的输入光标处

            'Text1.SelStart就是输入光标的位置，下句代码的原理就是把光标前的文字取出，然后加上要粘贴入的文字，再然后加上光标后面的文字。            Text1.Text = Mid$(Text1.Text, 1, Text1.SelStart) & Clipboard.GetText & Mid$(Text1.Text, Text1.SelStart + 1, Len(Text1.Text) - 1)        End If    End IfEnd Sub