Amusons nous avec un label ^^

Commenter

Contenu du snippet

Aprés lecture de ce sujet sur le forum (http://www.vbfrance.com/forum/sujet-MODESTE-CONTRIBUTION-TEXTE-DEFILE-DANS-LABEL_1551839.aspx) il m'est venu l'idée de vous proposer de poster des codes pour 'délirer' avec un label, c'est formateur - à mon sens - pour les débutants et ne méritte pas d'être dasn un snippet. A vous de jouer les pro-grammeurs ;)
cordialement @dn

-Pour ma source : creer un nouveau projet, y placer deux controls, un timer et un label c'est tout ! copier/coller le code ci dessous et essayez de vos amuser avec.

Source / Exemple : 


Option Explicit On
Option Strict On

Public Class Form1
    Dim couleur As Color
    Dim police As System.Drawing.Font
    Dim inc As Integer = 0
    Dim bascule As Boolean = False
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "Bonjour et Bienvenue sur VB France  ^.^                               "
        Me.Width = 300
        Me.Height = 100
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'créer un texte défilant dans la boîte de label qui bouge et disparait en boucle
        If inc < 220 And Not bascule Then
            inc += 15
        Else
            bascule = True
        End If

        If bascule Then inc -= 15
        If inc <= 10 Then bascule = False
        ' taille de la police de caractére
        police = New Font("arial", Convert.ToSingle(40 - (inc / 10)))
        Label1.Font = police
        'couleur de la font du label
        couleur = Color.FromArgb(0, inc, inc, inc)
        Label1.ForeColor = couleur
        ' déplacement du texte dans le label (code de : Le Pivert)
        Label1.Text = Mid(Label1.Text, 2, Label1.Text.Length - 1) & Mid(Label1.Text, 1, 1)
    End Sub

End Class

Conclusion :


A vous de jouer !

A voir également

Du même auteur (Adn56)