SOLVED: Left column

There's a way to know the left columns index in a reportcontrol?

I don't know if you understandme.

 

When the user moves the horizontal scrollbar the report control changes the columns, and maybe the focused columns hides of the reportcontrol. But I wanna know the left columns index in every moment that the user moves the horizontal scrollbar...

 

Regards and excuseme by my bad english.

 

Hi Ian,

 

Elvis did a post Scrollbar Event and I made a sample for this and I included simular what did (well almost simular)

 

 

Private Function GetFirstVisibleColumn()
   
    Dim i As Integer
    Dim l As Long
    Dim t As Long
    Dim r As Long
    Dim b As Long
   
    For i = 0 To wndReportControlData.Columns.Count - 1
        wndReportControlData.Rows(wndReportControlData.FocusedRow.Index).GetItemRect wndReportControlData.FocusedRow.record(i), l, t, r, b
        If l > 0 Then
            GetFirstVisibleColumn = i - 1 'return column index
            Exit Function
        End If
    Next i
   
End Function

 

 

It's a little bit cheating but it works

 

Yes you are right about the moved columns, but Elvis can't move the position of the columns because of the labels at the top.

 

But it's nice to have your code when columns are going to be moved

Thanks