OCX - PROGRESSBAR
cs_moustachu
Messages postés
1079
Date d'inscription
jeudi 14 novembre 2002
Statut
Membre
Dernière intervention
1 janvier 2012
-
27 mars 2003 à 09:54
cs_bidouille007 Messages postés 257 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 22 décembre 2012 - 2 sept. 2009 à 02:09
cs_bidouille007 Messages postés 257 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 22 décembre 2012 - 2 sept. 2009 à 02:09
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/6566-ocx-progressbar
https://codes-sources.commentcamarche.net/source/6566-ocx-progressbar
2 sept. 2009 à 02:09
11 janv. 2008 à 20:08
C'est toujours un plaisir d'utiliser un de tes codes source ;-)
Que dire ? Nickel, bravo !
10/10, comme d'hab.
Cordialement,
ym_trainz
1 oct. 2007 à 13:29
Dim a As String = AxReyProgressBar1.Caption ' retourne la valeur de l'afficheur
'AxReyProgressBar1.Complete() ??? affichage plein ???
AxReyProgressBar1.Reset() 'retour à zéro
' AxReyProgressBar1.set_BackColor(??)
'AxReyProgressBar1.set_BarColor (??)
'AxReyProgressBar1.set_CaptionAlignment(?? )
'AxReyProgressBar1.set_CaptionColor (??)
AxReyProgressBar1.set_CaptionMask("ReyProgressBar") 'affichage du texte
AxReyProgressBar1.set_CaptionType(0) '????
AxReyProgressBar1.set_Direction(0) '???
AxReyProgressBar1.set_Max(60)'ok
AxReyProgressBar1.set_Min(0) 'ok
AxReyProgressBar1.set_ProgressType(1) '0carré, 1rond transparent, 2rond avec fond
'AxReyProgressBar1.set_ShowCaption(???)
AxReyProgressBar1.set_SmoothScrolling(1) ???
AxReyProgressBar1.set_StartAngle(180) ' angle de départ
AxReyProgressBar1.set_Value(0) ' valeur à afficher
tiens puis il me jette avec ça : :(
Private Sub AxReyProgressBar1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles AxReyProgressBar1.MouseClick (mouseclick ne peux pas gérer car pas la meme signature ralalala les joies de VB.net ^^) merci pour tes infos et encore Bravo
10 août 2007 à 17:55
10/10 sans contexte !!!
9 juil. 2007 à 18:25
4 août 2006 à 21:25
Elle va m'être très utile.
Il me manque juste deux petites possibilités.
- Pouvoir afficher la barre de progression de 0 à xxx avec en même temps le texte de xxx à 0.
- Gerer le cas ou le max est inconnu.
Pour le premier cas je devrais m'en sortir en jouant sur le masque et en rajoutant une condition Replace dans le Refresh.
Pour le second cas, certains logiciels ont une progressbar style K2000. Je sais pas si c'est possible avec ton ocx? Ca va être plus chaud à gérer je pense.
Je met 10 pour le taf, ça le mérite.
Sevyc64 (alias Casy)
# LE PARTAGE EST NOTRE FORCE #
24 juin 2006 à 07:25
Désolé pour le MP, j'avais pas vu le commentaire. Et bien tes explications sont très claires. Je te remercie d'ailleurs d'avoir répondu aussi rapidement.
Bon WE.
@++
--Mortalino--
Le Mystérieux Chevalier "Provençal, le Gaulois"
24 juin 2006 à 06:00
en fait, a moins de préciser dans les options du projet que tu souhaite maintenir la compatibilité avec un ocx existant (celui du Zip, par exemple), quand tu vas recompiler l'OCX, celui-ci va se voir générer un nouvel CLSID
késako ? c'est simplement un identifiant, qui ressemble à
{27D0BCCC-344D-4287-AF37-0C72C161E24C}
en changeant cet identifiant, Windows, par la suite, considère que l'ocx du zip, et celui que tu as recompilé sont complètement distincts.
lorsque tu fais RegSvr32, windows appelle une petite fonction de l'OCX, qui va écrire en base de registre le nom du(/des) controle, ainsi que leur CLSID, ca écrit le CLSID de l'ocx et son emplacement sur le disque... la boucle est bouclée :
lorsqu'un programme demande la création d'un ReyProgressBar.ctl, Windows vva chercher ce controle, va chercher la version 'courante' (en cas de mise a jour)
va en déduire le CLSID, qui va lui permettre, enfin, d'identifier l'OCX contenant le controle. Enfin, il va faire joujou avec pour te créer ton controle.
si tu as d'autre question... n'hésites pas ^^
24 juin 2006 à 02:38
Comme tu le sais, j'adore tes OCX. Cependant, j'observe un p'tit souci :
Je viens de rajouter une dernière source (trieur de doublons) et je souhaitais utiliser ton reyProgressBar.
Je l'ai compilé et mis dans le dossier de mon projet. Je l'ai ensuite référencé, donc là nickel, mais si je modifie le nom du dossier où est contenu l'OCX => la référence n'est plus chargé.
Je sais paré ce problème donc il est pas génant en soi, c'est juste qu'en fournissant ton OCX dans le Zip de ma source, lorsque les membres téléchargent la source doublons, l'OCX ne se charge pas après ouverture du .vbp.
Temporairement j'ai mis le ProgressBar du SP5 (common contrôls) et avec le Manifest de PCPT, il est mieux : mais ça ne vaut pas le tiens.
Si t'as une solution, je suis preneur !
(j'avais pas noté cet OCX, c'est chose faite. Je ne te dis pas la note, je suis sûr que tu la connais) ;-)
@++
--Mortalino--
Le Mystérieux Chevalier "Provençal, le Gaulois"
19 mai 2006 à 12:53
19 mai 2006 à 10:33
19 mai 2006 à 09:48
quels sont est la valeur du Max de ta progressbar ?
(tu dois pouvoir la réduire, et mettre 100 : directement le pourcentage.)
19 mai 2006 à 09:19
19 mai 2006 à 08:03
l'évolution, tu l'affiche pas plutot sur un graph ?
18 mai 2006 à 23:29
Mais j'ai quand même une petite chose à te demander : voilà en fait je veux utiliser une progressbar permettant de montrer l'évolution en temps d'une acquisition (l'utilisateur fixe avant son acquisition un temps), jusque là pas de problème, sauf que les acquisitions peuvent et doivent permettre d'aller jusqu'à 12 heures d'acquisition! Seulement le maximum au niveau temps de la progressbar ne permet pas celà, un message d'erreur s'affiche alors à la compilation lorsque je veux faire une aquisition de 2 heures. Comment pourrais-je corriger ?
D'avance merci
24 oct. 2004 à 10:05
23 oct. 2004 à 17:10
j'ai mis NbEnr comme j'aurais pu mettre autre chose! en l'occurence, il s'agit d'un fichier texte d'environ 800 lignes dans lequel je fais des tris et des comparaisons pour sauvegarder dans un nouveau fichier ce qui m'intéresse... rien de bien méchant!
Et le pb est que si je prends le même code avec cette fois ci la "vraie" progressbar de VB, en remplaçant les "ReyProgressBar1.Value" par "ProgressBar1.Value" la, aucun souci, la progression est linéaire et l'affichage progresse bien jusqu'au 100%..
curieux non ??
17 oct. 2004 à 23:36
For I = 1 to NbEnr
.....
DoEvents '<<<< Pour redonner la main au système
Next I
17 oct. 2004 à 15:40
j'utilisais jusqu'à maintenant la ProgressBar fournie en standard avec VB6, mais je viens de tomber sur celle de Renfield et j'aimerais bien l'utiliser!
J'ai donc ajouté le composant OCX dans mon VB, repris une de mes sources qui contient déja la ProgressBar standard et inséré la nouvelle ReyProgressBar sur ma Form, puis j'ai tout simplement remplacé dans le code "ProgressBar1" par "ReyProgressBar1".
... mais ça ne marche pas!! Aucun message d'erreur, mon traitement s'effectue sans soucis, mais rien ne bouge, la barre reste à 0%..
En remettant l'ancienne ProgressBar, tout refonctionne correctement (environ 8 secondes de progression entre 0 et 100 pour la barre windaube, donc je la vois parfaitement avancer).
Qu'est-ce que je fais de mal ??
Je laisse les valeurs par défaut de la ReyProgressBar et voila mon code:
Dim increment As Currency
' ....... je fais un bilan de tout ce que j'ai à traiter...
increment = 100 / (LongueurTotale / 800) ' ... et j'initialise la progressbar à zéro
ReyProgressBar1.Value = 0
....
' je lance mon traitement dans une boucle:
For I = 1 to NbEnr
.....
' et a la fin de chaque opération, j'incrémente la ProgressBar :
If (ReyProgressBar1.Value + increment) < 100 Then
ReyProgressBar1.Value = ReyProgressBar1.Value + increment
Else
ReyProgressBar1.Value = 100
End If
Next I
12 sept. 2004 à 23:38
super cette progess,je vais l'utiliser dans une appli pro.
encore merci pour le boulot
31 déc. 2003 à 13:59
Merci
31 déc. 2003 à 07:28
29 déc. 2003 à 12:43
Juste un petyit détail quand on passe de "rond" à "barre", chez moi, ça reste "rond" mais à l'execution c'est bien une "barre". C'est clair :o?
En tous cas, vraiment très bien et fluide
29 déc. 2003 à 11:13
29 déc. 2003 à 11:09
et a refaire l'API AngleArc, qui etait incompatible avec Windows98.....
J'en conclus que c'est ce que tu souhaitais.......
ok pour la capture, mais j'ai releasé vite fait ce matin avant de partir......(on verra ca se soir)
la couleur du texte peut-etre changée. Utilises CaptionColor pour définir la couleur
et met UseCaptionColor à True pour l'activer......
29 déc. 2003 à 10:14
Il ne me reste qu'à étudier le tout pour pouvoir jouer avec les couleurs et autres options. Est-il possible de mettre une autre couleur que celle du fond au texte ?
Bravo pour la qualité et la rapidité du service : le contrôle était livré dans les 16 heures après la commande. 10/10
Merci.
PS: tu devrais refaire une capture avec l'ensemble des possibilités de ta source.
29 déc. 2003 à 07:18
15 déc. 2003 à 21:39
Je viens de mettre l'OCX dans le zip, si tu veux...
15 déc. 2003 à 18:16
MAIS JE N'EST PAS LES OCX DE CETTE SOURCE
15 déc. 2003 à 18:13
15 déc. 2003 à 18:05
pour rajouter auncun problème j'ai déja installé des ocx
mais par contre pour compiler ?
peux tu m'aider
15 déc. 2003 à 10:30
Pour Pino2, je pense qu'il faut que tu compile l'ocx puis tu le rajoutes comme composant dans l'éditeur de macro :Menu Outils > Références puis click droit sur la boites à outils >> Controles supplémentaires
14 déc. 2003 à 23:51
---------------------------------------------------------------------------
Je viens de mettre a jour (encore) mon controle, pour y intégrer la possibilité de l'afficher en non-Smooth (petits rectangles; voir capture).
j'ai aussi ajouté un Offset parametrable sur la position du Texte.
14 déc. 2003 à 11:37
il me plait
mais j'utilise exclusivement excel donc vba
comment pouvoir l'utiliser ?
merci
13 déc. 2003 à 13:58
J'en profite pour noter ce n'téait pas encore fait. POur moi c'est du 10
13 déc. 2003 à 12:06
- Personnalisation du texte
- ProgressBar en dégradé
- Personnalisation de plein de choses
- Enfin compatible Windows 98
- Plus Rapide et moins gourmand
- Evenements & Méthodes supplémentaires
2 mai 2003 à 14:15
2 mai 2003 à 14:09
2 mai 2003 à 11:31
Case [Pourcentages Int]:
mCapW = TextWidth(Int((mMax * 100) / (mMax - mMin)) & "%")
Toutefois, bonne présentation.
29 avril 2003 à 14:31
29 avril 2003 à 13:48
10/10
21 avril 2003 à 16:12
http://www.vbfrance.com/article.aspx?Val=8216
7 avril 2003 à 22:21
J'avais vu ça quelque part... faudrait peut-être que je remette la main dessus ?
2 avril 2003 à 12:51
28 mars 2003 à 07:53
10/10 :D
27 mars 2003 à 20:13
27 mars 2003 à 17:25
27 mars 2003 à 11:50
*ajoute Picture1.Refresh dans Sub UserControl_Paint() ca enleve le flicking et les pb de rafraichissement qd la la propriété value change tro vite
*évite de recalculer dans Property Let Value label(0) et label(1) ont la mem valeur il vaut tjrs mieux affecter la valeur der label(0) que de recalculer, autant économiser du CPU -surtt ke les progress bar c pour les traitements de fond :) -
voila sinon sympa le design.
27 mars 2003 à 09:54