Mettre un label en mouvement

Question

Salut tout le monde,

Je débute en VB.NET et je voudrais savoir s'il est possible de mettre un label en mouvement(faire défiler un test)?
Merci d'avance!

cs_Le Pivert · Answer

Bonjour,
Oui c'est possible:
1 label: lblMessage
1 TextBox: txtStart
1 Button: cmdOK
1 Button: cmdStop
1 Timer: timGrf 
voici le code à adapter suivant les besoins

Public Class Form1
    Dim Address As String
    Dim response As DialogResult
   
    Private Sub timGrf_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timGrf.Tick
        'créez un texte défilant dans la boîte de label
        lblMessage.Text = Mid(lblMessage.Text, 2, lblMessage.Text.Length - 1) & Mid(lblMessage.Text, 1, 1)
    End Sub

  Private Sub txtStart_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStart.TextChanged
        If txtStart.TextLength > 9 Then
            response = MessageBox.Show("Votre nom est trop long, faites-le moins de 9 lettres. S'il vous plaît!", "Nom top long", _
            MessageBoxButtons.OK)
            If response = Windows.Forms.DialogResult.OK Then
                txtStart.Focus()
                txtStart.Text = ""
            End If
            Exit Sub
        End If
    End Sub

    Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
        txtStart.Text = StrConv(txtStart.Text, VbStrConv.ProperCase)
        If Trim(txtStart.Text) = "" Then
            Address = "Bonjour"
        Else
            Address = txtStart.Text
        End If
        lblName.Text = Address
        lblMessage.Text = "  Bienvenue  " + Address & "..."
        timGrf.Enabled = True
    End Sub

    Private Sub cmdStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop.Click
        timGrf.Enabled = False
    End Sub
End Class




@+ Le Pivert

cs_syann · Answer

Salut,

Merci de m'avoir répondu.Je l'essaie toute suite en espérant que ça marchera!

Mettre un label en mouvement

2 réponses

Votre réponse

Discussions similaires