快速復制粘貼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粘貼另一組