Discussion :

[Bourdois]

Bonjour,

je suis a la recherche d'un code vb6 qui me permet de gérer les infos bulles au niveau d'un msflexgrid.
dans mon cas, sur la msflexgrid, j'ai une colonne qui contient un code erreur et je veux que lors du passge de la souris sur cette colonne l'info bulle s'ouvre en affichant le libelle de l'erreur correspondant au code erreur associé, le libellé est stocker dans une PUBLIC TYPE XXXXXXX
Désolé pour de la confusion.

Merci, de votre aide.

Cordialement.

[ucfoutu]

http://www.developpez.net/forums/d82...nfo-bulle-vb6/

[ProgElecT]

ucfoutu
Si c'est pour la liaison a la bD, le titre de la discussion n'est pas bon.
Ce lien peut t'aider pour ce cas.

[Bourdois]

Bonjour,

je te remercie pour l'info, mais voila j'ai un autre problème avec la gestion info bulle.
dans mon cas l'info bulle s'affiche dans la msflexgrid au niveau de la barre verticale si je me curseur a se niveau, si non rien au niveau des colonnes.
j'utilise le code suivant.

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
Private Sub MSFlexSuspens_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    LeTitre = "": Infos = ""
    ChargeInfos
    If LeTitre = " " Or LeTitre = "" Then Exit Sub
 
    Call tt.Display(MSFlexSuspens.hwnd, LeTitre, Infos, TTIconInfo)
End Sub
Public Sub ChargeInfos()
Dim Indic       As Integer
    LeTitre = "": Infos = ""
    If MSFlexSuspens.MouseRow > 0 Then
        LeTitre = "INFORMATION"
        Infos = Trim$(tSuspensList(MSFlexSuspens.MouseRow).MReasonLib)
    End If
End Sub