Label au dessus d'un progessbar

Version imprimable

11/08/2007, 11h16
daviddu54

Label au dessus d'un progessbar

Salut tous le monde

Mon projet : logiciel de backup ftp et sql, + outil de verification de la securite du site + navigateur ftp + editeur de base mysql

Mon experience : 1 mois de Qbasic + 2 semaines de vb6

Une question facile pour commencer

1: Comment on fait pour afficher par dessus un progressbar mon label qui contient le pourcentage? j'ai essayer les bouton mettre au premier plan et arriere plan mais ca marche pas.

2: Je doit faire un menu qui permettra a l'utilisateur de choisir un repertoire de sauvegarde,d'ecrire ses compte ftp et sql, et si j'arrive l'heure a laquel il veut automatiser ses tache, je voudrait donc savoir ou ecrire ses informations? dans la base de registre? dans fichier ini? est ce qu'il faut les crypter? que me conseiller vous ?

3: Pensez vous que ce projet soit faisable sous vb6,ou est ce que je doit attendre d'apprendre vb.net? (je fait un bts option client/serveur)

merci pour vos réponses et suggestions
11/08/2007, 11h58
ucfoutu

Bonjour,

Tu peux :
- soit faire ta propre progressbar (plus élégant)
- soit mettre par dessus ta progressbar un Frame sans bordure dans lequel tu mets ton tabel
11/08/2007, 14h13
daviddu54

merci de ta reponse

j'ai essayer les frame mais idem ,mon label ce retrouve en dessous aussi,a croire que mon vb a un dysfonctionnement.

Par contre je rencontre un autre probleme,aucun tuto ou source pour recuperer le contenu d'un dossier ftp le telecharger ,puis le zipper ,enfin la demarche d'un backup quoi.
de plus je viens de m'apercevoir que si je veut pouvoir restaurer un backup par la suite il me faut les renseignement des chmods.

Donc plusieurs questions me viennent a l'espris ,est ce qu'il vaudrais mieux pas recuperer uniquement le contenu des dossiers et ecrire en parallele un fichier texte contenant l'arborescence des dossier + info de chmods pour faciliter la restauration?.
est ce que inet est adapter a ce genre de tache?

enfin si quelqun a deja plancher sur le sujet qu'il me le fasse savoir
11/08/2007, 14h43
ucfoutu

Re bonjour,

Tes questions suivantes n'ont, je le crains, aucun rapport avec la première (objet de la discussion que tu as ouverte) et devraient, chacune, faire l'objet d'une question totalement distincte.
Ici, nous en sommes uniquement à la progressbar elle même.
Bonne continuation...
11/08/2007, 14h48
ucfoutu

Pour en revenir au seul sujet traitable ici (la progressBar)

Si ton label n'est pas visible, c'est vraisemblablement parce que tu ne l'as pas mis DANS le Frame ou que tu n'as pas mis le Frame SUR5 (au premier plan) ta progressBar.
11/08/2007, 15h19
Vld44

sinon ne pas confondre le premier plan du mode édition du premier plan du mode exécution.

Le deuxième, qui t'intéresse, s'obtient en faisant ctrl.zorder 0, ou ctrl est un contrôle de visual basic quelqu'il soit.
11/08/2007, 16h01
OhMonBato

Sauf erreur de ma part, ça ne marche pas ton truc Vld pour un contrôle Label.
Personnellement, ça m'est arrivé pour obtenir un résultat similaire à ce que souhaite daviddu54, d'utiliser un simple controle shape rectangle dont je fais varier la largeur. Un label par la dessus et ca fait une progressbar basique certes mais suffisante pour la plupart des cas.
11/08/2007, 16h08
ucfoutu

Re,

Allez,

