Public Sub Panel_Pnt_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Try If Not ToolTipDisplay Then Dim cible As Panel = DirectCast(sender, Panel) Dim ID As String = cible.Tag _ToolTip.SetToolTip(cible, "ID: " & cible.Tag & ChrW(13) & "Titre: " & ReadTittle(cible.Tag)) ToolTipDisplay = True End If Catch ex As Exception WriteLog("Error Panel_Pnt_MouseEnter: Function - " & System.Reflection.MethodBase.GetCurrentMethod().Name & " - " & Date.Now & " - " & ex.Message) End Try End Sub Public Sub Panel_Pnt_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) ToolTipDisplay = False End Sub
Dim Panel_Pnt as Panel Panel_Pnt = New Panel() With Panel_Pnt .Name = "Panel_Pnt" & ID.ToString .Width = myrecordset.Item("Duree") + 1 .Height = 25 .Location = New Point(LocateX, -3) .BackColor = Color.White .BorderStyle = BorderStyle.FixedSingle .Tag = ID .Cursor = Cursors.Hand .BackgroundImageLayout = ImageLayout.Stretch End With 'ajout d'un gestionnaire d'événement click AddHandler Panel_Pnt.Click, AddressOf Panel_Pnt_Click 'ajout du controle au formulaire Outils.FLP_WO_WPnt.Controls.Add(Panel_Pnt) 'ajout du ToolTip _ToolTip.SetToolTip(Panel_Pnt, "ID: " & Panel_Pnt.Tag & ChrW(13) & "Titre: " & ReadTittle(Panel_Pnt.Tag)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionHooo! autant pour moi, je n'avais pas compris votre dernier message.
mais cela ne fonctionne toujours que sous Seven, pas d'affichage sous XP avec un 'IsBallon=True'
Public Sub Panel_Pnt_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) _ToolTip.Active = False _ToolTip.Active = True End Sub
Je comprends bien.
Mais le titre des panels est-il amené à changer une fois que le panel est ajouté au formulaire ?
La logique voudrait que le SetToolTip des panels soit fait lorsque le panel est créé (valeur initiale) et si l'utilisateur modifie le titre ou l'ID.
Le titre et l'ID ne change pas à chaque fois que l'utilisateur survol le panel avec la souris.
L'utilisateur peut-il modifier le titre ou l'ID (donc le tag des panels) ?
L'objet ToolTip n'a pas besoin de connaitre le message à afficher à chaque survol. Il suffit de lui paramétrer une seul fois ou de le modifier uniquement si celui ci change.
je ne pourrais voir cela que Lundi maintenantLundi étant largement dépassé, je reviens sur ce fil car j'ai eu une idée.