SCROLLER DIGITAL AVEC CAPOT EN VERRE + REFLET. FAÇON WINAMP
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
-
17 juin 2007 à 07:19
WariorProg Messages postés 18 Date d'inscription dimanche 9 mai 2004 Statut Membre Dernière intervention 15 décembre 2013 - 10 juil. 2009 à 16:44
WariorProg Messages postés 18 Date d'inscription dimanche 9 mai 2004 Statut Membre Dernière intervention 15 décembre 2013 - 10 juil. 2009 à 16:44
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/43147-scroller-digital-avec-capot-en-verre-reflet-facon-winamp
https://codes-sources.commentcamarche.net/source/43147-scroller-digital-avec-capot-en-verre-reflet-facon-winamp
10 juil. 2009 à 16:44
If Valeur <> vNewValue Then Decallage = 0
juste dessous les 3 declaration Dim et ton probleme serat resolu.
Public Property Let Text(ByVal vNewValue As String)
Dim i As Integer
Dim Caractere As String
Dim CaractereNum As Integer
If Valeur <> vNewValue Then Decallage = 0
Valeur = vNewValue
RetVal = BitBlt(DcFond, 0, 0, PicFond.Width, PicFond.Height, PicFond.hdc, 0, 0, vbSrcCopy)
For i = 1 To (Len(Valeur))
CaractereNum = (Asc(Mid(Text, i, 1))) - 31
If CaractereNum -32 Then CaractereNum 32
Call DrawCaractere(CaractereNum - 1, i - 1, Decallage)
Next i
Call MakeReflet(PicReflet, DcFond)
RetVal = BitBlt(UserControl.hdc, 0, 0, PicFond.Width, PicFond.Height, DcFond, 0, 0, vbSrcCopy)
End Property
28 juin 2009 à 13:54
Mais par contre, j'utilise ton code pour afficher l'état d'un programme, et je me heutre à un petit hic.
> J'affiche un grand texte dans le scroller, ce qui fait que lui est obliger de faire défiller le texte de dr à ga et vice-versa.
Après je met un texte plus court, et le scroller ne revient pas au début mais reste callé à la position précédente, ce qui fait que le début du nouveau texte est non affiché...
2 juil. 2007 à 16:43
peut on avoir une aide sur la Function MakeReflet ?
Merci
18 juin 2007 à 11:38
Merci encore.
Bonne Prog.
WariorProg
17 juin 2007 à 07:22
et ne pas lancer le scroll dans l'init
revois également ton propbag qui ici ne conserve pas les params (pas appelé/utilisé)
++
17 juin 2007 à 07:19
interessant mais il y a quelques points à revoir.
le principal étant la gestion de DesignMode / ExecutionMode de manière à désactiver le timer.
là il devient impossible d'avoir l'aide contextuelle en IDE...
voir également le UCASE à traiter directement par l'UC.
et tant qu'à créer un DC, autant en faire autant pour te passer des 2 picturebox ;)
bon courage ++
PCPT [AFCK]