Je prends un peu de repos puis vous en fait une de jolie jolie (elle servira bien à d'autres également).

A bientôt, donc...

Bon...

Un peu bâclé (et donc à optimiser dans le module), mais voilà le principe :

Une Form
Sur la Form :
- une picturebox pgPict avec sa propriété index = 0
- un Timer nommé Timer1 (qui n'est là que pour pouvoir "simuler" une progression.
- un bouton de commande command1

Code pour la Form :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Private Sub Command1_Click()
   XX = 0
   Timer1.Interval = 100
   Timer1.Enabled = True
End Sub
 
Private Sub Form_Activate()
  Command1.Caption = "GO"
  Command1.Move Me.Width / 4, Me.Height / 2, Me.Width / 2, Me.Height / 15
  dessinons_barre Me, pgpict(0)
  Exit Sub
End Sub
 
Private Sub Timer1_Timer()
  progressons_barre Me
End Sub

et code pour le module :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Explicit
Public XX As Integer, pourcent As String
Public Sub dessinons_barre(f As Form, pict As PictureBox)
  f.ScaleMode = vbPixels
  f.pgpict(0).Visible = False
  f.pgpict(0).BackColor = vbBlack
  f.pgpict(0).Move f.ScaleWidth / 20, f.ScaleHeight / 5, f.ScaleWidth - f.ScaleWidth / 10, 20
  f.pgpict(0).AutoRedraw = True
  Load f.pgpict(1)
  Set f.pgpict(1).Container = f.pgpict(0)
  f.pgpict(1).AutoRedraw = True
  f.pgpict(0).Scale (0, 0)-(100, 10)
  f.pgpict(1).Scale (0, 0)-(100, 10)
  f.pgpict(0).ForeColor = vbWhite
  f.pgpict(0).FontBold = True
  f.pgpict(1).ForeColor = vbWhite
  f.pgpict(1).FontBold = True
  f.pgpict(1).Move f.pgpict(0).Left, f.pgpict(0).Top, f.pgpict(0).Width, f.pgpict(0).Height
  f.Timer1.Enabled = False
End Sub
 
Public Sub progressons_barre(f As Form)
    With f.pgpict(0)
      .Visible = True
      f.pgpict(0).Line (0, 0)-(100, 10), vbBlack, BF
      pourcent = Format$(XX, "##") & " %"
      .CurrentX = (f.pgpict(0).ScaleWidth - .TextWidth(pourcent)) / 2
      .CurrentY = (f.pgpict(0).ScaleHeight - .TextHeight(pourcent)) / 2
      f.pgpict(0).Print pourcent
      .DrawMode = vbXorPen
      f.pgpict(0).Line (0, 0)-(XX, 10), RGB(50, 255, 150), BF
      .DrawMode = vbCopyPen
    End With
    If Val(pourcent) >= 100 Then
        Dim debut As Single
        f.Timer1.Enabled = False
        debut = Timer
        While Timer < debut + 1.5
          DoEvents
        Wend
        f.pgpict(0).Visible = False
    End If
    XX = XX + 1
    DoEvents
End Sub

Lancer ==>> cliquer sur GO ==>> laisser dérouler jusqu'à 100% ===>> attendre 1,5 secondes.

Bonne continuation.

11/08/2007, 16h54
daviddu54

ben j'ai essayer ca mais ca marche pas des masses

PB.ZOrder 0 ' ma progesse bar
LabelPourcent.ZOrder 1 ' mon label contenant le pourcentage de progression
11/08/2007, 17h00
daviddu54

merci ucfoutu ,mais j'avais déja ce script,j'ai meme fait de tres belle progresse bar avec swap d'image selon le pourcentage d'avancement,mais tout ceci ne m'explique pas comment on affiche un labeltext ou autre audessus d'une autre forme tel qu'une frame ou progresse bar,si tu avait un exemple concret ca m'aiderais beaucoup
11/08/2007, 17h27
OhMonBato

Ce n'est pas possible pour les controles label (comme pour certains autres controles)
11/08/2007, 17h36
daviddu54

ok merci ,voila une reponse clair net et precise
11/08/2007, 18h07
Vld44

Citation:

Envoyé par daviddu54

ben j'ai essayer ca mais ca marche pas des masses

PB.ZOrder 0 ' ma progesse bar
LabelPourcent.ZOrder 1 ' mon label contenant le pourcentage de progression

T'as pas compris, zorder 0 c'est pour mettre au premier plan.
11/08/2007, 18h23
ucfoutu

1 pièce(s) jointe(s)

Je me demande bien, daviddu54, d'où tu "avais déjà ce script" 8O

Pour en revenir toutefois à ton label, dont je t'ai déjà dit qu'il fallait le mettre dans un Frame sans cadre par dessus la progressbar et contenant ton label.
Et sans qu'il soit indispensable de le faire par code, puisque tu peux le faire depuis l'IDE...
La preuve ?

la voilà :
11/08/2007, 18h23
OhMonBato

Tu as raison dans le principe vld mais ça marche pas pour un label de toute façon.
11/08/2007, 18h57
daviddu54

ok c'est bon j'ai reussi ,j'ai fait un copier coller dans la frame,je sais pas si c'est comme ca qu'il faut faire,mais en tout cas ca marche

ya moyen de rendre cette fame transparente?

je parler de la methode de creation de pb avec des images ya un script presque similaire sur ce site
11/08/2007, 19h09
OhMonBato

1 pièce(s) jointe(s)

Si tu veux un truc comme l'image jointe c'est 2 labels (le premier me sert juste à avoir une bordure "3D") et un controle shape.
Sincèrement pour une simple progressbar, je suis pas persuadé que ça vaille le coup de passer des heures la dessus ;)
11/08/2007, 19h17
daviddu54

Non,merci mon bato,ca je sais faire maintenant que je sais coller des truc lol.

le sujet et clos

J'ouvre un autre post pour mes probleme de ftp
11/08/2007, 19h27
ucfoutu

Il y a bien évidemment "moyen de rendre cette frame transparente" .
Mais je te fais remarquer que s'y trouve un contrôle (ton label) qui occupe tout ton Frame (frame = cadre = masculin). Il ne te sert donc rigoureusement à rien de rendre ce Frame transparent.
Une autre fois : si tu veux certains effets, il te faut la faire de toutes pièces et à ton goût, cette progressbar ...
Je me suis amusé à en faire de toutes sortes (y compris eliptiques), mais jamais pour moi-même, toujours pour d'autres.... Ces choses sont à mon sens des artifices qui ne compenseront jamais le non professionalisme éventuel de l'essentiel d'une appli.:?
Que tu t'en préoccupes au besoin quand tout le reste est déjà terminé, passe encore (peut-être)... mais tes autres questions (voir plus haut) me donnent à penser que tu en es à t'occuper de "cosmétiques" avant même d'avoir mené à leur termes les parties essentielles.

Bonne continuation...