菜单中的复制、粘帖功能如何实现？

Question

菜单中的复制、粘帖功能如何实现？

Answer 1

clipboard.setdata 
clipboard.getdata

Answer 2

语法Clipboard说明Clipboard 对象用于操作剪贴板上的文本和图形。它使用户能够复制、剪切和粘贴应用程序中的文本和图形。在复制任何信息到 Clipboard 对象中之前，应使用 Clear 方法清除 Clipboard 对象中的内容，例如 Clipboard.Clear。注意所有 Windows 应用程序共享 Clipboard 对象，因此当切换到其它应用程序时，剪贴板内容会改变。Clipboard 对象可包含多段数据，只要每段数据的格式不同。例如，可用 SetData 方法把位图以 vbCFDIB 格式放到 Clipboard 中，接着再用 SetText 方法以 vbCFText 格式将文本放到 Clipboard 中。然后用 GetText 方法检索文本或用 GetData 方法检索图形。当用代码或菜单命令把另一段数据放到 Clipboard 中时，原 Clipboard 中相同格式的数据会丢失。看你clipboard里面是什么格式数据。

Answer 3

本示例使用 GetData 方法从 Clipboard 对象中将一个位图复制到一个窗体上。要检验此示例，可将本例代码粘贴到一个窗体的声明部分，然后按 F5 键并单击该窗体。Private Sub Form_Click ()
   Const CF_BITMAP = 2   ' 定义位图各种格式。
   Dim Msg   ' 声明变量。
   On Error Resume Next   ' 设置错误处理。
   Msg = "Choose OK to load a bitmap onto the Clipboard."
   MsgBox Msg   ' 显示信息。
   Clipboard.Clear   ' 清除剪贴板。
   Clipboard.SetData LoadPicture("PAPER.BMP")  ' 取得位图。
   If Err Then
      Msg = "Can't find the .bmp file."
      MsgBox Msg   ' 显示错误信息。
      Exit Sub
   End If
   Msg = "A bitmap is now on the Clipboard. Choose OK to copy "
   Msg = Msg & "the bitmap from the Clipboard to the form "
   MsgBox Msg   ' 显示信息。
   Picture = Clipboard.GetData()   ' 从剪贴板上复制。
   Msg = "Choose OK to clear the form."
   MsgBox Msg   ' 显示信息。
   Picture = LoadPicture()   ' 清除窗体。
End Sub

Answer 4

SetData 方法
      用以使用指定的图形格式将图片放到 Clipboard 对象上。不支持命名参数。语法object.SetData data, formatSetData 方法的语法包含下列部分：部分 描述 
object 必需的。一个对象表达式，其值为“应用于”列表中的一个对象。 
data 必需的。被放置到 Clipboard 对象中的图形。 
format  可选的。一个常数或数值，按照下列“设置值”中的描述，指定 Visual Basic 识别的 Clipboard 对象格式。如果省略 format，则 SetData 自动决定图形格式。 
设置值用于 format 的设置值有： 常数 值 描述 
vbCFBitmap 2 位图（.bmp 文件） 
vbCFMetafile 3 元文件（.wmf 文件) 
vbCFDIB 8 与设备无关的位图 (DIB) 
vbCFPalette 9 调色板 
说明上述常数在对象浏览器中的 Visual Basic (VB) 对象库里列出。使用 LoadPicture 函数或 Form、Image 或 PictureBox 的 Picture 属性来建立将放置到 Clipboard 对象中的图形。//-----------------------------------------------------------------------------GetData 方法
      用于从 Clipboard 对象返回一个图形。不支持命名参数。语法object.GetData (format)GetData 方法的语法包含下列部分：部分 描述 
object 必需的。一个对象表达式，其值为“应用于”列表中的一个对象。 
format  可选的。一个常数或数值，如“设置值”中所描述的，它指定 Clipboard 图形的格式。必须用括号将该常数或数值括起来。如果 format 为 0 或省略，GetData 自动使用适当的格式。 
设置值format 的设置值有：常数 值 描述 
vbCFBitmap 2 位图（.bmp文件） 
vbCFMetafile 3 元文件（.wmf文件) 
vbCFDIB 8 设备无关位图 (DIB) 
vbCFPalette 9 调色板 
说明上述常数在 Visual Basic (VB) 对象浏览器中的对象库里列出。如果 Clipboard 对象没有与期望的格式相匹配的图形，则返回空。如果 Clipboard 对象中只有一个调色版，则创建最小尺寸 (1x1) 的 DIB。

Answer 5

这个是复制的，剪切的也差不多
Clipboard.Clear'清空
Clipboard.SetText Text1.SelText'发送复制的内容粘贴的
PStr = Clipboard.GetText
    If Text1 = "" Then
        text1.Text = PStr
        Exit Sub
    End If
    PLen = Len(text1.Text)
    PStart =text1.SelStart
    If PStart = 0 Then
        PStart = 1
    End If    text1.Text = Mid(text1.Text, 1, PStart) + PStr + Mid(text1.Text, PStart, PLen - PStart)