Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Mar 31, 2001

TextBoxScroll - Programmatically scroll a multi-line TextBox control

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 EM_LINESCROLL = &HB6

' Scroll the contents of the control.
'
' Positive values scroll left and up, negative values scroll right and down.
' IMPORTANT: you can only scroll TextBox control to which the corresponding
'            scrollbar (horizontal or vertical) is associated

Sub TextBoxScroll(tb As TextBox, ByVal HorizScroll As Long, _
    ByVal VertScroll As Long)
    SendMessageByVal tb.hwnd, EM_LINESCROLL, HorizScroll, VertScroll
End Sub
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap