Discussion :

[mazty]

Bonjour, je souhaite faire un appel bloquant à un formulaire, c'est à dire que le code situé après l'instruction d'affichage de mon Form, ne s'exécute qu'une fois le Form fermé. De plus est-il possible de faire en sorte de retourner une valeur lors de la fermeture ? Merci à tous...

[jmfmarques]

et si tu nous disais l'essentiel, dans cette affaire ?
1) D'où fais-tu cet appel "bloquant" (depuis cette Form ou depuis une autre ?)
2) quelles sont ces instructions ?
3) quelle variable veux-tu retourner et par quoi veux-tu l'exploiter ?
Les réponses que nous te feront vont bien évidemment dépendre de celles que tu auras apportées à ces questions !

[mazty]

J'appel ce formulaire depuis un autre. Celui ne fait que demandé une chaine de caractère (j'ai vu qu'il existait une InputBox mais je souhaite personnaliser la fenetre) que je souhaite retourner (j'ai pensé à utiliser une variable de classe du formulaire appelant). En gros comment faire une InputBox comme un formulaire ? Merci

[jmfmarques]

Ton premier message et le second sont parfaitement contradictoires !
Le premier parle de code qui s'exécute, le 2ème parle d'une saisie !

Je pense avoir compris celà :
Tu souhaites ouvrir une Form pour remplacer, plus complètement, une inputBox. Et tu souhaite récupérer un résultat de la saisie faite par l'utilisateur .

Si c'est celà : ce n'est pas la meilleure chose à faire !
Voilà ce que je ferais :

Su ta form (une seule) : un cadre (Frame) que tu appelles Frame1.
Dans ce cadre : tes contrôles de saisie, te tout assorti des instructions que tu veux, selon la/les saisie(s) faites, pour en tirer la valeur de ta variable toto et un bouton de command appelé valider.
sur ta Form Form1 (hors du cadre) : un commandbutton appelé ouvrir et un autre appelé voir
et le code suivant :

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
 
Private toto As String
  Private Sub ouvrir_Click()
  Frame1.Visible = True
End Sub
Private Sub Form_Activate()
  Frame1.Visible = False
  valider.Caption = valider.Name
  ouvrir.Caption = ouvrir.Name
  voir.Caption = voir.Name
End Sub
Private Sub valider_Click()
  toto = "titi"
  Frame1.Visible = False
End Sub
Private Sub voir_Click()
  MsgBox toto
End Sub

Lance appuies sur ouvrir, puis dans le cadre qui va s'ouvrir, appuie sur valider, puis, appuies sur voir et vois !
Adapte ce petit exemple à ton cas de figure, bien sur. Il n'est là que pour te montrer un mécanisme.