先要明白原理:
可以将你的问题转化成:有两个杯子Text1和Text2,将两个杯子中的水(.text)互换应该怎么做?
答案是用另外一个空杯子C来辅助。
关键语句:
C=Text1.text
Text1.text=Text2.text
Text2.text=C
Private Sub Command1_Click()
Dim s As String
s = Text2.Text
Text2.Text = Text1.Text
Text1.Text = s
End Sub
'引入第三个字符串变量st
dim st as string
st=text1.text
text1.text=text2.text
text2.text=st
text2.tag=text1.texttext1.text=text2.texttext2.text=text2.tag是这样吗,看你要怎么交换