vb怎么通过点击两个文本框来交换它们的内容
- 你的回答被采纳后将获得：
- 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）
1个回答
展开全部
Private Sub Text1_Click()
Dim strx As String
strx = Text1.Text
Text1.Text = Text2.Text
Text2.Text = strx
End Sub
Private Sub Text2_Click()
Dim stx As String
stx = Text1.Text
Text1.Text = Text2.Text
Text2.Text = stx
End Sub
Dim strx As String
strx = Text1.Text
Text1.Text = Text2.Text
Text2.Text = strx
End Sub
Private Sub Text2_Click()
Dim stx As String
stx = Text1.Text
Text1.Text = Text2.Text
Text2.Text = stx
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
