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

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Adn56)