Question

vb6中怎样达成点击按键即可复制文本框中内容到剪贴板？代码如何写？

Private Sub CmdCopy_Click()
Clipboard.SetText TxtContent.SelText
End Sub 这样可以吗？CmdCopy为需点击的按键，TxtContent为文本框名称。
我这样写了之后没有效果。
是不是跟焦点有关系？
那这样呢。
Dim txt As String

Private Sub CmdCopy_Click()
Clipboard.SetText txt
End Sub

Private Sub TextContent_LostFocus()
txt = TxtContent.SelText
End Sub

Answer 1

Private Sub CmdCopy_Click()
Clipboard.Clear
Clipboard.SetText TxtContent.SelText
End Sub

Answer 2

Private Sub Command1_Click()
Clipboard.SetText Text1.SelText, vbCFText
End Sub