Text1.Text = "清明時節雨紛紛," & vbCrLf & "路上行人欲斷魂;" & vbCrLf & "借問酒家何處有," & vbCrLf & "牧童遙指杏花村。"
End Sub
Private Sub Option1_Click()
Label1.Caption = "光標被移動到文本起始位置"
Text1.SelStart = 0
Text1.SetFocus
End Sub
Private Sub Option2_Click()
Label1.Caption = "光標被移動到文本結尾處"
Text1.SelStart = Len(Text1.Text)
Text1.SetFocus
End Sub
Private Sub Option3_Click()
Dim i As Integer
Dim j As Integer
j = 3 '想移動到第幾行, j就給值幾
Label1.Caption = "光標被移動到文本第3行起始位置"
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 2) = Chr(13) & Chr(10) Then
j = j - 1
If j <= 1 Then
Text1.SelStart = i + 1
Text1.SetFocus
Exit Sub
End If
End If
Next i
End Sub
Private Sub Option4_Click()
Dim i As Integer
Dim j As Integer
Dim temp As Integer
j = 3 '想選定第幾行, j就給值幾
Label1.Caption = "選定第三行所有字符"
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 2) = Chr(13) & Chr(10) Then
j = j - 1
If j = 1 Then
Text1.SelStart = i + 1
temp = i
End If
If j = 0 Then
Text1.SelLength = i - temp
Text1.SetFocus
Exit Sub
End If
End If
Next i
End Sub
Private Sub Option5_Click()
Label1.Caption = "選定所有字符"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End Sub