Ir al Principio o al Final de un Flexgrid
Fecha: 19/Ago/2000 (18/Ago/2000)
Autor: Norberto Horacio Miras [email protected]
Es una llamada a la api de Windows (send message) que lo que hace es mandarte al principio o al final de un control msflexgrid.
C�digo de ejemplo:
Crea un nuevo proyecto, a�ade un MSFlexGrid (Flex), dos botones (Command1 y Command2) y a�ade el siguiente c�digo al formulario (Form1):
' '------------------------------------------------------------------------------ ' From: "norberto horacio miras" <[email protected]> ' Sent: Friday, August 18, 2000 3:53 PM ' Subject: Te mando un truco de Api de Windows ' ' Descripci�n: ' Es una llamada a la api de Windows (send message) ' que lo que hace es mandarte al principio o al final de un control msflexgrid. ' ' Modificado: Guillermo 'guille' Som, 19/Ago/2000 '------------------------------------------------------------------------------ Option Explicit 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 Private Sub Command1_Click() Dim var As Long Const WM_VSCROLL = &H115 Const SB_TOP = 6 var = SendMessage(Flex.hWnd, WM_VSCROLL, SB_TOP, 0) End Sub Private Sub Command2_Click() Dim var As Long Const WM_VSCROLL = &H115 Const SB_BOTTOM = 7 var = SendMessage(Flex.hWnd, WM_VSCROLL, SB_BOTTOM, 0) End Sub