DaniWeb IT Discussion Community - View Single Post - To position textbox scrollbar at bottom of text

Re: To position textbox scrollbar at bottom of text

Jan 12th, 2009

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
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
Const WM_VSCROLL = &H115
Const SB_BOTTOM = 7
 
Private Sub Text1_Change()
SendMessage Text1.hwnd, WM_VSCROLL, SB_BOTTOM, 0
End Sub
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
Const WM_VSCROLL = &H115
Const SB_BOTTOM = 7

Private Sub Text1_Change()
SendMessage Text1.hwnd, WM_VSCROLL, SB_BOTTOM, 0
End Sub