Question

vb编程：单击command1将text1中的选定内容复制到text2的光标处

Answer 1

Dim s As Integer
Private Sub Command1_Click()
Text2.Text = Left(Text2.Text, s) & Text1.Text & Right(Text2.Text, Len(Text2.Text) - s)
End Sub

Private Sub Text2_Click()
s = Text2.SelStart
End Sub

Answer 2

text2.text=text1.text