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 Button = 1 Then
Command1.Enabled = Text1.SelLength > 0
End If
End Sub

比如Text1的内容为abc，而当前只选中了第一个字符"a"
那么Text1.text表示文本框的全部内容，即"abc"
而Text1.SelText表示文本框中当前选中的内容，即a--selText是select text（选中文字）的缩写

语法:

FileCopy source, destination

source:必要参数。字符串表达式，用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。

destination:必要参数。字符串表达式，用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。

'将C盘的123.mp3复制到D盘
FileCopy "C:\123.mp3", "D:\123.mp3"

'利用系统剪贴板

Private Sub Command1_Click()
Clipboard.SetText Text1.Text '复制Text1的文本内容到剪贴板
End Sub

Private Sub Command2_Click()
Text1.Text = Clipboard.GetText '将剪贴板的文本内容复制到Text1
End Sub

Private Sub Form_Load()
Clipboard.Clear '清除剪贴板的内容
End Sub

private
sub
command1_click()
dim
a
as
string
a
=
"123123"
clipboard.clear
clipboard.settext
a
end
sub
你要用一个变量来存字符串，然后settext之前清空clipboard，这样就行了，上面的代码你可以试一试