Sujet Précédent Sujet Suivant

Comment faire pour ...

jmdelhalle Messages postés 24 Date d'inscription mercredi 22 janvier 2003 Statut Membre Dernière intervention 8 janvier 2005 - 23 déc. 2004 à 09:08
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 23 déc. 2004 à 11:07
Bonjour,

Je suis un peu rouillé :( en visual basic, du fait que je développe en
Windev et que las des bugs de plus en plus fréquents avec ce type de langage, je reviens vers Visual Basic.

Mon probléme :
Gérer l'affichage consécutif de 3 fenêtres dans une sub Main()
en sachant que la fenêtre2 ne pourra s'afficher que si la fenêtre 1 renvoie
vrai et ainsi de suite. (Bien sur 1 seule fenêtre doit s'afficher à l'écran)
Pouvez-vous me remettre sur la voie ?
:) JM

3 réponses

Réponse 1 / 3
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 28
23 déc. 2004 à 09:21
Je te propose :
1-Une variable globale déclarée dans un moduel standard et nommé CodeRetour et déclarée en Boolean (si tu es vraiment rouillée, cela donne "Public CodeRetour As Boolean" !!)
2-Dans le code des forms, dans la procédure/fonction qui referme la fenêtre, positionner la valeur de CodeRetour à True ou False, selon tes critères
3- Dans le Sub Main, ceci : 
Form1.Show vbModal
If codeRetour then
  Form2.Show vbModal
  If codeRetour then
    Form3.Show vbModal
  Else
     ' Code a executer si form3 ne doit pas s'afficher 
  Endif
Else
  ' Code a executer si form2 ne doit pas s'afficher 
Endif


Christophe R.
0
Réponse 2 / 3
jmdelhalle Messages postés 24 Date d'inscription mercredi 22 janvier 2003 Statut Membre Dernière intervention 8 janvier 2005
23 déc. 2004 à 10:27
Cela fonctionne, merci beaucoup !!! :big)

C'est vrai que de repasser de Windev à Visual Basic, cela change
du tout au tout. De plus, je programme en aveugle car les 2 cds
de la MSDN librairie de visual basic 6 sont fendus (un trés mauvais rangement) et donc impossible de les installer. Quand à Microsoft contacté, il faudra attendre X temps avant de recevoir
les cds ....
:) JM
0
Réponse 3 / 3
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 28
23 déc. 2004 à 11:07
tu peux consulter le msdn online : msdn.microsoft.com
C'est tout en anglais mais c'est garantie à jour. Si tu n'es pas anglophobe, c'est la meilleure solution

Christophe R.
0
Rejoignez-nous