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 commenta faire un bargraphe

commenta faire un bargraphe

5 réponses
Avatar
Long YE-SU
dans VB6, avec quel objet peut on faire un bargraphe
de 0 à 100% ?

Long YE-SU
Signaler un problème avec ce contenu

5 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
Aski
Hugh Long YE-SU,

En folâtrant sur ton clavier, les mots suivant t'ont échappé :

dans VB6, avec quel objet peut on faire un bargraphe
de 0 à 100% ?

Long YE-SU



C'est l'objet ProgressBar que tu charges en ajoutant le composant
Comctl32.ocx par :
- Projet
- Composants
- Microsoft Common Controls 5.0

--
Cordialement

Aski

AntiSpamEdit - version 1.6.4 du 12/08/05
Aide de K9 en français
http://h.charlier.de.chily.perso.cegetel.net/
http://h.dechily.free.fr/
Avatar
Long YE-SU
en fait ce n'est pas tout à fait cela que je cherchais...

il me faudrait un bargraph en vertical...
j'ai pensé prendre un objet "shape" et essayer par une fonction
de le remplir... je ne suis pas sur si c'est une bonne méthode...

Salutations
Long YE-SU

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

Hugh Long YE-SU,

En folâtrant sur ton clavier, les mots suivant t'ont échappé :

> dans VB6, avec quel objet peut on faire un bargraphe
> de 0 à 100% ?
>
> Long YE-SU

C'est l'objet ProgressBar que tu charges en ajoutant le composant
Comctl32.ocx par :
- Projet
- Composants
- Microsoft Common Controls 5.0

--
Cordialement

Aski

AntiSpamEdit - version 1.6.4 du 12/08/05
Aide de K9 en français
http://h.charlier.de.chily.perso.cegetel.net/
http://h.dechily.free.fr/




Avatar
Aski
Hugh Long YE-SU,

En folâtrant sur ton clavier, les mots suivant t'ont échappé :

en fait ce n'est pas tout à fait cela que je cherchais...

il me faudrait un bargraph en vertical...
j'ai pensé prendre un objet "shape" et essayer par une fonction
de le remplir... je ne suis pas sur si c'est une bonne méthode...

Salutations
Long YE-SU



J'ai simulé un tel objet du temps où je programmais en VB 4 (sans
ProgressBar).
Tu pourras t'inspirer du code ci-joint à coller dans un fiicheir texte

J'utilisais un PictureBox dans lequel j'avais dessiné des Labels de couleur.
--
Cordialement

Aski

AntiSpamEdit - version 1.6.4 du 12/08/05
Aide de K9 en français
http://h.charlier.de.chily.perso.cegetel.net/
http://h.dechily.free.fr/que tu sauveras sous Bar.frm.

/////////////////////////////////////////////////////////////////
VERSION 5.00
Begin VB.Form frmBar
ClientHeight = 870
ClientLeft = 480
ClientTop = 5670
ClientWidth = 5640
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
PaletteMode = 1 'UseZOrder
ScaleHeight = 870
ScaleWidth = 5640
Begin VB.PictureBox Box
Height = 350
Left = 360
ScaleHeight = 285
ScaleWidth = 4755
TabIndex = 0
Top = 240
Width = 4815
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 19
Left = 4560
TabIndex = 20
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 18
Left = 4320
TabIndex = 19
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 17
Left = 4080
TabIndex = 18
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 16
Left = 3840
TabIndex = 17
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 15
Left = 3600
TabIndex = 16
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 14
Left = 3360
TabIndex = 15
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 13
Left = 3120
TabIndex = 14
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 12
Left = 2880
TabIndex = 13
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 11
Left = 2640
TabIndex = 12
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 10
Left = 2400
TabIndex = 11
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 9
Left = 2160
TabIndex = 10
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 8
Left = 1920
TabIndex = 9
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 7
Left = 1680
TabIndex = 8
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 6
Left = 1440
TabIndex = 7
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 5
Left = 1200
TabIndex = 6
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 4
Left = 960
TabIndex = 5
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 3
Left = 720
TabIndex = 4
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 2
Left = 480
TabIndex = 3
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 1
Left = 240
TabIndex = 2
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 0
Left = 0
TabIndex = 1
Top = 0
Width = 210
End
End
End
Attribute VB_Name = "frmBar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private i As Byte

Sub Inc(Tot As Byte)
Static Cu As Byte, j As Single
Dim k As Byte, m As Integer
If i = 0 Then Cu = 0: i = 1: j = 20 / Tot
Cu = Cu + 1: m = (Cu - 2) * j: If Cu * j - m < 1 Then Exit Sub
If (Cu - 1) * j > 19 Then
For k = m To 19
Lbl(k).Visible = True: DoEvents
Next k
Call Init: i = 1: Cu = 0
Else
If m < 0 Then m = 0
For k = m To (Cu - 1) * j
Lbl(k).Visible = True: DoEvents
Next k
End If
End Sub

