Discussion :

[oami89]

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é.

[Jaguar-77]

Salut,

deja tu peut commencer par cela :

Code :

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

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

[Pol63]

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 !

[anonymousse]

bonsoir,

essaies par exemple :

Code :

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

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)

[oami89]

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??

[MABROUKI]

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 :

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

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....

[oami89]

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

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

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

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

[anonymousse]

bonjour,

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 :

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

Private oldTaille as Size

par :

Code :

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

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

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 :

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

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

par :

Code :

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

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

[MABROUKI]

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 :

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
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......

[oami89]

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??

[MABROUKI]

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 :

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
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....