Discussion :

[lecamer]

Bonjour à tous,
mon problème est le suivant.
J'ouvre une fenêtre dans laquelle j'aimerais entrer des paramètres et je veux que ces paramètres soient pris en compte dans le code par la suite.Mais le pb c'est que après avoir ouvert la fenêtre,l'exécution continue et les paramètres que j'entre ne sont donc pas pris en compte.Et je sais pas quelle propriété modifiée.
Pouvez vs m'aider svp.
(je code en vb6).
merci d'avance

[OhMonBato]

Si tu mets tes paramètres comme variables Public dans un module, tu peux utiliser ces paramètres dans la procédure Form_Load de ta feuille.

[lecamer]

*oui justement j'ai mis des variables publics dans un module pour enregistrer les valeurs entrées par l'utilisateur.Mais le problème c'est que l'exécution du code continue( ce qui est normal d'ailleurs), sans que les valeurs ne soient entrées,je te donne un exemple.

course.Show
démarrercourse()
afficherval()
....
normalement l'utilisateur devrait entrer les valeurs qui seront pris en compte dans la fonction suivante, puis le résultat afficher devrait tenir compte de ces valeurs.

Mais là, d'après ce que je vois,la fenêtre (course) s'affiche et je passe à démarrercourse() et afficherval() sans attendre que l'utilisateur entre ces valeurs
J espère que je suis un peu clair qd meme,
sinon ,je m'expliquerai un peu plus.
Merci d'avance

[Selve]

Bonjour

A mon avis il faut afficher la form en modal

course.show 1

Bye

[OhMonBato]

Si je comprends bien, tu veux afficher la fenetre course dans laquelle l'utilisateur doit entrer des valeurs utilisées ensuite dans tes Sub 'DémarrerCourse' et 'AfficherVal' ?
Si c'est bien le cas, pourquoi ne pas mettre l'appel à ces Sub dans l'événement Click d'un bouton de validation sur ta feuille Course ?

[lecamer]

merci OhMonBato pour ta réponse
oui j'y ai pensé mais celà me fait gérer et enregistrer d'autres variables, vu comment le code est fait.Je pensais qu'il y'avait une autre possibilité.
Je vais néanmoins essayer ça et je vous tiens au courant
Je regarderai également la proposition de Selve
Merci pour les rép...

[zazaraignée]

Qu'y a-t-il dans les procédures démarrercourse() et afficheval() ?

Ton code du click du bouton OK (ou valider, selon le nom que tu lui donne...) contient-il le code d'affectation des valeurs entrées dans les champs à tes variables globales ?

En passant, ce n'est pas une bonne idée d'utiliser des caractères accentués dans ton code.

[lecamer]

Bonjour,
oui t'as raison zazaraignée à propos des caractères accentués.
concernant le code :
Lorsque l'utilisateur lance le programme , il a une fenêtre principale qui s'affiche.
Sur cette fenêtre j'ai un bouton (Conditions_course),qui me permet d'accéder à une nouvelle fenêtre (Entrer_param) dans laquelle je propose plusieurs conditions ( dans une listbox ) sur lesquelles on peut cliquer.J'autorise l'utilisateur a cliquer sur plusieurs conditions à la suite. Une fois toutes les conditions entrées, l'utilisateur clique sur le bouton (Valider), et c'est à ce moment que je traite les conditions(grâce à un Case et un while).
Mon problème vient du fait qu'il y'a des conditions pour lesquelles j'aimerais que l'utilisateur entre des paramètres ( dans une fenêtre) en cours de traitement.
La fenêtre s'affiche bien ( course.show), mais je n'ai pas le temps d'entrer les paramètres que l'exécution passe directement à démarrercourse().

le schéma du code est le suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub Valider_Click()
Dim i As Integer
Dim index As Integer
i = 0
 
While (i <= UBound(tableau2))
Call index_tableau(tableau2(i), index)
Call calculavecindex(index)
i = i + 1
Wend
dimtb2 = 0
ReDim tableau2(0)
end sub

et dans calculavecindex,j'ai ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub calculavecindex(choix As Integer)
 
Select Case choix
  case 0
     ......
  case 7
    course.show
    demarrercourse()
    affichercourse()
  ....
end select 
end sub

Dans la fonction demarrercourse, j'aimerais utiliser les valeurs entrées ds la fenetre(Course) et enregistrées dans des variables globales (initialisées à 0 dans Form_load de la fenêtre Course), et ensuite les afficher(affichercourse).
Mais j'ai des affichages alors que je n ai pas encore entré les vals).En gros le prog répond strictement a l'instruction Course.show,et continue à demarrercourse.

Je sais pas si je suis à peu près clair en tout cas je l'espère.
Merci pour les différentes aides..

[Delbeke]

Et si tu utilisais

Code :

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

1
2
 
  course.show vbModal

[Selve]

Bonjour

Et si tu utilisais

Code :

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

1
2
 
  course.show vbModal

C'est vrai que c'est plus parlant que course.show 1

J'ai tendance à l'oublier

[Delbeke]

Non seulement c'est plus parlant, mais en plus le code de l'appelant est suspendu tant que la fenêtre montrée est visible, ce qui permet d'y saisir les informations avant que demarrecourse ne soit exécuté

Form.Show VbModal et Form.Show 1 sont fonctionnellement absolument identiques

[lecamer]

Et si tu utilisais

Code :

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

1
2
 
  course.show vbModal

C'est parfait,

Merci Delbeke, et également à Selve qui m'avait proposé une réponse analogue.
Ouf.....