Ir al Principio o al Final de un Flexgrid

 

Fecha: 19/Ago/2000 (18/Ago/2000)
Autor: Norberto Horacio Miras nmiras@topmail.com.ar 


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" <nmiras@topmail.com.ar>
' 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