Discussion :

[oami89]

Bonsoir,

J'ai crée des linklabel avec l'option mousehover qui permet de multiplier la taille par 2 et l'option MouseLeave pour rendre la taille telle qu'elle est..Mais parfois si j'ouvre le formulaire qui contient les liens je les trouve petit.
L'image en pj ci dessous contient l'imprime écran de mon formulaire qui contient le probleme qui est encadré en rouge.

Et voici mon code si dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private oldFont As Font
Private coeff As Single = 2
 
Private Sub LinkLabel9_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkLabel9.MouseHover
        oldFont = LinkLabel9.Font
        LinkLabel9.Font = New Font(LinkLabel9.Font.Name, LinkLabel9.Font.SizeInPoints * coeff, LinkLabel9.Font.Style)
    End Sub
 
    Private Sub LinkLabel9_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkLabel9.MouseLeave
        LinkLabel9.Font = oldFont
        LinkLabel9.Font = New Font(LinkLabel9.Font.Name, LinkLabel9.Font.SizeInPoints, LinkLabel9.Font.Style)
    End Sub

Merci de m'aider