Dans mon projer j'ajoute des informations dans un repertoir.
ce repertoir devra pas depasser 700MB
j'ai deja réalise les codes qui calculent la taille de ce repertoir,
je souhaiterai afficher la taille de ce repertoir sous la forme d'une
barre de progression mais je ne sais coment proceder
Merci de votre aide.
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
François Picalausa
Bonjour/soir,
Dans la boite à outils, ajoute le composant Microsoft Windows Common Controls 6.0 Cela te permettra d'ajouter une barre de progression standard.
Dans les propriétés, sépcifie Min à 0 et Max à 700.
Ensuite, pour indiquer à l'utilisateur à quel point il en est, tu peux employer un code couleur simple, comme ceci: Private Const WM_USER = &H400 Private Const PBM_SETBARCOLOR = (WM_USER + 9)
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() Dim lngSize As Long lngSize = Val(Text1.Text) 'Ici, là taille est récupérée dans le textbox
Select Case lngSize Case Is <= 650 'si <e0, en vert ProgressBar1.Value = lngSize SetProgressBarColor ProgressBar1, RGB(0, 192, 0) Case Is <= 700 'si <= 700, en orange ProgressBar1.Value = lngSize SetProgressBarColor ProgressBar1, RGB(255, 128, 0) Case Else 'si > 700, rouge ProgressBar1.Value = 700 SetProgressBarColor ProgressBar1, RGB(192, 0, 0) End Select End Sub
Sub SetProgressBarColor(ProgressBar As ProgressBar, Color As Long) SendMessage ProgressBar.hwnd, PBM_SETBARCOLOR, ByVal 0&, ByVal Color End Sub
"DAN" a écrit dans le message de news:3f2f93cb$0$9628$
Bonjour.
Dans mon projer j'ajoute des informations dans un repertoir. ce repertoir devra pas depasser 700MB j'ai deja réalise les codes qui calculent la taille de ce repertoir,
je souhaiterai afficher la taille de ce repertoir sous la forme d'une barre de progression mais je ne sais coment proceder Merci de votre aide.
Dan
Bonjour/soir,
Dans la boite à outils, ajoute le composant Microsoft Windows Common
Controls 6.0
Cela te permettra d'ajouter une barre de progression standard.
Dans les propriétés, sépcifie Min à 0 et Max à 700.
Ensuite, pour indiquer à l'utilisateur à quel point il en est, tu peux
employer un code couleur simple, comme ceci:
Private Const WM_USER = &H400
Private Const PBM_SETBARCOLOR = (WM_USER + 9)
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()
Dim lngSize As Long
lngSize = Val(Text1.Text) 'Ici, là taille est récupérée dans le textbox
Select Case lngSize
Case Is <= 650 'si <e0, en vert
ProgressBar1.Value = lngSize
SetProgressBarColor ProgressBar1, RGB(0, 192, 0)
Case Is <= 700 'si <= 700, en orange
ProgressBar1.Value = lngSize
SetProgressBarColor ProgressBar1, RGB(255, 128, 0)
Case Else 'si > 700, rouge
ProgressBar1.Value = 700
SetProgressBarColor ProgressBar1, RGB(192, 0, 0)
End Select
End Sub
Sub SetProgressBarColor(ProgressBar As ProgressBar, Color As Long)
SendMessage ProgressBar.hwnd, PBM_SETBARCOLOR, ByVal 0&, ByVal Color
End Sub
"DAN" <aa@club-internet.fr> a écrit dans le message de
news:3f2f93cb$0$9628$7a628cd7@news.club-internet.fr
Bonjour.
Dans mon projer j'ajoute des informations dans un repertoir.
ce repertoir devra pas depasser 700MB
j'ai deja réalise les codes qui calculent la taille de ce repertoir,
je souhaiterai afficher la taille de ce repertoir sous la forme
d'une barre de progression mais je ne sais coment proceder
Merci de votre aide.
Dans la boite à outils, ajoute le composant Microsoft Windows Common Controls 6.0 Cela te permettra d'ajouter une barre de progression standard.
Dans les propriétés, sépcifie Min à 0 et Max à 700.
Ensuite, pour indiquer à l'utilisateur à quel point il en est, tu peux employer un code couleur simple, comme ceci: Private Const WM_USER = &H400 Private Const PBM_SETBARCOLOR = (WM_USER + 9)
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() Dim lngSize As Long lngSize = Val(Text1.Text) 'Ici, là taille est récupérée dans le textbox
Select Case lngSize Case Is <= 650 'si <e0, en vert ProgressBar1.Value = lngSize SetProgressBarColor ProgressBar1, RGB(0, 192, 0) Case Is <= 700 'si <= 700, en orange ProgressBar1.Value = lngSize SetProgressBarColor ProgressBar1, RGB(255, 128, 0) Case Else 'si > 700, rouge ProgressBar1.Value = 700 SetProgressBarColor ProgressBar1, RGB(192, 0, 0) End Select End Sub
Sub SetProgressBarColor(ProgressBar As ProgressBar, Color As Long) SendMessage ProgressBar.hwnd, PBM_SETBARCOLOR, ByVal 0&, ByVal Color End Sub
"DAN" a écrit dans le message de news:3f2f93cb$0$9628$
Bonjour.
Dans mon projer j'ajoute des informations dans un repertoir. ce repertoir devra pas depasser 700MB j'ai deja réalise les codes qui calculent la taille de ce repertoir,
je souhaiterai afficher la taille de ce repertoir sous la forme d'une barre de progression mais je ne sais coment proceder Merci de votre aide.
