用VB实现复制粘贴

Posted 2023-05-04

参考技术A VB提供了对象Clipboard完成剪贴板的操作
将文本复制到剪贴板
Clipboard.Clear
Clipboard.SetText
"text"
将bmp图片复制到剪贴板
Clipboard.Clear
Clipboard.SetData
LoadPicture("a.bmp")
将剪贴板中文本取到
变量temp中
Dim
temp
As
String
If
Clipboard.GetFormat(CF_TEXT)
Then
Temp
=
Clipboard.GetText(CF_TEXT)'CF_TEXT
=
1
将剪贴板中图片粘贴到当前窗体
If
Clipboard.GetFormat(CF_BITMAP)
Then
Picture
=
Clipboard.GetData()'CF_BITMAP
=
2
CF_LINK
&HBF00
DDE
conversation
information
CF_TEXT
1
Text
CF_BITMAP
2
Bitmap
(.BMP
files)
CF_METAFILE
3
Metafile
(.WMF
files)
CF_DIB
8
Device-independent
bitmap
CF_PALETTE
9
Color
palette
快捷键在菜单定定义窗口中设置啦
再说cut:
Ctrl+X,
copy:
Ctrl+C,
paste:
Ctrl+V
都已经成为约定俗成的使用方法了
最好不要搞什么
shift+1复制ctrl+1粘贴
shift+2复制ctrl+2粘贴另一组

百度知道的代码复制粘贴到VB没有换行怎么办

在如下所示的网页中，复制

粘贴到word文档，换行还是有的

 

再复制到VB6.0中还是可用的