home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 4 #14 / CDRTODAY.iso / SCROLL.BAS < prev    next >
BASIC Source File  |  1997-05-23  |  2KB  |  51 lines
  1. Global valorAntigo As Integer
  2. Global Const WM_USER = &H400
  3. Global Const EM_GETFIRSTVISIBLELINE = (WM_USER + 30)
  4.  
  5. Declare Function GetFocus% Lib "user" () ' For Visual Basic 1.0 only.
  6. Declare Function PutFocus% Lib "user" Alias "SetFocus" (ByVal hWd%)
  7. Declare Function SendMessage& Lib "user" (ByVal hWd%, ByVal wMsg%, ByVal wParam%, ByVal lParam&)
  8.  
  9. Function numLinhas (textBox As Control)
  10.     Const EM_GETLINECOUNT = &H40A  ' Defined within Windows SDK
  11.                                         ' file, WINDOWS.H.
  12.  
  13.     ' Print the amount of lines to the immediate window.
  14.     numLinhas = SendMessage(textBox.hWnd, EM_GETLINECOUNT, 0, 0)
  15. End Function
  16.  
  17. Function numPrimLinha (textBox As Control)
  18.     Const WM_USER = &H400
  19.     Const EM_GETFIRSTVISIBLELINE = (WM_USER + 30)
  20.     numPrimLinha = SendMessage(textBox.hWnd, EM_GETFIRSTVISIBLELINE, 0, 0)
  21. End Function
  22.  
  23. Function scrollText& (textBox As Control, vLines As Integer, hLines As Integer)
  24. ' The following two lines must appear on a single line:
  25.     Const EM_LINESCROLL = &H406
  26.  
  27.  
  28.     ' Place the number of horizontal columns to scroll in the high-
  29.     ' order 2 bytes of Lines&. The vertical lines to scroll is
  30.     ' placed in the low-order 2 bytes.
  31.     Lines& = CLng(&H10000 * hLines) + vLines
  32.  
  33.     ' Pega o handle do textbox passado como parΓmetro
  34.     
  35.     
  36.     
  37.     
  38.     'Camom SavedWnd% = textBox.hWnd
  39.  
  40.     ' Scroll the lines.
  41.     'Camom Success& = SendMessage(textBox.hWnd, EM_LINESCROLL, 0, Lines&)
  42.  
  43.     ' Restore the focus to the original control, Command1 or
  44.     ' Command2.
  45.     r% = PutFocus%(SavedWnd%)
  46.  
  47.     ' Return the number of lines actually scrolled.
  48.     scrollText& = Success&
  49. End Function
  50.  
  51.