用VB实现多组复制粘贴
并且用快捷键来代替鼠标点击
比如shift+1复制ctrl+1粘贴
shift+2复制ctrl+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
快捷键在菜单定定义窗口中设置啦
再说cut: Ctrl+X, copy: Ctrl+C, paste: Ctrl+V
都已经成为约定俗成的使用方法了
最好不要搞什么 shift+1复制ctrl+1粘贴 shift+2复制ctrl+2粘贴另一组
将文本复制到剪贴板
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粘贴另一组
温馨提示：答案为网友推荐，仅供参考
第1个回答 2009-01-21
Private Sub CmdCopy_Click()
Clipboard.SetText TxtContent.SelText
End Sub
Private Sub CmdPaste_Click()
TxtContent.SelText = Clipboard.GetText
End Sub
Private Sub CmdCopy_Click()
'这只是按钮代码的起始而已，按钮名叫做CmdCopy，事件是单击
Clipboard.SetText TxtContent.SelText
'Clipboard指剪贴板；SetText是剪贴板对象的一个方法，用来设置剪贴板的内容；TxtContent是指一个文本框；SelText是文本框的一个属性，指文本框的内容
'翻译过来就是把剪贴板的内容设为文本框的内容，就是复制（因为原内容并没有消失，要实现剪切，在这句后面加一句TxtContent.SelText = ""）
End Sub
'代码完毕
Private Sub CmdPaste_Click()
'按钮名叫CmdPaste，事件是单击
TxtContent.SelText = Clipboard.GetText
'TxtContent.SelText参见上文。Clipboard仍然指剪贴板，GetText指剪贴板的内容，是一个属性）
'翻译过来就是把文本框的内容设为剪贴板的内容，就是粘贴了
End Sub
'代码完毕
Clipboard.SetText TxtContent.SelText
End Sub
Private Sub CmdPaste_Click()
TxtContent.SelText = Clipboard.GetText
End Sub
Private Sub CmdCopy_Click()
'这只是按钮代码的起始而已，按钮名叫做CmdCopy，事件是单击
Clipboard.SetText TxtContent.SelText
'Clipboard指剪贴板；SetText是剪贴板对象的一个方法，用来设置剪贴板的内容；TxtContent是指一个文本框；SelText是文本框的一个属性，指文本框的内容
'翻译过来就是把剪贴板的内容设为文本框的内容，就是复制（因为原内容并没有消失，要实现剪切，在这句后面加一句TxtContent.SelText = ""）
End Sub
'代码完毕
Private Sub CmdPaste_Click()
'按钮名叫CmdPaste，事件是单击
TxtContent.SelText = Clipboard.GetText
'TxtContent.SelText参见上文。Clipboard仍然指剪贴板，GetText指剪贴板的内容，是一个属性）
'翻译过来就是把文本框的内容设为剪贴板的内容，就是粘贴了
End Sub
'代码完毕
第2个回答 2009-01-20
你需要注册全局热键或者实时判断键盘状态，否则Shift+1/Ctrl+1这些按键组合在你程序以外的地方是无用的，可能还需要使用API函数来获得其他程序里被选中的文字内容。
第3个回答 2009-01-20
在键盘事件里调用剪贴板就可以。
第4个回答 2009-01-20
用剪贴板
