Barre animée = chenillard (usercontrol)

Soyez le premier à donner votre avis sur cette source.

Vue 6 170 fois - Téléchargée 655 fois

Description

Bonjour.
Voici un petit gadget qui mérite d'être retravaillé, mais qui vous donnera surement des idées d'utilisation :
Cette barre est une zone à l'intérieur de laquelle défile un pavé.
Vous pouvez choisir :
- L'orientation : Gauche vers Droite (et l'inverse) et Haut vers Bas (et l'inverse)
- La vitesse de défilement
- L'état Marche/Arrêt
- La couleur de fond et celle du pavé
- Le nombre de pavés à faire défiler

Initialement, j'avais prévu d'aller plus loin en prévoyant un Style : Chenillard, Aller-Retour et Flèches. Mais le courage m'a manqué.
J'ai laissé la propriété Style, mais elle n'a pas d'effet.
(le mode Flèches devait faire apparaitre une flèche au lieu du pavé coloré, et le mode Aller-Retour devait faire revenir le pavé dans l'autre sens une fois arrivé à une extrémité, façon K2000 (mon dieu))

Source / Exemple :


' Vous pouvez :
' - Utiliser le controle OCX en le déclarant dans les composants de votre projet
' - Utiliser le groupe de projet "BarreAnimée.vbg" qui regroupe le composant et une forme de démo

Conclusion :


La capture d'écran n'est pas très représentative puisqu'il s'agit d'une animation.
Essayez-le, vous verrez, c'est sympa.

Bug connu et non résolu :
En mode création, si le controle est en marche (vous voyez de suite la gueule du défilement). Par contre, il va vous géner pour écrire du code dans votre projet :
Si vous tapez "Me.", la liste des controles de la feuille apparait mais disparait dès que le timer du controle prend la main et gère les affichages.
Donc, après avoir fait votre choix des couleurs et orientation, je vous conseille de repasser le controle sur "ba_Etat = Arrêt" et de le réactiver par votre code quand vous en aurez besoin ou bien dans le Form_Load.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
Merci Steven
Je sais qu'il y a possiblité de savoir si on est en mode Design sous VB6, mais je ne m'en souvient plus (et pas trop le temps de chercher)
Messages postés
3
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
24 juin 2008

Pour le bug, en VB.NET :

Public Sub New()
t.Interval = 20
If Not System.ComponentModel.LicenseManager.UsageMode = System.ComponentModel.LicenseUsageMode.Designtime Then
t.Start()
Else
intTextPosition = 0
End If
End Sub
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
Désolé, ça fonctionne bien chez moi.
Il faudrait nous dire quelle erreur tu as.
Est-ce une erreur Zip ou de VB ?
Est-ce que tu lances bien le fichier VBG ? (qui regroupe le souce de l'OCX et la démo)

Eventuellement, envoie moi un message privé si tu as des soucis.
Messages postés
1
Date d'inscription
lundi 30 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2007

salut, je télécharge le zip, mais une erreur se produit quand je lance le .vbp
du coup, je ne pas voir ce que ça donne...
Messages postés
1079
Date d'inscription
jeudi 14 novembre 2002
Statut
Membre
Dernière intervention
1 janvier 2012

Ouais, c''est marrant, j'aime bien.
Tu dois pas en être loinde K2000. Pour ton histoire de bug, j'ai eu ça une fois, c'est effectivement le timer qui se met en route, peut être peux tu envoyer au controle l'ordre de démarrer ou non ?.... Désolé, je viens de relire la fin de ton explication c'est déjà ce que tu dis...

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.