begin process at 2012 05 27 18:28:38
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Graphique

 > SCROLLER DIGITAL AVEC CAPOT EN VERRE + REFLET. FAÇON WINAMP

SCROLLER DIGITAL AVEC CAPOT EN VERRE + REFLET. FAÇON WINAMP


 Information sur la source

Note :
8 / 10 - par 1 personne
8,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Graphique Classé sous :scroller, afficheur, api, winamp, bitblt Niveau :Initié Date de création :17/06/2007 Date de mise à jour :17/06/2007 02:28:07 Vu / téléchargé :4 837 / 743

Auteur : WariorProg

Ecrire un message privé
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Cet ActiveX est un scroller façon "WinAmp" avec un capot et son reflet de lumière. J’utilise les API au niveau graphique et j’ai fait quelques relectures afin d’optimiser le tout. Ce qui en fait un control peut gourmand en utilisation de la CPU. Utilisation a peine visible quand le temps de rafraîchissement est au dessus de 40 millisecondes, ce qui est, je pense, pas trop mal aux vues des résultats.
Bref, Lisez bien la petite notice dans l’exemple.


 Conclusion

Très simple à utiliser :
La propriété "Text" : Pour indiquer le texte à afficher.
Exemple : DigitalScroller1.Text = Ucase("Codes-sources est un site genial")
J’utilise "Ucase(…)" car je n’ai pas encore créé les minuscules.

La fonction "Scrolling" : Pour démarrer le scrolling
4 paramètres dont les 3 derniers Optionnels
Exemple : DigitalScroller1.Scrolling True, 1, 40, 1500 : On démarre le scrolling, 1 pixel de décalage à chaque rafraîchissement, rafraîchissement toute les 40 millisecondes, on attend 1,5 seconde en bout de message avant de défiler dans l’autre sens.

Voila tout est dit.
Bonne prog à Toutes et à Tous.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

17 juin 2007 02:21:55 :
Mise à jour du zip, j'avais oublié de supprimer les références inutiles.
17 juin 2007 02:28:07 :
mise à jour de la capture d'écran qui est maintenant de bonne qualité !

 Sources du même auteur

Source avec Zip Source avec une capture OBTENEZ L'ICÔNE D'UN FICHIER GRÂCE À SON EXTENSION.
Source avec Zip Source avec une capture COMMANDER LE PORT PARALLELE SOUS WINXP,2000,NT

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) IMAGE ANIMÉE DANS UNE COLONNE DE DATAGRIDVIEW par foliv57
Source avec Zip Source avec une capture Source .NET (Dotnet) TRIEUR DE PHOTOS par Le Pivert
Source avec Zip Source .NET (Dotnet) ENREGISTREMENT ET DIAGRAMME par jpot31
REDIMENSIONNEMENT D'IMAGE PHP par JStevens
Source avec Zip Source avec une capture Source .NET (Dotnet) POIDS D'UNE IMAGE BMP DE PROFONDEUR 24 BITS par dheroux

 Sources en rapport avec celle ci

Source avec Zip CAISSE ENREGISTREUSE par mimiZanzan
Source avec Zip COMMUNICATION MODBUS MASTER par sergelapointe
Source avec Zip Source .NET (Dotnet) [VB 2005] UTILISATION DES APIS SETPIXEL ET BITBLT par Kite37
Source avec Zip SCREENVIEWER (POUR VOUR UNE PARTIE DE L'ÉCRAN / UN ÉCRAN SEC... par Elektordi
Source avec Zip Source avec une capture UTILISER LES SKINS WINAMP EN VISUAL BASIC (VB6) par PaTaTe

Commentaires et avis

Commentaire de PCPT le 17/06/2007 07:19:01 administrateur CS

salut,

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]

Commentaire de PCPT le 17/06/2007 07:22:40 administrateur CS

voir également à ne pas mettre certaines variables publiques
et ne pas lancer le scroll dans l'init

revois également ton propbag qui ici ne conserve pas les params (pas appelé/utilisé)
++

Commentaire de WariorProg le 18/06/2007 11:38:06

Merci pour toutes ces critiques pertinentes. Il est vrai qu’au départ, ce prog n’était pas destiné à être diffusé sur codes-Sources. Je l’ai fait en reprenant un ancien projet et en le modifiant pour en faire ce dont j’avait besoins. J’en tire une grande leçon : Rien ne sert de courir, il faut partir « à Zéro ». (Bien sur pour de petits projet comme celui-ci). Promis, je ferais une mise au propre des que possible.
Merci encore.
Bonne Prog.

        WariorProg

Commentaire de bbcluny le 02/07/2007 16:43:43

Salut,
peut on avoir une aide sur la Function MakeReflet ?
Merci

Commentaire de nono7380 le 28/06/2009 13:54:31 8/10

Excellent!!
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é...

Commentaire de WariorProg le 10/07/2009 16:44:45

je n'ai pas encore constaté ce probleme, alors je te remercie pour ta participation et je vais me pencher dessus, promis. si j'ai bien compris. Si on affiche un petit texte apres un grand, l'ocx ne scroll plus et se fige dans l'etat precedent. Je pense savoir d'ou viens le probleme alors dans la propriété Text du usercontrol, ajoute cette ligne:
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

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

API de Winamp (IPC_PLAYFILE) & Visual Basic?!? [ par iboz ] Hello tout le monde,J'utilise une base de données avec tous mes albums et je voudrais lancer une chanson autrement qu'avec un shell... qui à chaque fo Problèmes avec les API graphiques de windows [ par Kite37 ] Bonjour !J'ai trouvé des morceaux de code sur différents sites touchant au API graphique présents dans windows, mais je ne sais pourquoi je n'arrive p [VBA] scroller une listebox par API [ par Philippe734 ] Bonjour, Comment scroller une listebox à l'aide d'API en déplacement le curseur de la scroll bar et pas l'index de la listebox ? Scroller : faire déf où trouver l'api org.jsmengine de java pour l'envoi de sms par modem gsm [ par nonogomez ] salut à tous, s'il vous plais je travaille sur un projet dans lequel je devrai envoyer des SMS dans un téléphone portable via un modem GSM. j'ai un c Les APIs [ par NSUADI ] Bonsoir à tous!! Alors je me suis lancé depuis peu dans l'utilisation des API windows...mais un grand problème se pose à moi,celui des paramètres des Erreur:429 concernant l'api Messenger API Type Library [ par nostalgius ] Bonjour, j'essai d'implémenter l'api msn dans une application, voici mon code: [code=vb]Public WithEvents msn As MessengerAPI.Messenger Dim contact As OCX API dans VB6 [ par luxandre ] Bonjour, je suis actuellement sur un projet de scan sur VB6 et je dois utiliser l'OCX IGTHREED40. Le problème c'est que j'ai un problème de licence(" Téléchargement que avec Dll [ par Galactus13 ] Bonjour, je voudrais savoir comment faire, si cela est possible pour: Connaitre le poids d'un fichier avant son téléchargement.(venant d'un serveur) T Gestion de l'API bass.dll [ par antho38120 ] Bonjour a tous, J'ai trouvé sur un post un API permettant la gestion de la plupart des type de musique sauf que je ne sais pas du tout comment l'ajout


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir



 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,718 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales