Meilleur auteur de réponses
Labels liés

Question
-
Bonjour,
J'ai deux problématiques qui se ressemblent :
- comment lier 2 labels : la modification du texte de l'un entraine la mise à jour du texte du second (avec le même texte)
- comment lier la propriété text d'un label à une variable (exemple un nombre), quand la variable change, le text change...
Merci pour vos réponses.
Réponses
-
Bonjour,
Pour cela il faut utiliser l'evènement Textchanged.
voici un exemple:
Public Class Form1
Dim VariableTextbox1 As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = "texte changé"
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = "texte1"
Label2.Text = "texte2"
End Sub
Private Sub Label1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.TextChanged
Label2.Text = Label1.Text
End Sub
Sub VariableChange(ByVal var1 As Integer)
If var1 <> VariableTextbox1 Then
Label1.Text = "La variable a changée"
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
VariableChange(2)
End Sub
End Class
fred- Marqué comme réponse Morphée mercredi 6 octobre 2010 08:09
Toutes les réponses
-
Bonjour,
Pour cela il faut utiliser l'evènement Textchanged.
voici un exemple:
Public Class Form1
Dim VariableTextbox1 As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = "texte changé"
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = "texte1"
Label2.Text = "texte2"
End Sub
Private Sub Label1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.TextChanged
Label2.Text = Label1.Text
End Sub
Sub VariableChange(ByVal var1 As Integer)
If var1 <> VariableTextbox1 Then
Label1.Text = "La variable a changée"
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
VariableChange(2)
End Sub
End Class
fred- Marqué comme réponse Morphée mercredi 6 octobre 2010 08:09
-
Merci pour la réponse Fred, avec l'évènement .TextChanged cela devrait fonctionner.
Par contre il n'y a pas de variable.changed ??
ex:
Dim Mavariable as string Sub MAJTextbox() Handles Mavariable .Changed TextBox1.text=Mavariable End sub
ne fonctionnera pas?
a une solution? -