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



ir al índice