快速复制粘贴vb源码

❶ 复制和粘贴的代码在VB里怎么写

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
'代码完毕

❷ vb复制粘贴代码 vb如何复制粘贴代码

复制操作应该是复制当前选区而不是整个文本框内容,粘贴应该是将剪帖板内容插入到当前光标所在位置,而不是将文本框原有内容彻底覆盖,另外,通常当Text1没选中文字时,要使复制按钮Command1不可用

Private Sub Command1_Click()

Clipboard.SetText Text1.SelText

End Sub

Private Sub Command2_Click()

If Len(Clipboard.GetText) Then

Text1.SelText = Clipboard.GetText

End If

End Sub

Private Sub Form_Load()

Command1.Enabled = False

End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

Command1.Enabled = Text1.SelLength > 0

End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Butt Then

Command1.Enabled = Text1.SelLength > 0

End If

End Sub

比如Text1的内容为abc，而当前只选中了第一个字符a

那么Text1.text表示文本框的全部内容，即abc

而Text1.SelText表示文本框中当前选中的内容，即a--selText是select text（选中文字）的缩写

❸ vB 循环复制粘贴代码

可以用EXCEL里的录制，然后把录制的代码移植到VB。。。

❹ 求大神帮忙写个WPS表格复制和粘贴的VB代码

复制的代码：

Sub ()

ActiveCell.

End Sub

粘贴的代码：

Sub past()

ActiveCell.PasteSpecial xlPasteValues

End Sub

❺ 用VB实现复制粘贴

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,
:
Ctrl+C,
paste:
Ctrl+V
都已经成为约定俗成的使用方法了
最好不要搞什么
shift+1复制ctrl+1粘贴
shift+2复制ctrl+2粘贴另一组