Text Label (Intitulé) défilant.

Version imprimable

30/10/2007, 13h13
Karimbon

Text Label (Intitulé) défilant.

Bonsoir a tous,
Y a-t-il une possibilité d'insérer un label (Intitulé) défilant de bas en haut sur un userform?

Merci.
30/10/2007, 13h29
LeForestier

Bonjour,
Ca ne devrai pas être difficile avec la propriété Top du label et un timer !
A+
30/10/2007, 13h33
ucfoutu

Bonjour,

manque de précisions...

deux méthodes, déjà (et il y en a d'autres)

1) faire défiler dans un container (en utilisant en effet la propriété top du label... ou... la propriété Left pour un défilement horizontal...puisque même le mode de défilement est encore complètement ignoré !...)

2) faire défiler le contenu d'une variable....

Alors ?

Edit : ah pardon : de bas en haut (lu trop vite)... et alors la propriété top ne suffit pas, dans un tel cas....:lol:

Citation:

Envoyé par ucfoutu

Edit : ah pardon : de bas en haut (lu trop vite)... et alors la propriété top ne suffit pas, dans un tel cas....:lol:

Petit lapsus, la propriété Top suffit..
Et à toutes fins utiles, un exemple parmi tant d'autre d'un timer en VBA

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'Entête du module
'Public m_enabled as Boolean / Private si dans UF
'mettre m_enables = true / ou False pour arrèter le timer
'Exemple d'appel..
'    Call Timer1("00:00:20") ' pour 20 secondes
'    Call Timer1("00:01") ' pour 1 minute
'S'il ne faut que les secondes il y a moyen de simplifier
Public Sub Timer1(Delais As String)
Dim TT
Dim TB
    TB = Split(Delais & ":00:00", ":", -1)
    TT = TimeSerial(Hour(Time) + TB(0), Minute(Time) + TB(1), Second(Time) + TB(2))
 
    While m_Enabled = True
        If TimeSerial(Hour(Time), Minute(Time), Second(Time)) >= TT Then
            TT = TimeSerial(Hour(Time) + TB(0), Minute(Time) + TB(1), Second(Time) + TB(2))
 
            'Déplacer le label
 
        End If
        DoEvents
    Wend
End Sub

A+

bonsoir

Un exemple en utilisant un WebBrowser ("Navigateur Web Microsoft" dans la liste des contrôles supplémentaires)

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
    ParametresHtml "Le forum DVP: Un texte qui défile.", "#000099"
End Sub
 
'scrollAmount définit la vitesse de défilement. 
Private Sub ParametresHtml(LeTexte As String, LaCouleur As String)
    Me.WebBrowser1.Navigate _
        "about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font color= " _
        & LaCouleur & " size='5' face='Arial'>" & _
        "<marquee scrollAmount=3>" & LeTexte & "</marquee></font></body></html>"
End Sub

bonne soirée
michel