Discussion :

[mohcine]

Je souhaiterais utiliser une progressbar pour indiquer le temps restant à un chargement d'une feuille(feuille1).
pour cela j'ai mis une progressbar dans une autre feuille(feuille2) qui sera affichée pendant le chargement de la 1ere feuille.
Comment Fait-on ???
Aidez moi SVP

[méphistopheles]

bonjour
quels sonts les parametres qui ralentissent le chargement de ta feuille?
c'est une procédure ou simplement le chargement des controles?

salut

[mohcine]

je charge une datagrid . la requete de donnee est un peut lourde

[Mandalar]

http://vb.developpez.com/faq/?page=Autres#jauge
Je pense pas que ton probleme soit si différent de celui abordé dans la faq.

[mohcine]

merci. mais mon probleme n'est pas dans l'utilisation du progressbar je veux que pendant le chargemet de la feuille1 l'utilisateur puisse voir la feuille2 contenant la progressbar

[Mandalar]

regle ton projet pour qu'il ouvre la form2 au démarrage et dans le form load de la form2 mets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Form1.Show

j'espere que ca t'aide

[mohcine]

Non ça ne marche pas . je dois tjrs attendre le chargement de la feuille1 avant que le feuille2 se charge.
en m'a suggéré le multuthread mais je ne sais pas comment l'utiliser pour chargr les 2 feuilles en même temps .

[Mandalar]

ou alors le contraire (form2.Show lors du form_load de la form1) ?

[méphistopheles]

dans composant, clique sur projet, là choisit comme feuille de départ form2.

salut

[mohcine]

j'ai essayé et ça à l'air de marcher mais le problème est que je ne peux mettre cette page au départ .

[ouskel'n'or]

Et pourquoi pas un progressbar dans la feuille que tu veux voir, progressbar que tu masques quand tu n'en as plus besoin ?

Juste une idée comme ça... si les autres ne te vont pas...

[méphistopheles]

j'ai essayé et ça à l'air de marcher mais le problème est que je ne peux mettre cette page au départ .

dans ta barre d'outils, clique sur projet, clique sur "propriété de ''monprojet''" ou ''monprojet est le nom de ton projet.
une fenetre s'affiche alors.
Dans l'onglet général, clique sur "objet de démarage" et là choisit form2.

je peux pas être plus précis

salut

[mohcine]

je ne peux pas la mettre comme feuille de demarrage car je demarre déja par une feuille MDI où j'ai un menu general.

[fourgeaud]

Bonjour,

dans ce cas là, a partir de ton menu général lance la feuille 2 et tu met un bouton dans la feuille 2 qui lance la feuille 1. Quand tu click sur le bouton il se cache et ta progress bar commence son chargement.
C'était juste une idée comme ça.

A+

[méphistopheles]

c'est un code copié collé non?

[leroissejp]

Bonsoir,
Excuse moi, mais je ne vois pas pourquoi tu mets ta ProgressBar dans une autre Form. Dans tout les programmes la ProgressBar se trouve dans la feuille où s'éffectue le chargement (faire patienter l'utilisateur).

jpleroisse

[méphistopheles]

Par-ce qu'il est plus simple est plus convivial de voir un écran d'acceuil avec une progresbar qu'une form avec des controles qui se chargent lentement uns à uns, te donnant l'impression que l'ordi sature et où tu n'est pas sûr que la progressbar va se charger en premier.
serieux, je trouve sa methode tout à faitcompréensible.
Donne moi des logiciels avec chargement au démarage qui n'ont pas d'écran d'acceuil, c'est rare.

salut

[edam]

une idée pas plus:
le chargement des données se fait par une requéte,
alors n'oublie pas de mettre le datasource de datagrid au nothing, avant le lancement de votre requete, et l'affecté aprés
pour votre progressebar utlise un timer avec interval >=500, c'est mieu je pence

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
' dans dataenvironement
Public Function MyExecSQL_(s) As Integer
On Error GoTo eror
If rsExeSQL_.State = 1 Then rsExeSQL_.Close
rsExeSQL_.Source = s
rsExeSQL_.Open
MyExecSQL_ = rsExeSQL_.RecordCount
Exit Function
eror:
MyExecSQL_ = -1
End Function
' dans votre forme
private i as integer
private d as boolean
sub chargement
Dim s As String
With DataEnvironment1
    Set DataGrid1.DataSource = Nothing
    s = "SELECT * FROM " & Nom_Tabl
  progressebar.position:=0
 i=0:d=true
   timer.eneable:=true
    .MyExecSQL_ s
  timer1.enable:=false
    Set DataGrid1.DataSource = DataEnvironment1
End With
sub  timer
  ' comme on sait pas d'avance le nombre d'enregistrement
  if d then 
     i=i+1
     if i>=100 then d=false 
  else 
    i=i-1 
    if i<=0 then d=true
  end if
  progressebar.position=i
end sub

:

[mohcine]

oui avec boucoups de modifs

[mohcine]

pardons je n'ai pas vu la 2éme page j'étais pressé .

je vais voir avec ce code .