以下代码是从文件abc.txt里读文件到文本框中,可是读文件结束后,我们看到的是文件头部分,
而我想看到的是文件尾部分,希望滚动条会滚动到最后,如何做
Text1.Text = ""
fno = FreeFile
Open "e:/abc.txt" For Input As #fno
Do Until EOF(fno) then
Line Input #fno, newline
Text1.Text = Text1.Text & Trim(newline) & Chr(13) + Chr(10)
Loop
Close #fno

[此贴子已经被作者于2006-12-22 10:17:24编辑过]

Option Explicit
Private Const VK_END = &H23
Private Const VK_CONTROL = &H11
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
With CommonDialog1
.ShowOpen
Dim strLine As String

Open .FileName For Input As #1
While Not EOF(1)
Line Input #1, strLine
Text1.Text = Text1.Text & strLine & vbCrLf
Wend
Close

Text1.SetFocus

'模拟Ctrl+End
keybd_event VK_CONTROL, 0, 0, 0
keybd_event VK_END, 0, 0, 0
keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_END, 0, KEYEVENTF_KEYUP, 0
End With
End Sub

[此贴子已经被作者于2006-12-22 10:47:28编辑过]

看不懂

因为我们知道..通过Ctrl+End键...可以将光标移动到文档的最后...
而通过win32api keybd_event 可以模拟键盘..进行操作...
.....其实..没什么难...只要你看看这api的各参数..就行了..

Option Explicit

Private Sub Command1_Click()
Dim strLine As String

Open App.Path & "\Iamtxt.txt" For Input As #1
While Not EOF(1)
Line Input #1, strLine
Text1 = Text1 & strLine & vbCrLf
Wend
Close
Text1.SelStart = Len(Text1)
End Sub

英雄,真是厉害,小弟多谢了

不客气