VB flexgrid ultima riga visibile

[gyonny]

salve raga

sto completando una flexgrid, mi servirebbe sapere se esiste una funzione che mi restituisca il numero delle righe visibili o l'ultima in basso della msflexgrid o mshflexgrid.

in msdn ho trovato toprow che mi da il numero della prima riga in alto visibile, ma per sapere l'ultima?


by
gyonny

[Janx]

CIAO.

'in un modulo:

[Janx]

...ops... maledetto mouse....

allora in un modulo:

Public Type RigheVisibili
    PrimaRiga As Integer
    UltimaRiga As Integer
    TotaleRighe As Integer
End Type

Public Function RilevaRigheVisibili(miaFlexGrid As MSFlexGrid) As RigheVisibili

Dim MieRighe As RigheVisibili
Dim PrimaRigaVisibile As Boolean
Dim PrimaRiga As Integer, UltimaRiga As Integer
Dim i As Integer

With miaFlexGrid
    For i = 1 To .Rows - 1
    
        If .RowIsVisible(i) And Not PrimaRigaVisibile Then
                PrimaRiga = i
                PrimaRigaVisibile = True
        ElseIf .RowIsVisible(i) And PrimaRigaVisibile Then
                UltimaRiga = i
        End If
        
    Next i
End With


RilevaRigheVisibili.PrimaRiga = PrimaRiga
RilevaRigheVisibili.UltimaRiga = UltimaRiga
RilevaRigheVisibili.TotaleRighe = UltimaRiga - PrimaRiga

End Function

' in un form:
Text1 = RilevaRigheVisibili(MSFlexGrid1).PrimaRiga
Text2 = RilevaRigheVisibili(MSFlexGrid1).UltimaRiga
Text3 = RilevaRigheVisibili(MSFlexGrid1).TotaleRighe

L'ho buttato giù in fretta quindi dovresti un po' vedertelo....
dovrebbe restituirti le righe visibili (naturalmente escluse le Fixed).
Fammi sapere!
Ciao.
Janx.

[Janx]

p.s.: ....togli pure quel "Dim MieRighe As RigheVisibili" ...è rimasto li mentre provavo, ma non serve a nulla

[gyonny]

jank funziona

grazie al tuo codice sono riuscito a completare la navigazione nella flex.

ciao e grazie

gyonny