OCX - PROGRESSBAR

Commentaire de moustachu le 27/03/2003 09:54:13

J'aime beaucoup. 10 simple et sobre

Commentaire de Bricomix le 27/03/2003 17:25:39

Rien à dire ! ProgressBar très bien faite !!! 10/10

Commentaire de Golog le 28/03/2003 07:53:01

super la source , juste ce qu'il me fallait , beau graphique ossi ;)
10/10 :D

Commentaire de PROGRAMMIX le 07/04/2003 22:21:06

Pour empêcher le clignotement du label, pourquoi ne supprimerais-tu pas celui-ci en le remplaçant par une API qui écrirait le pourcentage sur ta barre ?
J'avais vu ça quelque part... faudrait peut-être que je remette la main dessus ?

Commentaire de Zenith le 29/04/2003 13:48:26

Très beau et mieux que celle de VB par défaut (selon moi :)
10/10

Commentaire de PROGRAMMIX le 02/05/2003 11:31:45

Je me retrouve hélas avec une erreur "Dépassement de capacité" ou "Espace pile insuffisante" = > En cause : le RESIZE du contrôle qui ne contient pas de gestion d'erreur et qui se retrouve avec des 0 à gérer
         Case [Pourcentages Int]:
            mCapW = TextWidth(Int((mMax * 100) / (mMax - mMin)) & "%")

Toutefois, bonne présentation.

Commentaire de Renfield le 02/05/2003 14:15:16 administrateur CS

c'est reglé , j'avais mis un controle , mais m'etais trompé de variable , pour le test , je comparais avec le max , juste avant de fixer celui-ci a la valeur choisie par l'utilisateur........

Commentaire de moustachu le 13/12/2003 13:58:54

Nickel. Je le testerai sous NT4 Bien sûr... ;o)

J'en profite pour noter ce n'téait pas encore fait. POur moi c'est du 10

Commentaire de Renfield le 14/12/2003 23:51:52 administrateur CS

je ne sais pas comment l'utilisation de composant se passe sous Excel, ou VbA, en général, essaies de poser la question su rle forum, si tu le désires.
---------------------------------------------------------------------------
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.

Commentaire de pino2 le 15/12/2003 18:05:06

merci moustachu de ta réponse
pour rajouter auncun problème j'ai déja installé des ocx
mais par contre pour compiler ?
peux tu m'aider

Commentaire de pino2 le 15/12/2003 18:16:40

NON JE DISAIS QUE J'AI DéJà INSTALLER DES OCX

MAIS JE N'EST PAS LES OCX DE CETTE SOURCE

Commentaire de Renfield le 29/12/2003 07:18:28 administrateur CS

Le progressbar peut maintenant être affiché en rond......

Commentaire de Renfield le 29/12/2003 11:09:03 administrateur CS

lol. merci.... Je n'ai eu qu'à modifier ma progressBar déjà existante.....
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......

Commentaire de moustachu le 29/12/2003 12:43:31

Salut, de mieux en mieux, cette progress bar.

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

Commentaire de moustachu le 31/12/2003 13:59:11

C'était peut être rien... pour toi ;o)

Merci

Commentaire de patrickzfr le 17/10/2004 15:40:27

Bonjour,

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

Commentaire de patrickzfr le 23/10/2004 17:10:52

Merci pour la réponse

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

Commentaire de scoboy le 18/05/2006 23:29:35

Tout simplement excellent!

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

Commentaire de scoboy le 19/05/2006 09:19:39

il y a effectivement un graphe pour l'acquisition mais le temps n'a pas d'influence sur celle-ci, la progressbar sert à montrer  à l'utilisateur si son acquisition est bientôt fini ou pas.

Commentaire de scoboy le 19/05/2006 10:33:42

La valeur max était bien à 100... ce doit être alors la valeur de l'intervel de mon timer qui doit être fausse, qu'en penses-tu?

Commentaire de mortalino le 24/06/2006 02:38:18

Salut Renfield,

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"

Commentaire de mortalino le 24/06/2006 07:25:49

Tricheur !! (pour la note) lol

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"

Commentaire de ayoubinio3 le 09/07/2007 18:25:01

10/10

Commentaire de Adn56 le 01/10/2007 13:29:34

salut, évidement 10/10, mais juste une chose, peux tu expliquer les paramétres à placer ? j'en ai trouvé un ou deux mais pas tous (j'suis sous vb.net), sinon elle tourne nickel sous .NET

        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