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

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

2025-03-22 20:22:56

推荐回答（4个）

回答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

回答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

回答3：

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

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

回答4：

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