Text Label (Intitulé) défilant.

**Karimbon** · 30/10/2007, 13h13

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.

**LeForestier** · 30/10/2007, 13h29

Bonjour,
Ca ne devrai pas être difficile avec la propriété Top du label et un timer !
A+

**ucfoutu** · 30/10/2007, 13h33

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....

**LeForestier** · 30/10/2007, 13h45

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....

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

**SilkyRoad** · 30/10/2007, 18h38

bonsoir

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Text Label (Intitulé) défilant.

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager