Un peu de code vaut mieux qu'un long discours :
Je trouve que l'info bulle est très "molle", elle se déclenche vraiment quand on titille le bouton et après plusieurs secondes.
Dois-je mettre deux événements pour qu'elle soit plus vive ? Quel évenement mettre en plus du mouseHover ?
A part ça, elle fonctionne ainsi : Au survol, une info bulle dit "Score : 56" ou bien "Score : 0" s'il n'y a pas de carré.
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
16
17 'calcul dynamique au survol du gain escompté pour carre Private Sub carre_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles carre.MouseHover If tour <> 0 Then Dim InfoBulle = New System.Windows.Forms.ToolTip majMesDes() testeCarre() If monBonus <> 0 Then monBonus = ContratYams(9).valeur + monBonus End If InfoBulle.IsBalloon = True InfoBulle.ToolTipTitle = "Score" InfoBulle.SetToolTip(sender, monBonus) End If End Sub
Partager