Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 483 fois - Téléchargée 18 fois
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
hu hu cela donne envie d'animer un peu ce site ;)
kenavo
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.
Simple 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.