新建 文本文档.txt

来自「微软msde」· 文本 代码 · 共 19 行

aPrivate Sub Command2_Click()
    Dim errorline As Integer
    Dim line As Integer
    errorline = 3
    line = 0
    Dim n As Integer
    n = 0
    While line < errorline - 1
        n = n + InStr(Mid(Me.rtfText.Text, n + 1, Len(Me.rtfText.Text) - n - 1), Chr(10))
        line = line + 1
    Wend
    Me.rtfText.SetFocus
    Me.rtfText.SelStart = n
    If Me.rtfText.SelLength = 0 Then
    Me.rtfText.SelLength = Len(Me.rtfText.Text) - n
    Else
    Me.rtfText.SelLength = InStr(Mid(Me.rtfText.Text, n + 1, Len(Me.rtfText.Text) - n - 1), Chr(10)) - 2
    End If
End Sub