Private Sub Form_Load()
Left = 2000: Top = 2000: Width = 5700: Height = 1500: Init
End Sub

Private Sub Init()
For i = 0 To 19
Lbl(i).Visible = False
Next i
i = 0
End Sub
////////////////////////////////
Avatar
Long YE-SU
ok merci
j'ai fait avec un "shape" que je fais évoluer ...
ça marche...

Salutations
Long YE-SU


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

Hugh Long YE-SU,

En folâtrant sur ton clavier, les mots suivant t'ont échappé :

> en fait ce n'est pas tout à fait cela que je cherchais...
>
> il me faudrait un bargraph en vertical...
> j'ai pensé prendre un objet "shape" et essayer par une fonction
> de le remplir... je ne suis pas sur si c'est une bonne méthode...
>
> Salutations
> Long YE-SU

J'ai simulé un tel objet du temps où je programmais en VB 4 (sans
ProgressBar).
Tu pourras t'inspirer du code ci-joint à coller dans un fiicheir texte

J'utilisais un PictureBox dans lequel j'avais dessiné des Labels de


couleur.
--
Cordialement

Aski

AntiSpamEdit - version 1.6.4 du 12/08/05
Aide de K9 en français
http://h.charlier.de.chily.perso.cegetel.net/
http://h.dechily.free.fr/que tu sauveras sous Bar.frm.

/////////////////////////////////////////////////////////////////
VERSION 5.00
Begin VB.Form frmBar
ClientHeight = 870
ClientLeft = 480
ClientTop = 5670
ClientWidth = 5640
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
PaletteMode = 1 'UseZOrder
ScaleHeight = 870
ScaleWidth = 5640
Begin VB.PictureBox Box
Height = 350
Left = 360
ScaleHeight = 285
ScaleWidth = 4755
TabIndex = 0
Top = 240
Width = 4815
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 19
Left = 4560
TabIndex = 20
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 18
Left = 4320
TabIndex = 19
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 17
Left = 4080
TabIndex = 18
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 16
Left = 3840
TabIndex = 17
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 15
Left = 3600
TabIndex = 16
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 14
Left = 3360
TabIndex = 15
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 13
Left = 3120
TabIndex = 14
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 12
Left = 2880
TabIndex = 13
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 11
Left = 2640
TabIndex = 12
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 10
Left = 2400
TabIndex = 11
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 9
Left = 2160
TabIndex = 10
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 8
Left = 1920
TabIndex = 9
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 7
Left = 1680
TabIndex = 8
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 6
Left = 1440
TabIndex = 7
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 5
Left = 1200
TabIndex = 6
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 4
Left = 960
TabIndex = 5
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 3
Left = 720
TabIndex = 4
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 2
Left = 480
TabIndex = 3
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 1
Left = 240
TabIndex = 2
Top = 0
Width = 210
End
Begin VB.Label Lbl
BackColor = &H00C00000&
Height = 300
Index = 0
Left = 0
TabIndex = 1
Top = 0
Width = 210
End
End
End
Attribute VB_Name = "frmBar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private i As Byte

Sub Inc(Tot As Byte)
Static Cu As Byte, j As Single
Dim k As Byte, m As Integer
If i = 0 Then Cu = 0: i = 1: j = 20 / Tot
Cu = Cu + 1: m = (Cu - 2) * j: If Cu * j - m < 1 Then Exit Sub
If (Cu - 1) * j > 19 Then
For k = m To 19
Lbl(k).Visible = True: DoEvents
Next k
Call Init: i = 1: Cu = 0
Else
If m < 0 Then m = 0
For k = m To (Cu - 1) * j
Lbl(k).Visible = True: DoEvents
Next k
End If
End Sub

Private Sub Form_Load()
Left = 2000: Top = 2000: Width = 5700: Height = 1500: Init
End Sub

Private Sub Init()
For i = 0 To 19
Lbl(i).Visible = False
Next i
i = 0
End Sub
////////////////////////////////




Avatar
Aski
Hugh Long YE-SU,

En folâtrant sur ton clavier, les mots suivant t'ont échappé :

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

Hugh Long YE-SU,

En folâtrant sur ton clavier, les mots suivant t'ont échappé :

en fait ce n'est pas tout à fait cela que je cherchais...

il me faudrait un bargraph en vertical...
j'ai pensé prendre un objet "shape" et essayer par une fonction
de le remplir... je ne suis pas sur si c'est une bonne méthode...

Salutations
Long YE-SU



J'ai simulé un tel objet du temps où je programmais en VB 4 (sans
ProgressBar).
Tu pourras t'inspirer du code ci-joint à coller dans un fiicheir
texte

J'utilisais un PictureBox dans lequel j'avais dessiné des Labels de
couleur. --
Cordialement

Aski





ok merci
j'ai fait avec un "shape" que je fais évoluer ...
ça marche...

Salutations
Long YE-SU



C'est ton choix. Il faut choisir les objets qui se prêtent le mieux à cette
application.
Il existe encore certainement d'autres solutions.

Cordialement

Aski