我想酷一点

Question

text也会滚动，想加滚动条吗，好像自己会加
那是让它的大小自动变吗，可以先取出text的行数，然后改变text的size就可以了，
还有别的滚法吗，我想不到了，呵哈

Answer 1

用LineScroll(GetLineCount());
这是VC中的用法，VB中应该差不多，另外还有一个SetSel在98下管用，NT下就没戏了。

Answer 2

一个例子，自己根据需要改造。
Private Sub txtMsg_Change()
     'Auto Scroll Text in txtMsg
     Dim lngLineCount As Long
     lngLineCount = SendMessage(txtMsg.hWnd, EM_GETLINECOUNT, 0, 0)
     SendMessage txtMsg.hWnd, EM_LINESCROLL, 0, ByVal lngLineCount - 2
End Sub

Answer 3

to kosisiyo: be quiet, if you donot know.

Answer 4

    Me.Text1.SelStart = Len(Me.Text1.Text)
    Me.Text1.SelLength = 0
    Me.Text1.SetFocus可以加分了吗？~_~