Private word As String
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Timer1.Interval = 200
Timer1.Start()
word = "BONJOUR"
End Sub
Private Sub Timer1_Tick(sender As Object, e As System.EventArgs) Handles Timer1.Tick
Static x As Integer = 1
Label1.Text = word.Substring(0, x)
x += 1
If x > word.Length Then
DirectCast(sender, Timer).Stop()
End If
End Sub
Private Sub Timer1_Timer()
Static Position As Long
Static Initialise As Boolean
Dim LeTexte As String
Dim LeTexteApres As String
LeTexte = "Je Défile dans un Label !"
If Initialise = False Then
Initialise = True
Position = Len(LeTexte)
End If
Position = Position + 1
If Position >= 0 Then
LeTexteApres = Space(Position) & LeTexte
Else
LeTexteApres = Mid(LeTexte, Abs(Position))
If Position < -Len(LeTexte) Then
Position = Len(LeTexte)
End If
End If
Label1 = LeTexteApres
End Sub
LeTexteApres = Mid(LeTexte, Abs(Position))
Option Strict On Public Class Form1 'https://www.youtube.com/watch?v=nwT9UxRW_jw Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick If Me.Text = "" Then Me.Text = "T" ElseIf Me.Text = "T" Then Me.Text = "TU" ElseIf Me.Text = "TU" Then Me.Text = "TUT" ElseIf Me.Text = "TUT" Then Me.Text = "TUTO" ElseIf Me.Text = "TUTO" Then Timer1.Stop() Timer2.Start() End If End Sub Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick If Me.Text = "TUTO" Then Me.Text = "TUT" ElseIf Me.Text = "TUT" Then Me.Text = "TU" ElseIf Me.Text = "TU" Then Me.Text = "T" ElseIf Me.Text = "T" Then Me.Text = "" Timer2.Stop() Timer1.Start() End If End Sub Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.Text = "" Timer1.Start() 'regler les 2 Timers à 500 End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Modifié par Zang8 le 24/01/2015 à 22:12
Je vais tester ça et je reviens vous dire quoi ! ;)
Splendide ! tout fonctionne comme je le voulais avec ton code ShayW ! :)
14 févr. 2015 à 15:12
peux-tu nous dire sous quel VB ce code fonctionne?
15 févr. 2015 à 18:49