如何用VB实现粘贴(ctrl+v)的功能

2025-01-24 20:44:02

推荐回答（3个）

回答（1）：

我用一个比较AO的方法，嘻嘻，不过很有用我觉得。

SendKeys "^v"
不过这个代码放到按钮上有点问题，
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
SendKeys "^v"
这样就OK了
关键在于你要给谁用就在SendKeys "^v"前，设置谁是焦点，因为这个代码是模拟键盘ctrl+v 。功能嘛，绝对和WINDOWS上的标准功能一样。

回答（2）：

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

回答（3）：

clipboard.settext string将指定的文本字符串string放到clipboard对象中
clipboard.gettext返回clipboard对象中的文本字符串
clipboard.clear清空clipboard对象中的内容