Discussion :

[totoche]

Bonjour,
J'arrive à mettre en surbrillance la 1ere ligne de mon flexGrid lors de son rechargement, mais je n'arrive pas a faire remonter le scrollbar a son niveau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
frmMAJ.monFlex.Row = 1

Commnet faire pour faire remonter le scrollbar au niveau du 1er enregistrement contenu dans le flex
Merci

[ProgElecT]

Salut
Sur un Form, un MSFlexGrid, un Label et un HScroll

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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