Question

如何在VB中实现对TEXTBOX的自动滚屏?

text1设置为多行,scrollbars 设置为both
text2 每一次输入的内容,分行显示到text1中.

请教的问题:竖着的滚动条怎样能固定在最下方而不是最上方?在textbox里显示最新text2.输入的内容,以前的内容能回到上面去.(类似聊天室?)

如果用其他控件实现这个滚动,也可以.
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_GETLINECOUNT = &HBA
Private Const EM_LINESCROLL = &HB6

Private Sub Command1_Click()
Text1.Text = Text1.Text + Text2.Text
Text1.Text = Text1.Text + vbCrLf
Dim ScrollAmount As Long
Dim rc2 As Long
'得到总行数
ScrollAmount = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, 0)
'MsgBox rc
'滚动到指定行和列
rc2 = SendMessage(Text1.hwnd, EM_LINESCROLL, 0, ByVal ScrollAmount&)
End Sub

----

Answer 1

1.竖着的滚动条怎样能固定在最下方而不是最上方?
Text1.multiline=True;可将VScroll1.Value的初始值设到最大值（在程序的一开始将VScroll1.Value=VScroll1.Max）
2.在textbox里显示最新text2.输入的内容,以前的内容能回到上面去.(类似聊天室?)
代码：Text1.Text=Text1.Text+Text2.Text

Answer 2

将TextBook的Multiline属性设为true就行了！