Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic BrogressBar & StatusBar

BrogressBar & StatusBar

6 réponses
Avatar
Stéphane L.
Bonjour,

Est-il possible d'intégrer 1 ProgressBar directement dans 1 StatusBarPanel ?

Merci d'avance

--
Cordialement,

Stéphane L.
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Stéphane L.
Précision complémentaire :
Genre, comme le chargement d'une page web dans IE.

"Stéphane L." a écrit dans le message de
news:%
Bonjour,

Est-il possible d'intégrer 1 ProgressBar directement dans 1 StatusBarPanel


?

Merci d'avance

--
Cordialement,

Stéphane L.




Avatar
Ghislain Proulx
Bonjour Stéphane,

http://minilien.com/?ZPJmH4kynx
ou
http://groups.google.com/groups?sourceid=navclient&ie=UTF-8&oe=UTF-8&q=ProgressBar+StatusBar+group%3Amicrosoft%2Epublic%2Efr%2Edotnet%2E%2A

Bonne journée

Ghislain Proulx


"Stéphane L." a écrit dans le message de
news:%
Bonjour,

Est-il possible d'intégrer 1 ProgressBar directement dans 1 StatusBarPanel


?

Merci d'avance

--
Cordialement,

Stéphane L.




Avatar
Stéphane L.
Merci Ghislain

Sympa ce minilien, je ne connaissais pas :)

Je vais essayer de regarder ça à la loupe (en effet, j'ai oublié de préciser
en VB).

Stéphane

"Ghislain Proulx" <http://cerbermail.com/?WdR52BEISJ> a écrit dans le
message de news:%
Bonjour Stéphane,

http://minilien.com/?ZPJmH4kynx
ou



http://groups.google.com/groups?sourceid=navclient&ie=UTF-8&oe=UTF-8&q=ProgressBar+StatusBar+group%3Amicrosoft%2Epublic%2Efr%2Edotnet%2E%2A

Bonne journée

Ghislain Proulx


"Stéphane L." a écrit dans le message de
news:%
> Bonjour,
>
> Est-il possible d'intégrer 1 ProgressBar directement dans 1


StatusBarPanel
?
>
> Merci d'avance
>
> --
> Cordialement,
>
> Stéphane L.
>
>




Avatar
Stéphane L.
J'ai pas réussi à comprendre ce C# pour le mettre dans VB :

"Ghislain Proulx" <http://cerbermail.com/?WdR52BEISJ> a écrit dans le
message de news:%
Bonjour Stéphane,

http://minilien.com/?ZPJmH4kynx
ou



http://groups.google.com/groups?sourceid=navclient&ie=UTF-8&oe=UTF-8&q=ProgressBar+StatusBar+group%3Amicrosoft%2Epublic%2Efr%2Edotnet%2E%2A

Bonne journée

Ghislain Proulx


"Stéphane L." a écrit dans le message de
news:%
> Bonjour,
>
> Est-il possible d'intégrer 1 ProgressBar directement dans 1


StatusBarPanel
?
>
> Merci d'avance
>
> --
> Cordialement,
>
> Stéphane L.
>
>




Avatar
Ghislain Proulx
Voici la "traduction" en VB.Net...

Imports System
Imports System.Drawing
Imports System.Windows.Forms


'/ <summary>
'/ Summary description for Class1.
'/ </summary>
Public Class ProgressStatusBar
Inherits System.Windows.Forms.StatusBar

Public Sub New()
Me.SizingGrip = False
Me.ShowPanels = True
End Sub 'New

Protected Overrides Sub OnDrawItem(ByVal sbdevent As
StatusBarDrawItemEventArgs)
If sbdevent.Panel.GetType() Is Type.GetType("MyStatusBar.ProgressPanel")
Then
Dim tmp_progressPanel As ProgressPanel = CType(sbdevent.Panel,
ProgressPanel)
If tmp_progressPanel.Value > tmp_progressPanel.Minimum Then
Dim tmp_Width As Integer Fix(System.Convert.ToSingle(tmp_progressPanel.Value) /
tmp_progressPanel.Maximum * tmp_progressPanel.Width)
Dim tmp_NewBounds As Rectangle = sbdevent.Bounds
Dim paintBrush As New SolidBrush(tmp_progressPanel.ForeColor)
tmp_NewBounds.Width = tmp_Width
sbdevent.Graphics.FillRegion(paintBrush, New
[Region](tmp_NewBounds))
paintBrush.Dispose()
Else
MyBase.OnDrawItem(sbdevent)
End If
Else
MyBase.OnDrawItem(sbdevent)
End If
End Sub 'OnDrawItem

Public Sub UpdateValue(ByVal progressPanel As ProgressPanel, ByVal
newValue As Integer)
progressPanel.Value = newValue
Me.Refresh()
End Sub 'UpdateValue

End Class 'ProgressStatusBar




Public Class ProgressPanel
Inherits System.Windows.Forms.StatusBarPanel
Private m_Minimum As Integer = 1
Private m_Maximum As Integer = 100
Private m_Value As Integer = 0
Private m_Color As Color

Public Sub New()
Me.Style = StatusBarPanelStyle.OwnerDraw
m_Color = Color.Black
End Sub 'New

Public Property Minimum() As Integer
Get
Return m_Minimum
End Get
Set(ByVal Value As Integer)
m_Minimum = Value
End Set
End Property

Public Property Maximum() As Integer
Get
Return m_Maximum
End Get
Set(ByVal Value As Integer)
m_Maximum = Value
End Set
End Property

