1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Option Explicit
Dim T As Integer
Private Sub Form_Load()
'fonctionne aussi avec un MSHFlexGrid1
MSFlexGrid1.Rows = 25
For T = 1 To MSFlexGrid1.Rows - 1
MSFlexGrid1.TextMatrix(T, 1) = "ligne " & CStr(T)
Next T
HScroll1.Min = 1
HScroll1.Max = MSFlexGrid1.Rows - 1
End Sub
Private Sub HScroll1_Change()
MSFlexGrid1.Row = HScroll1.Value
Label1 = MSFlexGrid1.Row
'ici le truc important
MSFlexGrid1.TopRow = MSFlexGrid1.Row
End Sub
Private Sub HScroll1_Scroll()
HScroll1_Change
End Sub |