Discussion :

[ouar]

Bonsoir amis développeurs !

J'ai trouvé une source sur ce fabuleux site Developpez.com qui expose comment rendre une Hflexgrid saisissable en superposant une textbox à l'endroit où l'on clique sur la grille.
Voici le lien : http://vb.developpez.com/sources/?pa...ridsaisissable


Le problème c'est que la fonction qui renvoie le numéro de ligne ne fonctionne apparemment pas correctement si on utilise la scrollbar interne à la flexgrid.
La sélection des cases s'arrete à la ligne du bas de la grille quand l'ascenceur est en haut; du coup on est bloqué quand on veut cliquer une case se situant en dessous.
Voici la fonction :

Public Function GetRow(y As Single)
'Determine la ligne active en fonction de la position de la souris

Dim tmpY

While tmpY < y And GetRow < tableau.Rows
tmpY = tmpY + tableau.RowHeight(GetRow)
GetRow = GetRow + 1
Wend

If GetRow > 0 Then GetRow = GetRow - 1
End Function

Est ce quelqu'un aurait une solution à ce problème?

Merci d'avance

[SfJ5Rpw8]

bon en essayant de trouver une solution je suis tombé sur la propriété mouseRow... qui renvoi la ligne correspondante à la souris... ? ne peu tu pas remplacer Ton GetRow avec...

PS : j'ai fais le test en VBA.. à voir en VB6...

[ouar]

C'est parfait, merci beaucoup !!! Je n'avais pas vu cette propriété...