Question

vb,怎样按一下按钮能全选及复制文本框的内容?

Answer 1

复制:

Private Sub Command1_Click()
Text1.SetFocus '到得焦点
Text1.SelLength = 0 '设置选定的起始位置
Text1.SelLength = Len(Text1.Text) '设置选定的长度
Clipboard.Clear '清除剪贴板上的内容
Clipboard.SetText Text1.SelText '复制选中的文本到剪贴板上
End Sub

粘贴:

Private Sub Command2_Click()
Text1.SelText = Clipboard.GetText()
End Sub

Answer 2

Private Sub Command1_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Clipboard.Clear
Clipboard.SetText Text1.Text
MsgBox "Copy OK"
End Sub

我是也VB新手,以后互相学习呗!!!

Answer 3

command1_clck()
a=text1.text
end sub
a这个变量是字符型就好