Question

vb如何读取写入WINDOWS剪切板

RT

Answer 1

Clipboard.clear
Clipboard.getdata
Clipboard.getformat
Clipboard.gettext
Clipboard.setdata
Clipboard.settext

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 2

VB剪贴板的用法

VB中剪贴板的应用是很重要的，它能使你简化程序并能增强程序功能。下面就把常用的几个用于VB剪贴板的语句作一介绍：

一、CLEAR（，，STACK＆）
用于关闭文件，清除文件缓冲区的内容和其它一些设置初始值的工作。其中STACK＆为设置堆栈大小。

二、CLIPBOARD．GETDATA（〔FORMAT〕）
从剪板中返回一个图片。其中FORMAT的值有2、3、8、9具体对应请参照文末的表格。

三、CLIPBOARD．GETFROMAT（FORMAT）
返回TRUE＆FALSE，指示剪贴板中是否是指定的格式。其中FORMAT的值有1、2、3、8、9、＆HBF00几项。

四、CLIPBOARD．GETTEXT（〔FORMAT〕）
从剪贴板上返回一串文本。FORMAT的值可以是1、＆HBF00，如果没有所要的字串则返回一个空串“”。

五、CLIPBOARD．SETDATA DATA〔，FORMAT〕
在剪贴板一使用指定格式放置一个图片。DATA是放在剪贴板上的图片；FORMAT可以是如下值之一：2、3、8、9。

六、CLIPBOARD．SETTEXTDATA〔，FORMAT〕
在剪贴板中使用指定格式的一个文本串。DATA是要放入剪板的文本数据；FORMAT可选值为：1、＆HBF00。
注：0为自动适应格式（缺省格式）