Message défilant dans un Label

[Don Foster]

Bonsoir le Forum,

Je voudrais savoir si , il est possible d'avoir un message défilant dans un Label.

Si quelqu'un a une procédure qui pourrais m'aider je la remerçie par avance , car je n'ai rien trouvé sur ce sujet en cherchant sur le forum.

Bonne soirée à vous

@ + Don Foster

 

[MichelXld]

bonjour Don

cet exemple utilise un WebBrowser à la place d'un Label , pour faire défiler le Texte

Lien supprimé


bonne soiree
MichelXld

 

[Don Foster]

Bonsoir MichelXLD,

Merci pour ta réponse .

La démo du WebBrowser je l'avais déjà mais je pensais que l'on pouvait faire la même chose dans un Label.

Je vais continuer de chercher .

Merci encore pour ta réponse.

@ + Don Foster

 

[Eric C]

Bonjour le forum
Bonjour Don Foster, bonjour mon cher Michel

Après avoire recherché dans ma boîboîte, j'ai retrouve ce code qui je crois provient du site Excelabo et qui réalise ce que tu désires :

Private Declare Function GetTickCount Lib 'Kernel32' () As Long

Public Arreter As Boolean
Dim Texte As String

Public Sub Chrono()
Dim Top As Long
Do
If Arreter = True Then Exit Do
Top = GetTickCount()
Do While GetTickCount() < Top + 70 'Vitesse de défilment
DoEvents
Loop
DoEvents
Message
DoEvents
Loop
End Sub

Sub Message()
Dim Chaine1 As String
Dim Chaine2 As String


'Faire défiler un texte dans un Label
With Label1

Chaine2 = Left(.Caption, Len(Texte) - Len(.Caption) + 1)
Chaine1 = Right(.Caption, Len(.Caption) - 1) & Chaine2
.Caption = Chaine1
End With

End Sub
Private Sub UserForm_Activate()
Chrono
End Sub

Private Sub UserForm_Click()
Arreter = Not Arreter
End Sub

Private Sub UserForm_Initialize()
Texte = 'Voici un message ' & _
'défilant pour animer et ' & _
'attirer l'attention !' & Space(5)
With Label1
.Caption = Texte
.Font.Bold = True
End With
End Sub

Attention au dimensionnement du Label car sinon l'on travailles sur 2 lignes. Pour l'arrêt, il suffit de cliquer sur le USF ==> donc à adapter.

Bonne fin de journée à toutes & à tous 😉

 

[Don Foster]

Bonsoir MichelXLD , Eric C ,

Merci pour la procédure , je vais l'adapter dans mon programme .

à bientôt et merci encore .

@ + Don Foster

 

[avoriaz]

bonjour, MichelXLD , Eric C , Don foster

Pour ma part, je viens de decouvrir ce petit bout de programme, moi j'avais fais ca avec la methode webbrowser mais cette procedure a l'air de prendre moi de ressource sur le pc non ?

enfin, je viens d'essayer et ca marche !!!

superbe macro !!!

merci a vous

avo