OVH Cloud OVH Cloud

ProgressBar

12 réponses
Avatar
scraper
Bonjour à tous !

y aurait il un moyend e modifier la couleur de fonds d'une progressbar (en VB6)

j'en ai inclus une dans mon projet, elle fonctionne plutôt bien, mais j'ai voulu modifier la couleur de ma Form, et le fonds de ma
ProgressBar reste d'un gris morne et désolant ?

... je n'ai pas trouvé de propirété Backcolor pour ce control ??

merci :-)

--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper

10 réponses

1 2
Avatar
ng
Salut,

Oui il y a un moyen, recherche sur google groups, mais je te conseille
plutot de faire ta ProgressBar toi même notamment à l'aide d'une PictureBox
et de sa méthode Line (en utilisant BF).

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"scraper" a écrit dans le message de news:

Bonjour à tous !

y aurait il un moyend e modifier la couleur de fonds d'une progressbar (en


VB6)

j'en ai inclus une dans mon projet, elle fonctionne plutôt bien, mais j'ai


voulu modifier la couleur de ma Form, et le fonds de ma
ProgressBar reste d'un gris morne et désolant ?

... je n'ai pas trouvé de propirété Backcolor pour ce control ??

merci :-)

--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper



Avatar
Elicend_News
quelle est cette méthode?

merci

"ng" a écrit dans le message de
news:uZ4GKC%
Salut,

Oui il y a un moyen, recherche sur google groups, mais je te conseille
plutot de faire ta ProgressBar toi même notamment à l'aide d'une


PictureBox
et de sa méthode Line (en utilisant BF).

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"scraper" a écrit dans le message de news:

> Bonjour à tous !
>
> y aurait il un moyend e modifier la couleur de fonds d'une progressbar


(en
VB6)
>
> j'en ai inclus une dans mon projet, elle fonctionne plutôt bien, mais


j'ai
voulu modifier la couleur de ma Form, et le fonds de ma
> ProgressBar reste d'un gris morne et désolant ?
>
> ... je n'ai pas trouvé de propirété Backcolor pour ce control ??
>
> merci :-)
>
> --
>
> Attention ! Adresse mail invalide ...
> Pour me contacter, cliquez sur le lien ci-dessous:
> http://scraper.chez.tiscali.fr/contact.htm
>
> scraper
>




Avatar
François Picalausa
Bonjour/soir,

En ce qui concerne la méthode par API (sans picturebox):
Option Explicit

Const CCM_FIRST = &H2000 'Common control shared messages
Const CCM_SETBKCOLOR = (CCM_FIRST + 1)

Private Const WM_USER = &H400

'Minimum operating systems
'Windows 2000,
'Windows NT 4.0 with Internet Explorer 4.0,
'Windows 98,
'Windows 95 with Internet Explorer 4.0
'(pour les deux messages qui suivent)

Const PBM_SETBARCOLOR = (WM_USER + 9)
Const PBM_SETBKCOLOR = CCM_SETBKCOLOR

Const CLR_NONE = &HFFFFFFFF
Const CLR_DEFAULT = &HFF000000 'couleur par défaut

Private Declare Function SendMessage _
Lib "user32" _
Alias "SendMessageA" _
( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any _
) _
As Long

Private Sub Command1_Click()
'ForeColor
SendMessage ProgressBar1.hwnd, PBM_SETBARCOLOR, 0, ByVal vbRed
'BackColor
SendMessage ProgressBar1.hwnd, PBM_SETBKCOLOR, 0, ByVal vbBlue
End Sub

Private Sub Form_Load()
'50%
ProgressBar1.Value = ProgressBar1.Min + _
(ProgressBar1.Max - ProgressBar1.Min) / 2
End Sub
----------------------------------------------------------------------------
----------------------

Pour un picturebox, il est possible d'utiliser cette méthode:
(récupérer dans l'installateur fournit avec le p&d):
Public Sub UpdateStatus(pic As PictureBox, ByVal sngPercent As Single,
Optional ByVal fBorderCase As Boolean = False)
Dim strPercent As String
Dim intX As Integer
Dim intY As Integer
Dim intWidth As Integer
Dim intHeight As Integer

Dim intPercent As Integer

'For this to work well, we need a white background and any color
foreground (blue)
Const colBackground = &HFFFFFF ' white
Const colForeground = &H800000 ' dark blue

pic.ForeColor = colForeground
pic.BackColor = colBackground

'
'Format$ percentage and get attributes of text
'
intPercent = Int(100 * sngPercent + 0.5)

'Never allow the percentage to be 0 or 100 unless it is exactly that
value. This
'prevents, for instance, the status bar from reaching 100% until we are
entirely done.
If intPercent = 0 Then
If Not fBorderCase Then
intPercent = 1
End If
ElseIf intPercent = 100 Then
If Not fBorderCase Then
intPercent = 99
End If
End If

strPercent = Format$(intPercent) & "%"
intWidth = pic.TextWidth(strPercent)
intHeight = pic.TextHeight(strPercent)

'
'Now set intX and intY to the starting location for printing the
percentage
'
intX = pic.Width / 2 - intWidth / 2
intY = pic.Height / 2 - intHeight / 2

'
'Need to draw a filled box with the pics background color to wipe out
previous
'percentage display (if any)
'
pic.DrawMode = 13 ' Copy Pen
pic.Line (intX, intY)-Step(intWidth, intHeight), pic.BackColor, BF

'
'Back to the center print position and print the text
'
pic.CurrentX = intX
pic.CurrentY = intY
pic.Print strPercent

'
'Now fill in the box with the ribbon color to the desired percentage
'If percentage is 0, fill the whole box with the background color to
clear it
'Use the "Not XOR" pen so that we change the color of the text to white
'wherever we touch it, and change the color of the background to blue
'wherever we touch it.
'
pic.DrawMode = 10 ' Not XOR Pen
If sngPercent > 0 Then
pic.Line (0, 0)-(pic.Width * sngPercent, pic.Height), pic.ForeColor,
BF
Else
pic.Line (0, 0)-(pic.Width, pic.Height), pic.BackColor, BF
End If

pic.Refresh
End Sub

Bordercase sert dans les cas où sngPercent vaut 0 ou 100%. Dans ce cas, il
trace le rectangle complet ou aucun rectangle au lieu de faire une
approximation de la taille.

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"Elicend_News" a écrit dans le message de
news:4022350f$0$18972$
quelle est cette méthode?

merci

"ng" a écrit dans le message de
news:uZ4GKC%
Salut,

Oui il y a un moyen, recherche sur google groups, mais je te
conseille plutot de faire ta ProgressBar toi même notamment à l'aide
d'une PictureBox et de sa méthode Line (en utilisant BF).

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"scraper" a écrit dans le message de news:

Bonjour à tous !

y aurait il un moyend e modifier la couleur de fonds d'une
progressbar (en VB6)

j'en ai inclus une dans mon projet, elle fonctionne plutôt bien,
mais j'ai voulu modifier la couleur de ma Form, et le fonds de ma
ProgressBar reste d'un gris morne et désolant ?

... je n'ai pas trouvé de propirété Backcolor pour ce control ??

merci :-)

