编写一vb程序,两文本框,1,在text1输入内容,单击窗体会复制八个字符在文本框text2中显示 50
展开全部
’试一下
'第一题
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
'第一题
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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Dim s as string '公共变量
Private sub text1_mouseup()
s=text1.seltext
end sub
private sub form_click()
text2.text=s
end sub
Private sub text1_mouseup()
s=text1.seltext
end sub
private sub form_click()
text2.text=s
end sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2012-04-20
展开全部
在窗体的单击事件中,写TEXT2.TEXT=TEXT1.TEXT
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
2
Private Sub Form_click()
Text2.Text = Text1.SelText
End Sub
Private Sub Form_click()
Text2.Text = Text1.SelText
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询