Public Property Value() As Integer
Get
Return m_Value
End Get
Set(ByVal Value As Integer)
m_Value = Value
End Set
End Property

Public Property ForeColor() As Color
Get
Return m_Color
End Get
Set(ByVal Value As Color)
m_Color = Value
End Set
End Property
End Class 'ProgressPanel

=================================================================== Bonne journée

Ghislain Proulx

"Stéphane L." a écrit dans le message de
news:
J'ai pas réussi à comprendre ce C# pour le mettre dans VB :

"Ghislain Proulx" <http://cerbermail.com/?WdR52BEISJ> a écrit dans le
message de news:%
> Bonjour Stéphane,
>
> http://minilien.com/?ZPJmH4kynx
> ou
>



http://groups.google.com/groups?sourceid=navclient&ie=UTF-8&oe=UTF-8&q=ProgressBar+StatusBar+group%3Amicrosoft%2Epublic%2Efr%2Edotnet%2E%2A
>
> Bonne journée
>
> Ghislain Proulx
>
>
> "Stéphane L." a écrit dans le message de
> news:%
> > Bonjour,
> >
> > Est-il possible d'intégrer 1 ProgressBar directement dans 1
StatusBarPanel
> ?
> >
> > Merci d'avance
> >
> > --
> > Cordialement,
> >
> > Stéphane L.
> >
> >
>
>




Avatar
Stéphane L.
Re merci Ghislain

Stéphane

"Ghislain Proulx" <http://cerbermail.com/?WdR52BEISJ> a écrit dans le
message de news:
Voici la "traduction" en VB.Net...

Imports System
Imports System.Drawing
Imports System.Windows.Forms


'/ <summary>
'/ Summary description for Class1.
'/ </summary>
Public Class ProgressStatusBar
Inherits System.Windows.Forms.StatusBar

Public Sub New()
Me.SizingGrip = False
Me.ShowPanels = True
End Sub 'New

Protected Overrides Sub OnDrawItem(ByVal sbdevent As
StatusBarDrawItemEventArgs)
If sbdevent.Panel.GetType() Is


Type.GetType("MyStatusBar.ProgressPanel")
Then
Dim tmp_progressPanel As ProgressPanel = CType(sbdevent.Panel,
ProgressPanel)
If tmp_progressPanel.Value > tmp_progressPanel.Minimum Then
Dim tmp_Width As Integer > Fix(System.Convert.ToSingle(tmp_progressPanel.Value) /
tmp_progressPanel.Maximum * tmp_progressPanel.Width)
Dim tmp_NewBounds As Rectangle = sbdevent.Bounds
Dim paintBrush As New SolidBrush(tmp_progressPanel.ForeColor)
tmp_NewBounds.Width = tmp_Width
sbdevent.Graphics.FillRegion(paintBrush, New
[Region](tmp_NewBounds))
paintBrush.Dispose()
Else
MyBase.OnDrawItem(sbdevent)
End If
Else
MyBase.OnDrawItem(sbdevent)
End If
End Sub 'OnDrawItem

Public Sub UpdateValue(ByVal progressPanel As ProgressPanel, ByVal
newValue As Integer)
progressPanel.Value = newValue
Me.Refresh()
End Sub 'UpdateValue

End Class 'ProgressStatusBar




Public Class ProgressPanel
Inherits System.Windows.Forms.StatusBarPanel
Private m_Minimum As Integer = 1
Private m_Maximum As Integer = 100
Private m_Value As Integer = 0
Private m_Color As Color

Public Sub New()
Me.Style = StatusBarPanelStyle.OwnerDraw
m_Color = Color.Black
End Sub 'New

Public Property Minimum() As Integer
Get
Return m_Minimum
End Get
Set(ByVal Value As Integer)
m_Minimum = Value
End Set
End Property

Public Property Maximum() As Integer
Get
Return m_Maximum
End Get
Set(ByVal Value As Integer)
m_Maximum = Value
End Set
End Property

Public Property Value() As Integer
Get
Return m_Value
End Get
Set(ByVal Value As Integer)
m_Value = Value
End Set
End Property

Public Property ForeColor() As Color
Get
Return m_Color
End Get
Set(ByVal Value As Color)
m_Color = Value
End Set
End Property
End Class 'ProgressPanel

=================================================================== > Bonne journée

Ghislain Proulx

"Stéphane L." a écrit dans le message de
news:
> J'ai pas réussi à comprendre ce C# pour le mettre dans VB :
>
> "Ghislain Proulx" <http://cerbermail.com/?WdR52BEISJ> a écrit dans le
> message de news:%
> > Bonjour Stéphane,
> >
> > http://minilien.com/?ZPJmH4kynx
> > ou
> >
>



http://groups.google.com/groups?sourceid=navclient&ie=UTF-8&oe=UTF-8&q=ProgressBar+StatusBar+group%3Amicrosoft%2Epublic%2Efr%2Edotnet%2E%2A
> >
> > Bonne journée
> >
> > Ghislain Proulx
> >
> >
> > "Stéphane L." a écrit dans le message de
> > news:%
> > > Bonjour,
> > >
> > > Est-il possible d'intégrer 1 ProgressBar directement dans 1
> StatusBarPanel
> > ?
> > >
> > > Merci d'avance
> > >
> > > --
> > > Cordialement,
> > >
> > > Stéphane L.
> > >
> > >
> >
> >
>
>