Fenêtre "Veuillez patienter..."

Bonjour,

Vous connaissez tous les fenêtres qui affichent "Veuillez patienter..." et qui possèdent une progressbar. Elles n'ont ni boutons, ni cases systèmes.

Et bien je voudrais faire la même chose mais je ne sais pas trop
Merci de m'aider.

je voilais demnder

1. c'est en vb6?
2. La fenêtre doit elle etre ouvert modal

Si tu veux ca. Tu creer un form et pour pas avoir les boutons fermer,reduire,agrandir tu met la proprieté border style a 0 et la c bon.
Tu veux aussi savoir comment on la laisse au premier plan ?
JRB

salut !
ya pas mal de source sur ce site qui traitent des progress bar, apres tout depend de ce que tu veux indiquer...
Enfin pour afficher une Form sans boutons ni cases systèmes, regarde dans les options, je connais plus exactement les noms etant donné que je n'est pas VB sous la main en ce moment, mais je sais que je l'ai déjà fait... ça doit etre dans BorderStyle il me semble, on peu mettre "none", au pire regarde dans l'aide, mais je le repette, pas mal de source font une étude des ProgressBar

Bonne chance !

<----------------------------------------------->
On reconnait un bon developpeur au baobab qu'il a dans la main...

Oui c'est en VB6
La fenêtre "Veuillez ...." doit faire patienter en attendant une fenêtre qui met du temps à s'ouvrir et qui elle est en modal

Je connais le border style à 0 mais je ne trouve pas ca top. La fenêtre me parait un peu nue
Y a pas une autre solution ?

Pour mettre au 1er plan, faut l'ouvrir en modal non ?

Merci.

Cette fenêtre ne doit surtout pas être modale !!! Car sinon aucun code ne pourra tourner pdt qu'elle sera affichée !!!

Christophe R

Oupsssssssss !!!
Oui c'est vrai crenaud76 !! Je le savais

Donc personne ne sait comment faire cette sacré fenêtre "Veuillez ..." ?
Personne n'en a jamais fait

Un label.Caption " Veuillez patienter " un Timer et un ProgressBar.

Option Explicit
Private Sub Form_Load()
   prgBar1.Visible = False
   tmrTimer.Interval = 1000
   prgBar1.Max = 10   ' Le contrôle Timer sera actif
                            ' pendant 10 secondes.
       prgBar1.Visible = True
   tmrTimer.Enabled = True
End Sub

Private Sub tmrTimer_Timer()
   Static intTime ' Déclare la variable statique.
   ' La première fois, la variable est vide.
   ' Attribue-lui la valeur 1 si c'est une variable
   ' vide.
   If IsEmpty(intTime) Then intTime = 1
  
   prgBar1.Value = intTime   ' Met à jour le contrôle
                           ' ProgressBar.

   If intTime = prgBar1.Max Then
      tmrTimer.Enabled = False
      prgBar1.Visible = False
      intTime = 1
      prgBar1.Value = prgBar1.Min
       Unload Me
   Else
      intTime = intTime + 1
     
   End If
End Sub


jpleroisse

La je suis en train de faire des fenetre "copie en cours" "veuillez patientez" ect... Donc veuillez patienter et yaura la source.

JRB