请问：如何用VB打开一个*txt文件，而且使打开后的文件中的光标处在指定行？

[peiht]

我的程序中需要打开一个*txt文本文件，然后对文件中某行的内容进行手工修改。有时文件行数较多，查找需要修改的某行比较费力。因此，希望文件打开后，光标自动位于指定行的行首（最好该行同时位于顶端）。
我可以打开文件，但不知道如何控制光标位置。请各位专家指教，谢谢！

[用户 昵称]

有个笨方法，打开文件后，模拟光标键向下，api也有，就是忘了。

[用户 昵称]

linescroll

[用户 昵称]

Option Explicit

Const EM_LINESCROLL = &HB6
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Command1_Click()
    Dim s As String
    Dim ss As String
    
    Open "d:\1.txt" For Input As #1
    Do
        Line Input #1, s
        ss = ss & s & vbCrLf
    Loop While Not EOF(1)
    Close #1
    
    Text1.Text = ss
        
End Sub

Private Sub Command2_Click()
    SendMessage Text1.hwnd, EM_LINESCROLL, 0, -100000       '弄到最前面
    SendMessage Text1.hwnd, EM_LINESCROLL, 0, 200       '弄到200行
    
End Sub

[northwolves]

Shell "notepad.exe c:\1.txt", vbNormalFocus
SendKeys "{down 10}"

[peiht]

谢谢jennyvenus 和northwolves ,让我研究一下你们的代码.

[forbearORfolie]

写个查找的功能模块嘛，建议用richtextbox控件。