Tooltips et MsHFlexgrid

Bonjour, :D

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 :oops:

Fikou

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

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

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:

---

msgbox X & " " & Y

---

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

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 ?

Re, Re,

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

Code:

---

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

C'est encore moi, 8O

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

Code:

---

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

Salut

Ça aussi, c'est simple:

Code:

---

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

---

Merci, Merci,

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

Fikou