VB,用当在第一个文本框里输入如下文字,并选中部分内容,然后单击复制按钮,便会自动复制到第二个文本框

2024-11-04 16:06:13
推荐回答(1个)
回答(1):

Private Sub Command1_Click() '复制
Text2.SelText = Text1.SelText
End Sub

Private Sub Command2_Click() '清除
Text1.Text = ""
Text2.Text = ""
End Sub