朽木自雕

Dim DataString As String

Private Sub Command1_Click()
On Error Resume Next
If Text1.Text = "" Then
Msg = "第一个文本框内不能为空"
Exit Sub
Else
Clipboard.Clear
'SetText方法，用于复制文本到剪贴板上
'使用语法：object.SetText data, [format]
'data   必需的。是被放置到剪贴板中的字符串数据。
'Format 可选的。一个常数或数值，按照下列设置中的描述，指定 Visual Basic 识别的剪贴板格式。
'vbCFLink   &HBF00   DDE 对话信息
'vbCFRTF   &HBF01   RTF 格式
'vbCFText   1       (缺省值)文本
Clipboard.SetText (Text1.Text) '上面那堆其实就这句有用，复制文本到剪贴板上
End If
End Sub

Private Sub Command2_Click()
'GetText方法，用来取得剪贴板上的文本内容
'使用语法为：Clipboard.GetText([数据的类型])
temp = Clipboard.GetText(vbCFText) 这句获取剪贴板上的文本内容
Text2.Text = temp
End Sub

Private Sub Command3_Click()
'Clear方法，用于清空剪贴板上的数据
'使用语法：Clipboard.Clear 这句清空剪贴板上的数据
Clipboard.Clear
End Sub