VB6.0的剪贴板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("C:\16.BMP") ' 取得位图。
If Err Then
Msg = "Can't find the .bmp file."
MsgBox Msg ' 显示错误信息。
Exit SubEnd IfMsg = "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."
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
