ClipBoard 对象

主要方法：

--SetText data,textformat

--GetText(textformat)

--SetData data,Picformat

--GetData (Picformat)

--Get Format (data format)

本例使用Clipboard 对象来实现剪切、复制、粘贴、和删除操作。创建一个带有 TextBox 控件的窗体并使用“菜单编辑器”来创建一个“编辑”菜单 （对于每个命令，将其 Caption 属性分别设置为 Cut、Copy、Paste 、Delete和SelectAll，将其 Name 属性分别设置为 EditCut、EditCopy、EditPaste 、EditDelete和EditSelectAll），代码如下：

'剪切
Private Sub EditCut_Click()
   ' 清除剪贴板上的内容。
   Clipboard.Clear
   ' 复制选中的文本到剪贴板上。
   Clipboard.SetText Screen.ActiveControl.SelText
   ' 删除选中的文本。
   Screen.ActiveControl.SelText = ""
End Sub
'复制
Private Sub EditCopy_Click()
   ' 清除剪贴板上的内容。
   Clipboard.Clear
   ' 复制选中的文本到剪贴板上。
   Clipboard.SetText Screen.ActiveControl.SelText
End Sub
   '黏贴

Private Sub EditPaste_Click()
   Screen.ActiveControl.SelText = Clipboard.GetText()
End Sub
 
'删除选中的文本。
Private Sub Editdelete_Click()
Screen.ActiveControl.SelText = ""
End Sub

'全选
Private Sub EditSelectAll_Click()    

Clipboard.Clear
    Screen.ActiveControl.SelStart = 0
    Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)
    Clipboard.SetText Screen.ActiveControl.SelText
End Sub

'捕捉鼠标事件

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then '判断是否点击了右键
        Text1.Enabled = False
        Text1.Enabled = True
        Text1.SetFocus
        PopupMenu mnuEdit
    End If
End Sub
到此，一个简单的剪切、复制、粘贴、和删除操作就此完成了。以上程序在windows　XP下运行成功．．．