Question

编写一vb程序，两文本框，1,在text1输入内容，单击窗体会复制八个字符在文本框text2中显示

2，当在文本text1中输入内容，用鼠标选定任意内容，单击窗体时会显示在文本框text2中

Answer 1

’试一下
'第一题
Private Sub Form_Click()
Text2 = Left(Text1, 8)
End Sub
'第二题
Private Sub Form_Click()
If Text1.SelLength > 0 Then Text2.Text = Text1.SelText
End Sub

Answer 2

在text1程序中写（双击text1就行）：
Private Sub Form_Click()
Text2 = Left(Text1, 8)
End Sub
在text2程序中写（双击text2就行）：
Private Sub Form_Click()
If Text1.SelLength > 0 Then Text2.Text = Text1.SelText
End Sub

Answer 3

Dim s as string '公共变量
Private sub text1_mouseup()
s=text1.seltext
end sub

private sub form_click()
text2.text=s
end sub

Answer 4

在窗体的单击事件中，写TEXT2.TEXT=TEXT1.TEXT

Answer 5

2
Private Sub Form_click()
Text2.Text = Text1.SelText
End Sub