Message déffilant dans statusbar

Question

Bonjour tout le monde.

Je souhaiterais savoir comment faire un message déffilant dans la statutsbar.

Dans la propriété de la statutsbar/Zone

J'ai écris "bienvenue" dans le text

C'est ce message que je voudrais qui déffile sauf quand il ya une action dans mon application.

Mercie d'avande pour votre aide.

A bientôt

cs_EBArtSoft · Answer

Option Explicit

Dim Texte As String

Private Sub Form_Load()
    Timer1.Interval = 250
    Texte = "Bienvenue" & Space(10)
End Sub

Private Sub Timer1_Timer()
    Texte = Right$(Texte, Len(Texte) - 1) & Left$(Texte, 1)
    StatusBar1.SimpleText = Texte
End Sub

Pour stopper : Timer1.Enabled = False

@+

E.B.

developvbdebut · Answer

Bonsoir

Mercie pour votre aide.

Mais VB6 marque erreur d'execution 5 en selectionnant la ligne ci-dessous.

Texte = Right$(Texte, Len(Texte) - 1) & Left$(Texte, 1)

Y'a t'il une erreur de syntaxe?

Mercie

A bientôt

cs_EBArtSoft · Answer

Non pas d'erreur de syntaxe mais peut etre que le texte est vide :

Texte = ""

Dans ce cas voir le code ci dessus

@+

E.B.

developvbdebut · Answer

Bonjour

J'ai essayé en fesant:


Private Sub Timer2_Timer()

Texte = Right$(Texte, Len(Texte) - 1) & Left$(Texte, 1)StatusBar1.SimpleText Texte"bienvenue"
    
End Sub


Mais il marque toujour erreur d'execution 5 "Argument ou appel de procedure incorret" en selectionnant la même ligne.

Je vous resignal que je travaille avec VB6. 

Peut être que VB6 ne comprend pas?

Vue qu'il repond "Argument ou appel de procedure incorret"

Que me proposez vous pour résoudre ce probleme?

Mercie

A bientôt

cs_ho2 · Answer

Je ne connais pas tres bien, mais essaye peut etre &#231;a : 

Option Explicit

Dim Texte As String

Private Sub Form_Load()
Timer1.Interval = 250
Texte$ = "Bienvenue" & Space(10)
End Sub

Private Sub Timer1_Timer()
Texte$ = Right$(Texte, Len(Texte) - 1) & Left$(Texte, 1)
StatusBar1.SimpleText = Texte$
End Sub
moi &#231;a fonctionne

Message déffilant dans statusbar

5 réponses

Discussions similaires