vb怎么让text文本框内容交换
1个回答
展开全部
Private Sub OptChange_Click()
If OptChange.Value = True Then
Dim s As String
s = Txt1.Text
Txt1.Text = Txt2.Text
Txt2.Text = s
End If
End Sub
Private Sub OptLink_Click()
If OptLink.Value = True Then
TxtResult.Text = Txt1.Text & Txt2.Text
End If
End Sub
If OptChange.Value = True Then
Dim s As String
s = Txt1.Text
Txt1.Text = Txt2.Text
Txt2.Text = s
End If
End Sub
Private Sub OptLink_Click()
If OptLink.Value = True Then
TxtResult.Text = Txt1.Text & Txt2.Text
End If
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
