Défilement de texte dans un label [Résolu]
SnapFAB
- Messages postés
- 61
- Date d'inscription
- samedi 10 novembre 2007
- Dernière intervention
- 5 mars 2011
- Messages postés
- 61
- Date d'inscription
- samedi 10 novembre 2007
- Dernière intervention
- 5 mars 2011
A voir également:
- Vb6 label
- Visual Basic / VB.NET : Faire defiler un texte dans un label - CodeS SourceS - Guide
- Faire flasher un texte dans un label - Codes sources - Visual Basic / VB.NET (Formulaire)
- Scrolling , defilement de texte - Codes sources - Visual Basic / VB.NET (Texte)
- Faire briller un texte dans un label ou textbox - Codes sources - Visual Basic / VB.NET (Texte)
- Défilement de texte mot a mot - Codes sources - Visual Basic / VB.NET (Texte)
16 réponses
Meilleure réponse
- Messages postés
- 1403
- Date d'inscription
- mardi 1 mai 2007
- Dernière intervention
- 7 octobre 2012
..container (Picturebox ou Frame)
<hr />... Y'en a même qui disent qu'ils l'ont vu voler.
<hr />... Y'en a même qui disent qu'ils l'ont vu voler.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1403
- Date d'inscription
- mardi 1 mai 2007
- Dernière intervention
- 7 octobre 2012
Bonsoir Kevin,
très juste ! j' ai pas retenu le détail du sens du défilement.
Maintenant il a deux au prix d' un
Et comme Bonus, un exemple sans container.
Option Explicit
Dim IniCaption As String
Const Plus = 100
Private Sub Form_Load()
' sauver le contenu
IniCaption = Label1.Caption
'initialiser
Label.AutoSize=False
Label1.Caption = Space(Plus) & Label1.Caption
End Sub
Private Sub Timer1_Timer()
'retirer un caractère à chaque passage.
Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption))
If Label1.Caption = "" Then _
Label1.Caption = Space(Plus) & IniCaption
End Sub
'Plus est le nombre d' espace nécéssaire pour faire décaler le contenu du label vers la droite.
A ajuster donc.
<hr />... Y'en a même qui disent qu'ils l'ont vu voler.
très juste ! j' ai pas retenu le détail du sens du défilement.
Maintenant il a deux au prix d' un
Et comme Bonus, un exemple sans container.
Option Explicit
Dim IniCaption As String
Const Plus = 100
Private Sub Form_Load()
' sauver le contenu
IniCaption = Label1.Caption
'initialiser
Label.AutoSize=False
Label1.Caption = Space(Plus) & Label1.Caption
End Sub
Private Sub Timer1_Timer()
'retirer un caractère à chaque passage.
Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption))
If Label1.Caption = "" Then _
Label1.Caption = Space(Plus) & IniCaption
End Sub
'Plus est le nombre d' espace nécéssaire pour faire décaler le contenu du label vers la droite.
A ajuster donc.
<hr />... Y'en a même qui disent qu'ils l'ont vu voler.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1403
- Date d'inscription
- mardi 1 mai 2007
- Dernière intervention
- 7 octobre 2012
deux choses l' une (peut être même les deux )
ta variable Pas est bien déclarée ?
ton Timer est bien en marche ?
Écartant le doute:
Private Sub Form_Load()
'laisses ton label bien au centre
Timer1.Interval=1
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left -10
If Label1.Left = 0 Then _
Label1.Left = 900
End Sub
<hr />... Y'en a même qui disent qu'ils l'ont vu voler.
ta variable Pas est bien déclarée ?
ton Timer est bien en marche ?
Écartant le doute:
Private Sub Form_Load()
'laisses ton label bien au centre
Timer1.Interval=1
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left -10
If Label1.Left = 0 Then _
Label1.Left = 900
End Sub
<hr />... Y'en a même qui disent qu'ils l'ont vu voler.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 228
- Date d'inscription
- mercredi 13 décembre 2000
- Dernière intervention
- 8 août 2011
option explicit
*Message subliminal*
"C'est pas parce qu'ils sont nombreux à avoir tort qu'ils ont raison!"
(Coluche / 1944-1986 / Pensées et anecdotes)
Je brise la règle 1 et 2. Je
*Message subliminal*
"C'est pas parce qu'ils sont nombreux à avoir tort qu'ils ont raison!"
(Coluche / 1944-1986 / Pensées et anecdotes)
Je brise la règle 1 et 2. Je
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 843
- Date d'inscription
- mercredi 22 octobre 2003
- Dernière intervention
- 7 janvier 2009
Salut,
J'allait dire la même chose que LIBRE_MAX, mais il a fait une petit erreur, son texte défile de gauche à droite, c'est à dire qu'il commence à la fin..
Donc plutôt:
Label.Left = Picture.Width
Pas = -1
Sub Timer_Tick()
Label.Left = Label.Left + Pas
If Label.Left <= -Label.Width Then _
Label.Left = Picture.Width
End Sub
Fixe l'interval du timer à 40 au maximum (pour avoir un mouvement fluide) et joue avec la valeur du pas pour changer la vitesse de défilement.
J'allait dire la même chose que LIBRE_MAX, mais il a fait une petit erreur, son texte défile de gauche à droite, c'est à dire qu'il commence à la fin..
Donc plutôt:
Label.Left = Picture.Width
Pas = -1
Sub Timer_Tick()
Label.Left = Label.Left + Pas
If Label.Left <= -Label.Width Then _
Label.Left = Picture.Width
End Sub
Fixe l'interval du timer à 40 au maximum (pour avoir un mouvement fluide) et joue avec la valeur du pas pour changer la vitesse de défilement.
- Messages postés
- 1403
- Date d'inscription
- mardi 1 mai 2007
- Dernière intervention
- 7 octobre 2012
Bonsoir,
Places ton label dans un container (picturebox ou label)
et fait jouer sa propriété Left.
Au début
Label.AutoSize=True
Label.Left=-Label.Width
Pas=10
Sub Timer()
Label.Left=Label.Left+Pas
If Label.Left>=Picture.Width Then _
Label.Left=-Label.Width
End Sub
<hr />... Y'en a même qui disent qu'ils l'ont vu voler.
Places ton label dans un container (picturebox ou label)
et fait jouer sa propriété Left.
Au début
Label.AutoSize=True
Label.Left=-Label.Width
Pas=10
Sub Timer()
Label.Left=Label.Left+Pas
If Label.Left>=Picture.Width Then _
Label.Left=-Label.Width
End Sub
<hr />... Y'en a même qui disent qu'ils l'ont vu voler.
- Messages postés
- 1403
- Date d'inscription
- mardi 1 mai 2007
- Dernière intervention
- 7 octobre 2012
fais ceci et regardes s' il bouges déjà:
Private Sub Form_Load()
' ceci te permet de voir ton label
Label1.Left = Picture1.Width -Label1.Width
'accèlères un peu le pas
Pas = -10
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + Pas
If Label1.Left <= -Label1.Width Then _
Label1.Left = Picture1.Width
End Sub
si ça marches pas, sors ton pc prendre l' air.
Il est sûrement surmené
<hr />... Y'en a même qui disent qu'ils l'ont vu voler.
Private Sub Form_Load()
' ceci te permet de voir ton label
Label1.Left = Picture1.Width -Label1.Width
'accèlères un peu le pas
Pas = -10
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + Pas
If Label1.Left <= -Label1.Width Then _
Label1.Left = Picture1.Width
End Sub
si ça marches pas, sors ton pc prendre l' air.
Il est sûrement surmené
<hr />... Y'en a même qui disent qu'ils l'ont vu voler.
- Messages postés
- 61
- Date d'inscription
- samedi 10 novembre 2007
- Dernière intervention
- 5 mars 2011
Bonsoir Kevin et Max !
J'ai tester vos codes mais aucun des 2 ne fonctionnent chez moi, bon faut dire aussi que je suis une sacrée buse sous VB.
Voici le code que j'ai mis avec une picturebox nommé Picture1 et à l'intérieur un label nommé label1 (j'ai tester avec une frame à la place de la picturebox mais pareil) :
Private Sub Form_Load()
Label1.Left = Picture1.Width
Pas = -1
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + Pas
If Label1.Left <= -Label1.Width Then _
Label1.Left = Picture1.Width
End Sub
J'ai mis l'interval du timer à 40, mais rien ne se passe, je ne vois même pas mon texte.
++, mais merci quand même, et si vous avez une solution je suis preneur
J'ai tester vos codes mais aucun des 2 ne fonctionnent chez moi, bon faut dire aussi que je suis une sacrée buse sous VB.
Voici le code que j'ai mis avec une picturebox nommé Picture1 et à l'intérieur un label nommé label1 (j'ai tester avec une frame à la place de la picturebox mais pareil) :
Private Sub Form_Load()
Label1.Left = Picture1.Width
Pas = -1
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + Pas
If Label1.Left <= -Label1.Width Then _
Label1.Left = Picture1.Width
End Sub
J'ai mis l'interval du timer à 40, mais rien ne se passe, je ne vois même pas mon texte.
++, mais merci quand même, et si vous avez une solution je suis preneur
- Messages postés
- 1403
- Date d'inscription
- mardi 1 mai 2007
- Dernière intervention
- 7 octobre 2012
Alors là , tu nous poses vraiment une colle
Avec DrawText peut être, mais ça marche qu' avec des controls qui ont un Hwnd , je crois.
Il faudra donc troquer ton label contre un TextBox ou PictureBox.
Fais une recherche à ce sujet.
Désolé, je n' ai pas de code à ce proposer.
Bonne continuation.
<hr />... Y'en a même qui disent qu'ils l'ont vu voler.
Avec DrawText peut être, mais ça marche qu' avec des controls qui ont un Hwnd , je crois.
Il faudra donc troquer ton label contre un TextBox ou PictureBox.
Fais une recherche à ce sujet.
Désolé, je n' ai pas de code à ce proposer.
Bonne continuation.
<hr />... Y'en a même qui disent qu'ils l'ont vu voler.
- Messages postés
- 61
- Date d'inscription
- samedi 10 novembre 2007
- Dernière intervention
- 5 mars 2011
Avec un textbox ça ne saccade plus, malheureusement il n'y a pas de fonction autosize sur les textbox
donc si on veut faire défiler du texte à longueur aléatoire ça pose soucis, par contre si le texte est toujours de la même longueur sa passe bien... il me reste plus qu'à trouver une bidouille pour du texte aléatoire...
donc si on veut faire défiler du texte à longueur aléatoire ça pose soucis, par contre si le texte est toujours de la même longueur sa passe bien... il me reste plus qu'à trouver une bidouille pour du texte aléatoire...
- Messages postés
- 61
- Date d'inscription
- samedi 10 novembre 2007
- Dernière intervention
- 5 mars 2011
Pour clôturer ce débat, pour une fois c'est moi qui apporte une bonne nouvelle
C'est très simple comme solution mais ça marche.
Soit un label caché nommé "Label1(0)" en Autosize et un textbox nommé "Text1" (les deux avec police et taille identique)
Label1(0).Caption = "SOURCE D'OU PROVIENT LE TEXTE A DIFFUSER" & " * * * "
Text1.Width = Label1(0).Width
Text1 = Label1(0).Caption
Mettre le pas à -20 et l'intervalle du timer à 1
Aucune saccade garanti ;-)
Allez, je vais pouvoir me coucher heureux et passer une bonne nuit, merci à tous pour votre aide
++
C'est très simple comme solution mais ça marche.
Soit un label caché nommé "Label1(0)" en Autosize et un textbox nommé "Text1" (les deux avec police et taille identique)
Label1(0).Caption = "SOURCE D'OU PROVIENT LE TEXTE A DIFFUSER" & " * * * "
Text1.Width = Label1(0).Width
Text1 = Label1(0).Caption
Mettre le pas à -20 et l'intervalle du timer à 1
Aucune saccade garanti ;-)
Allez, je vais pouvoir me coucher heureux et passer une bonne nuit, merci à tous pour votre aide
++
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.