如何让滚动条滚到底

Question

当窗体LOAD时,其中一个textBox的V-scrollBars滚到文本的最后一行.txt1.SelStart = Len(txt1.Text)为什么不行呢?

Answer 1

http://community.csdn.net/Expert/topic/3604/3604125.xml?temp=.9318354

Answer 2

txt1.SelStart = 0
Txt1.SelLength=Len(txt1.Text)

Answer 3

' 控制文本框卷动
' hwnd 为文本框的句柄, Horizontal 为水平方向卷动的行数(可为负数), Vertical为垂直方向卷动的行数(可为负数)
Function ScrollText(ByVal hwnd As Long, ByVal Horizontal As Long, ByVal Vertical As Long) As Boolean
    ScrollText = SendMessageBynum(hwnd, EM_LINESCROLL, Horizontal, Vertical)
End Function
' 获得文本框中的行数
' hwnd 为文本框的句柄
Function GetTextRowCount(ByVal hwnd As Long) As Long
    GetTextRowCount = SendMessageBynum(hwnd, EM_GETLINECOUNT, 0, 0&)
End Function