none
Labels liés RRS feed

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

    mardi 5 octobre 2010 11:03

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
    mardi 5 octobre 2010 12:07

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
    mardi 5 octobre 2010 12:07
  • 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?
    mercredi 6 octobre 2010 08:09
  • Bonjour,

    Je te conseille d'utiliser la propriété TAG du textebox

     


    fred
    mercredi 6 octobre 2010 11:00