Scrollbar horizontal de un MSHFlexGrid

Andagu · #1 (**permalink**) 27/12/2005, 08:25

Compañeros gracias por su ayuda.

Como puedo hacer, cuando llene un MSHFlexGrid controlar la scrollbar se vea la última fila de abajo, sea que el scrollbar esté en el final? como desplazar el scrollbar . Gracias.

Beakdan · #2 (**permalink**) 27/12/2005, 14:00

Usa la función SendMessage de la API...

Código:

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
        ByVal hwnd As Long, _
        ByVal wMsg As Long, _
        ByVal wParam As Long, _
        ByRef lParam As Any) As Long

Private Const WM_VSCROLL        As Long = &H115&
Private Const SB_BOTTOM         As Long = &H7&

Private Sub Command1_Click()
Dim tmpStr As String
Static i As Long
    tmpStr = "Fila " & i & Chr(9) & "Celda " & (i)
    MSHFlexGrid1.AddItem tmpStr
    i = i + 1
    SendMessage MSHFlexGrid1.hwnd, WM_VSCROLL, SB_BOTTOM, ByVal 0&
End Sub

Espero que el código te de una idea.

Andagu · #3 (**permalink**) 28/12/2005, 07:50

Gracias el codigo que me distes me ayudo...
te agradesco.

gangster · #4 (**permalink**) 19/06/2006, 12:57

Cita:

Iniciado por Andagu

Gracias el codigo que me distes me ayudo...
te agradesco.

y como se puede hacer lo mismo pero en forma horizontal.....

osea que se valla a la ultima columna.... o a alguna columna en especifico??

gangster · #5 (**permalink**) 23/06/2006, 07:21

al final encontre algo que me sirvió

para mover la grilla y posicionarme en X fila

grilla.toprow = X

para la columna se llama leftcol

grilla.leftCol = Y

:D :D gracias msdn

enigmask · #6 (**permalink**) 17/07/2006, 10:35

espero que me ayuden, importar una hoja de datos de excel a visual baisc 6.0

enigmask · #7 (**permalink**) 17/07/2006, 10:35

como le ago!!!!

GeoAvila · #8 (**permalink**) 17/07/2006, 10:55

Facil
intenta esto.

Me.MSHFlexGrid1.TopRow = Me.MSHFlexGrid1.Rows - 1

nos vemos..