highlight 1 rangé

bonjour a tous

J'ai un flexgrid dans lequel je veut permetre à l'usage de choisir seulement 1 rangé. J'ai trouvé ce bout de code , il marche s'il choisis 1 rangé ( normal, à cause du IF ). Mais dans le cas ou il veut choisir quand même plusieurs lignes avec la touche SHIFT, la selection unique ce fait, mais la ligne n'est pas HIGHLIGHTE.

Pouvez vous m'aider.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub GRID1_SelChange()   If GRID1.Row - GRID1.RowSel <> 0 Then   GRID1.Row = GRID1.RowSel GRID1.SetFocus   End If     End Sub

---

C'est paramétrable directement dans les propriétés du FlexGrid lors de la conception (ou plutôt de la réalisation) de la fenêtre. Si nécessaire (au cas où tu ne trouverais pas), appuie sur F1.

[Edit]
Je corrige...
Utilise les événement MouseMove et/ou MouseUp pour gérer la sélection.

Je viens de bidouiller ceci pour me faire pardonner... Ça demande à être amélioré. Ça clignotte à tout va!

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, _ x As Single, y As Single) If Button = vbLeftButton Then Shift = 0 MSFlexGrid1.Row = y \ MSFlexGrid1.RowHeight(1) Else Button = 0 Shift = 0 End If   End Sub

---