🚀 go-pugleaf

stevesykes@my-dejanews.com wrote:
> 
> Try this,
> in a module place this code:
> Public Function ScrollText&(TextBox As Control, vLines As Integer)
>        #If Win32 Then
>        Dim Success As Long
>        Dim SavedWnd As Long
>        Dim r As Long
>        Const EM_LINESCROLL = &HB6
>        #Else
>        Dim Success As Integer
>        Dim SavedWnd As Integer
>        Dim r As Integer
>        Const EM_LINESCROLL = &H406
>        #End If
>        SavedWnd = Screen.ActiveForm.hwnd
>        Dim z As Long
>        Lines& = vLines
>        ' Set the focus to the passed control (text control).
>        'TextBox.SetFocus
>        ' Scroll the lines.
>        Success = SendMessage(TextBox.hwnd, EM_LINESCROLL, 0, Lines&)
>        'r = PutFocus(SavedWnd)
>        ' Return the number of lines actually scrolled.
>        ScrollText& = Success
>        End Function
> 
> To make the box scoll use this,
> Num& = ScrollText&(frmNameBox, numlines)
> numlines is the number of lines to scroll
> frmNameBox is the box to scroll
> This works on all types of text boxes

Just curious.. how would I find out how many lines are
in the textbox?  And how does the code needed to find the
number of lines affect the speed of textbox's display update?
In my project, I would expect updates occuring up to 3 times
every second, and I'd like to keep the textbox's update 
flicker to a minimum.

Thanks in advance.
-Anonymous VB User