Discussion :

[fikou]

Bonjour,

Dans un MsHFlexgrid j'affiche des champs assez long que j'ai été obligé de tronquer afin d'avoir une vue d'ensemble de mes colonnes.

Existe t'il un moyen, losque l'ont passe sur une cellule tronquée d'afficher un ToolTips avec le contenu complet de la cellule.

Si il n'existe rien de tout fait soit dans VB soit, un ocx, donner moi une piste

Fikou

[jmfmarques]

utilise l'événement mousemove de msflexgrid et, à ton choix, un label ou le tooltips

[fikou]

OK merci,

Je teste tout ça

Mais comment récupérer les coordonnées de la cellule si elle n'est pas sélectionnée.

Fikou

[jmfmarques]

par les coordonnées X et Y du positionnement de ta souris sur le contrôle.

Commences par faire ceci dans l'événement mousemove du Msflexgrid et du vas comprendre rapidement en positionnant ta souris ici et là sur ton contrôle:

Code :

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

msgbox X & "  " & Y

[fikou]

Re,

J'ai fais un truc comme ça avec un TextBox.

Mais si la cellule ou je veut appliquer le ToolTips n'est pas selectionnée :

Je n'ai pas trouvé de propriété qui me retourne x/y de la cellule afin d'afficher sa valeur étant donné que lors du défilement les cellules ne sont pas fixes.

Fikou

[jmfmarques]

Très juste (j'avais pas pensé au défilement...).
Je vais y réfléchir et voir comment calculer cela arithmétiquement.
Une question avant que je commence à plancher : est-ce que tu connais le nombre des "cellules" affichées (visibles sans déroulement) de ta msflexgrid ou ce nombre est-il variable ?

[fikou]

Re, Re,

J'ai trouvé les propriétés MouseCol et MousRow me retourne la colonne et la ligne.

Code :

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

1
2
3
Private Sub Grid_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
      Text1.Text = Grid.MouseCol & "  " & Grid.MouseRow
End Sub

Je teste tous ça et je reviens te dire (peut être pas ce soir)

Fikou

[fikou]

C'est encore moi,

C'était trop simple j'ai testé avec un TextBox je verrai plus tard pour les ToolsTips.

Code :

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

1
2
3
4
Private Sub Grid_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Text1.Text = Grid.TextMatrix(Grid.MouseRow, Grid.MouseCol)
 
End Sub

Si tu as des autres idées

Merci Fikou

[zazaraignée]

Salut

Ça aussi, c'est simple:

Code :

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

Grid.ToolTipText = Grid.TextMatrix(Grid.MouseRow, Grid.MouseCol)

[fikou]

Merci, Merci,

Comme je le dit toujours, vaut mieux mourrir le soir on en apprend toujours dans la journée

Fikou