Amusons nous avec un label ^^
Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 270 fois - Téléchargée 18 fois
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.
A vous de jouer !
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
- Amusons nous avec un label ^^
- Creer un label ✓ - Forum - C# / .NET
- Binding label wpf - Conseils pratiques - C# / .NET
- Label delphi ✓ - Forum - Delphi / Pascal
- Label javascript ✓ - Forum - Javascript / DHTML
- Déplacer un Label sur un Panel ✓ - Forum - Delphi / Pascal
Commentaires
- Messages postés
-
1172
- Date d'inscription
- jeudi 24 mai 2007
- Statut
- Membre
- Dernière intervention
- 28 septembre 2013
1hu hu cela donne envie d'animer un peu ce site ;)
kenavo
- Messages postés
-
1172
- Date d'inscription
- jeudi 24 mai 2007
- Statut
- Membre
- Dernière intervention
- 28 septembre 2013
1Tu 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.
- Messages postés
-
1172
- Date d'inscription
- jeudi 24 mai 2007
- Statut
- Membre
- Dernière intervention
- 28 septembre 2013
1Simple et sympa l'idée ShayW j'aime !
Allez j'attends la suite, kenavo
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.