Question

vb复制粘贴代码

再VB6.0中，假如说用一个Text1来输入内容 Command1用来复制 Command2用来粘贴，谁能帮我写一下代码，我试了好多次都错误，
谢谢两位，我看了两位的回答，都很好，但我有一点不太明白。都是复制为什么一楼的是Clipboard.SetText Text1.Text，而二楼的是Clipboard.SetText Text1.SelText，这里面Text和SelText有什么区别，能不能给我讲一下，我追加分，谢谢。

Answer 1

楼上的思路是正确的,不过复制操作应该是复制当前选区而不是整个文本框内容,粘贴应该是将剪帖板内容插入到当前光标所在位置,而不是将文本框原有内容彻底覆盖,另外,通常当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（选中文字）的缩写

Answer 2

语法:

FileCopy source, destination

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

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

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

Answer 3

'利用系统剪贴板

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

Answer 4

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