Info bulle au survol d'un bouton pour mon jeu de Yam's
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:
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 |
