1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Amusons nous avec un label ^^

Amusons nous avec un label ^^

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 483 fois - Téléchargée 18 fois

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

Ajouter un commentaire Commentaires
Signaler
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
 1
mes amitiés aussi, et merci pour la note ^^
hu hu cela donne envie d'animer un peu ce site ;)
kenavo
Signaler
Messages postés
11
Date d'inscription
jeudi 5 novembre 2009
Statut
Membre
Dernière intervention
9 juin 2012
un autre conseil pour tes usercontrols le texte, les dimensions, la vitesse de défilement doivent être paramétrables, ApplicationSettingsBase injecté dans un PropertyGrid devrait t'aider. Bonne programmation, amitiés jfcode
Signaler
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
 1
merci à toi, (je sais faire des usercontrols, j'ai même fais un tuto sur les classes "métiers" ^^) ici c'est juste pour montrer des bouts de codes "amusants" simples et didactique, un jeu pour nous et un bon apprentissage pour les débutants. Merci encore pour ta démo d'user control, c'est en effet la bonne méthode à utiliser pour un label réutilisable dans d'autre code. kenavo l'ami et au plaisir de lire sur d'autre de mes sources plus abouti, ton aide me sera précieuse car je suis toujours débutant à mon niveau ;)
Signaler
Utilisateur anonyme
Bonsoir adn56,

Tu peux aussi créer une classe héritant de la classe Label (inherits), y intégrer un timer (system.timers.timer), son événement et le code et même d'autres fonctions ou méthodes personnalisées à ajouter ou à surcharger.
Ceci à l'avantage de pouvoir être réutilisé facilement dans une application, sans avoir à demander au programmeur d'ajouter lui même des composants dans son application pour que ton code fonctionne.
me.controls.add(new monlabeldefilant("texte",couleur,intervalle,position,.....))

public class monlabeldefilant
inherits label
......
sub new(texte as string, couleur as color, ....)
me.text = texte
me.forecolor = couleur
.....

Essaie, tu seras peut être surpris du résultat.
Bonne prog.
Signaler
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
 1
merci banana32, tu as raison, (même si l'optimisation du code n'est pas le but premier de ce post) autant qu'il soit bien écrit ^^
Simple et sympa l'idée ShayW j'aime !

Allez j'attends la suite, kenavo
Afficher les 7 commentaires
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)