Question

vb6.0中如何实现复制功能？？

也就是说点击一个按钮就复制文本，点击另一个按钮就实现粘贴功能？
用vb自带函数还是windows API函数？

Answer 1

用
Clipboard.SetText
等命令即可

Private Sub Command1_Click()
Clipboard.SetText Text1.Text
End Sub

Private Sub Command2_Click()
txt = Clipboard.GetText
Text1.SetFocus
SendKeys txt, 100
End Sub

Answer 2

Private Sub Command1_Click()
Clipboard.SetText Text1.Text '设置剪贴板
End Sub

Private Sub Command2_Click()
text1.text = Clipboard.GetText '从剪贴板中粘贴
End Sub

稍微改了一下上边的