[此贴子已经被作者于2007-1-4 5:54:52编辑过]

[此贴子已经被作者于2007-1-5 10:07:20编辑过]

不是 仍然谢谢

就是慢慢的自動滾屏幕麼?

描述清楚啊，不知道楼主想要的是什么啊？

就是个多行的textbox 要求在用赋值语句后光标永远在最下一行显示,也就是滚动条永远在最下面

多谢代码发个mail to:simpson.mao@dynapack.com.cn

'不知道楼主是不是想要这种效果。
'下面是.Frm文件的内容。
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 4260
ClientLeft = 60
ClientTop = 450
ClientWidth = 7500
LinkTopic = "Form1"
ScaleHeight = 4260
ScaleWidth = 7500
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text1
Height = 3165
Left = 1395
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 0
Top = 405
Width = 5550
End
Begin VB.Timer Timer1
Interval = 500
Left = 720
Top = 360
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Text1.Text = CStr(Date) & " " & CStr(Time) & vbCrLf
End Sub

Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
Text1.SelLength = 1
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Text1.Text = Text1.Text & CStr(Date) & " " & CStr(Time) & vbCrLf
End Sub
'这个是Form文档

NiCPukiM.rar (897 Bytes) [求助]怎样实现textbox滚屏显示?向上滚屏