文字方塊 逐行讀取內容

Question

請問如何將文字方塊中分行讀出
例如text1.text鐘之資料為
1111
2222222
33333333
wwwww
我要將內容分別讀入text2中，一次只顯示一行
第一次按讀取顯示
1111
第二次按讀取顯示
2222222
第三次按讀取顯示
33333333
等依此類推....
謝謝

嗯!可以了，謝謝!
那可不可以在請問一下如何讓text1中被選取的部分反白呢?

Answer 1

Private Sub Command1_Click()        Dim S() As String        Static I%                If Text1 = "" Then Exit Sub        S = Split(Text1, vbCrLf)        Text2 = S(I)        I = (I + 1) Mod (UBound(S) + 1)End Sub

2006-05-23 14:44:21 補充：
Private Sub Command1_Click() Dim S() As String Static I%, N% If Text1 = "" Then Exit Sub S = Split(Text1, vbCrLf) Text1.SelStart = N Text1.SelLength = Len(S(I))

2006-05-23 14:44:52 補充：
Text1.SetFocus N = InStr(N + 1, Text1, vbCrLf) + 1 Text2 = S(I) I = (I + 1) Mod (UBound(S) + 1) If I = 0 Then N = 0End Sub