text中输出的文字为什么不换行且覆盖前面的文字

Question

我编的一个小程序，就是运用一个复选框，一个text.复选框有check1,check2,选定其中一个都会在text 中显示“通道1（2）已选定“
但是，后一次输出到text 的文字老覆盖前一次的字，即输出”通道2已选定"时”通道1已选定“就没有了，而且也不换行。请问高手这是怎么回事啊？text的multiline 属性我也设置为true 了
附：Private Sub Check1_Click()
Text1.Text = "通道1已选定" & Chr(10)
End SubPrivate Sub Check2_Click()
Text1.Text = "通道2已选定"
End Sub

Answer 1

Private Sub Form_Load()
Text1.MultiLine = True
TExt1.Text=""
End SubPrivate Sub Check1_Click() 
Text1.Text = Text1.Text & "通道1已选定" & Chr(13) 
End Sub Private Sub Check2_Click() 
Text1.Text = Text1.Text & "通道2已选定" & Chr(13) 
End Sub 
以上代码,你试一下.

Answer 2

Private Sub Check1_Click() 
Text1.Text = "通道1已选定" & Chr(10) 
End Sub Private Sub Check2_Click() 
Text1.Text = Text1.Text & "通道2已选定" 
End Sub 想换行，text控件属性中，MultiLine选择true