--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper






Avatar
Zoury
Salut Nicolas! :O)

Exemple en PJ.



juste une p'tite note qui pourrait t'intéresser..

Lorsque tu postes une pièce jointe à un message, ce dernier ne s'archive pas
dans Google. C'est pourquoi lorsque je poste un exemple avec projet, j'envoi
le code dans un premier message et le projet en attachement dans un message
qui suit...

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
Avatar
ng
Salut,

Ok merci pour l'info, c'est noté ;-)

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news: #
Salut Nicolas! :O)

> Exemple en PJ.

juste une p'tite note qui pourrait t'intéresser..

Lorsque tu postes une pièce jointe à un message, ce dernier ne s'archive


pas
dans Google. C'est pourquoi lorsque je poste un exemple avec projet,


j'envoi
le code dans un premier message et le projet en attachement dans un


message
qui suit...

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous




Avatar
François Picalausa
Bonjour/soir,

autre petite note, AMHA, pour si peu de code, il n'est pas nécessaire
d'envoyer une projet en pj ;-)
Pense aux pauvres 56K!

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"ng" a écrit dans le message de
news:
Salut,

Ok merci pour l'info, c'est noté ;-)


"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message
de news: #
Salut Nicolas! :O)

Exemple en PJ.



juste une p'tite note qui pourrait t'intéresser..

Lorsque tu postes une pièce jointe à un message, ce dernier ne
s'archive pas dans Google. C'est pourquoi lorsque je poste un
exemple avec projet, j'envoi le code dans un premier message et le
projet en attachement dans un message qui suit...

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml -
http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à
tous




Avatar
ng
en même temps le message ne depasse pas les 4Ko...

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"François Picalausa" a écrit dans le message de news:
#
Bonjour/soir,

autre petite note, AMHA, pour si peu de code, il n'est pas nécessaire
d'envoyer une projet en pj ;-)
Pense aux pauvres 56K!

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"ng" a écrit dans le message de
news:
> Salut,
>
> Ok merci pour l'info, c'est noté ;-)
>
>
> "Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message
> de news: #
>> Salut Nicolas! :O)
>>
>>> Exemple en PJ.
>>
>> juste une p'tite note qui pourrait t'intéresser..
>>
>> Lorsque tu postes une pièce jointe à un message, ce dernier ne
>> s'archive pas dans Google. C'est pourquoi lorsque je poste un
>> exemple avec projet, j'envoi le code dans un premier message et le
>> projet en attachement dans un message qui suit...
>>
>> --
>> Cordialement
>> Yanick Lefebvre - MVP pour Visual Basic
>> http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
>> http://www.mentalis.org/agnet/apiguide.shtml -
>> http://www.mztools.com/
>>
>> Merci de poster les réponses au groupe afin d'en faire profiter à
>> tous




Avatar
scraper
salut à François Picalausa

qui dans son message news:,

nous a écrit/répondu :


Bonjour/soir,

En ce qui concerne la méthode par API (sans picturebox):
Option Explicit



..

merci, ça me tombe bien, j'ai cherché sur google, sur les fora, et rien
trouvé .. sans doute mes critères de recherche pas bons ! :-)

je te tiens au courant ...

:-)

--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper
Avatar
scraper
salut à ng

qui dans son message news:uZ4GKC%,

nous a écrit/répondu :


Salut,

Oui il y a un moyen, recherche sur google groups, mais je te conseille
plutot de faire ta ProgressBar toi même notamment à l'aide d'une
PictureBox et de sa méthode Line (en utilisant BF).




merci, mais pas trouvé ??

pas grave, m'en ais tester la méthode de François, et la tienne ..

je reviens quand j'ai fini ! :-)

merci encore




--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper
Avatar
ng
Regarde mes messages précédent, j'ai joint un ZIP exemple.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"scraper" a écrit dans le message de news:

salut à ng

qui dans son message news:uZ4GKC%,

nous a écrit/répondu :


> Salut,
>
> Oui il y a un moyen, recherche sur google groups, mais je te conseille
> plutot de faire ta ProgressBar toi même notamment à l'aide d'une
> PictureBox et de sa méthode Line (en utilisant BF).
>

merci, mais pas trouvé ??

pas grave, m'en ais tester la méthode de François, et la tienne ..

je reviens quand j'ai fini ! :-)

merci encore
>

--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper




1 2