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

复制:

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

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/2fv77jry.html