agrandir un linklabel avec mousehover VB.net

Bonjour,

J'utilise Visual Basic.net 2010 et j'ai un linklabel qui a comme nom: " LL1 ".Je veux que si le curseur de la souris et sur le lien sans cliquer et sans faire rien sa taille agrandi.
merci de m'aidez je suis bloqué.

Salut,

deja tu peut commencer par cela :

Code:

---

1 2 3

Private Sub LL1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles LL1.MouseHover 'Rentre ici le code pour que la fenêtre s’agrandisse. Je ne peut le faire car je n'ai pas le nom de la fenêtre. End Sub

---

wpf est plus fait pour ce genre de choses que windows forms
mais tu peux changer la font sur MouseEnter et MouseLeave

sinon merci de mettre des titres explicites genre "agrandir un linklabel sur mouseover" parce qu'ici tout le monde a besoin d'aide pour vb.net !

bonsoir,

essaies par exemple :

Code:

---

1 2 3 4 5 6 7 8

Private Sub LL1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles LL1.MouseHover LL1.Font = New Font(LL1.Font.Name, LL1.Font.SizeInPoints * 2, LL1.Font.Style) End Sub   Private Sub LL1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles LL1.MouseLeave LL1.Font = New Font(LL1.Font.Name, LL1.Font.SizeInPoints / 2, LL1.Font.Style) End Sub

---

il doit probablement falloir gérer en plus la taille du conteneur (Propriétés LL1.Heigth et LL1.Width)

Merci c'est ce que je veux mais il y a problème,si je passe le curseur plusieurs fois sur le lien tu m'as donné dans le MouseLeave SizeInPoints / 2 dons la taille va se diviser sur 2 jusqu'à le lien devient invisible.Est ce que je ne peut pas donné des valeurs fixe??

bonjour
tu reprends le code donne par anonymousse,mais old,old il faut se souvenir de la taille initiale dans un variable globale de la form comme suit:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

public class Form1 Private oldTaille as Size   Private Sub LL1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles LL1.MouseHover oldTaille=LL1.Font.SizeInPoints LL1.Font = New Font(LL1.Font.Name, LL1.Font.SizeInPoints * 2, LL1.Font.Style) End Sub   Private Sub LL1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles LL1.MouseLeave ' ici on reprend l'old taille simplement LL1.Font = New Font(LL1.Font.Name, LL1.Font.oldTaille, LL1.Font.Style) End Sub

---

bon code....

Merci pour l'aide, mais je suis nouveau en visual basic. J'ai 2 erreurs :
Sur "LL1.Font.SizeInPoints " j ai l'erreur suivante

Citation:

---

Impossible de convertir une valeur de type 'Single' en 'System.Drawing.Size'

---

Et sur "LL1.Font.oldTaille" j ai l erreur

Citation:

---

'oldTaille' n'est pas un membre de 'System.Drawing.Font'

---

bonjour,

Citation:

---

Sur "LL1.Font.SizeInPoints " j ai l'erreur suivante
Citation:
Impossible de convertir une valeur de type 'Single' en 'System.Drawing.Size'

---

c'est normal size et sizeinpoints sont différents, il faut que tu cherches si tu peux remplacer :

Code:

---

Private oldTaille as Size

---

par :

Code:

---

Private oldTaille as SizeInPoints ' ou font.sizeinpoints ou l'équivalent (je ne peux pas le tester tout de suite

---

Citation:

---

Et sur "LL1.Font.oldTaille" j ai l erreur
Citation:
'oldTaille' n'est pas un membre de 'System.Drawing.Font'

---

normal, il faut remplacer :

Code:

---

LL1.Font = New Font(LL1.Font.Name, LL1.Font.oldTaille, LL1.Font.Style)

---

par :

Code:

---

LL1.Font = New Font(LL1.Font.Name, oldTaille, LL1.Font.Style)

---

sinon tu peux effectivement mettre une taille (en points) que tu définis au lieu de x2

bon code

Bonjour oami89
Pardon cette technique de memorisation est classique quand on fait un mouseover.
Malheureusement pour moi,je confondais avec le "Size" d'un font qui est en Lecture-Ecriture .Alors que ce "SizeInPoints" est specifique à LinkLabel : il est "ReadOonly" et en plus c'est du "Single".
Je corrige donc & tant pis pour moi .Ma variable mon OldTaille sera type Font :
code corrige qui marche.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Public Class Form1 Private oldFont As Font   Sub New()   ' Cet appel est requis par le Concepteur Windows Form. InitializeComponent()   ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().   End Sub     Private Sub LL1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles LL1.MouseHover oldFont = LL1.Font LL1.Font = New Font(LL1.Font.Name, LL1.Font.SizeInPoints * 2, LL1.Font.Style) End Sub   Private Sub LL1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles LL1.MouseLeave ' ici on reprend l'old taille simplement LL1.Font = oldFont LL1.Font = New Font(LL1.Font.Name, LL1.Font.SizeInPoints, LL1.Font.Style) End Sub   End Class

---

bon code......

Merci beaucoup ca marché mais si vous pouvez m'aider il y a problème dans la fonction c'est que la bouton est à l'extrémité du form du coté droite.SizeInPoints * 2 permet de lien de dépasser l'extrémité du form a droite. j ai mis SizeInPoints * 1.5 et il n'accepte pas les réels.il'ya t'il solution??

bonjour
si tu as mis Double ca marche pas.Il faut un Single.
Declare une variable Single affecte lui 1.5 et multiplie par cette variable.
Au lieu de multiplier directement par un nombre 2.0 ou 1.5
Ca devrait marcher :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Public Class Form1 Private oldFont As Font Private coeff As Single = 1.5   Sub New()   ' Cet appel est requis par le Concepteur Windows Form. InitializeComponent()   ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().   End Sub   Private Sub LL1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles LL1.MouseHover oldFont = LL1.Font LL1.Font = New Font(LL1.Font.Name, LL1.Font.SizeInPoints * coeff, LL1.Font.Style) End Sub   Private Sub LL1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles LL1.MouseLeave ' ici on reprend l'old taille simplement LL1.Font = oldFont LL1.Font = New Font(LL1.Font.Name, LL1.Font.SizeInPoints, LL1.Font.Style) End Sub   End Class

---

bon code....