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

2024年11月04日 16:06
有1个网友回答
网友(1):

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

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