Discussion :

[Arthur.]

Bonjour, je suis débutant en vb.net et j'aimerai savoir comment faire apparaître plusieurs msgbox en même temps.
Car dans l'exemple ci-dessous, les msgbox s'affichent unes par unes et on doit cliquer sur "ok" pour que la suivante s'affiche.

1. msgbox("exemple")
2. msgbox("exemple")
3. msgbox("exemple")

J'espère que quelqu'un pourra m'aider.

[wallace1]

Bonjour,

Par définition une MessageBox est modal c'est à dire que son implémentation interne est paramétrée de manière ce qu'une action soit menée par l'utilisateur à l'issue de l'apparition de la msgbox !

Donc si tu veux obtenir un affichage de plusieurs fenêtre alors tu peux procéder comme suit :

1- il faut ajouter (depuis "Nouvel élément" dans l'explorateur de solutions) une boite de dialogue : Dialog1
2- en mode code : tu déclares et instancies autant d'objet que tu souhaites :

Code :

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

1
2
3
4
5
6
 
   Dim dlg As New Dialog1
        dlg.Show()
 
        Dim dlg1 As New Dialog1
        dlg1.Show()

A NOTER 1 : Si tu appelles la méthode ShowDialog alors la boite basculera en modal comme la MsgBox
A NOTER 2 : Tu peux tou aussi bien faire la même chose avec la classe Form

A+

[Arthur.]

Lorsque j'entre la commande, le "Dialog1" apparaît comme une erreur, avec la petite croix rouge et la vaguelette bleue, je ne peux que mettre "ColorDialog"
Saurais-tu a quoi c'est dû ?

[wallace1]

Lorsque j'entre la commande, le "Dialog1" apparaît comme une erreur, avec la petite croix rouge et la vaguelette bleue, je ne peux que mettre "ColorDialog"
Saurais-tu a quoi c'est dû ?

Plus sérieusement .... : passes par la case APPRENTISSAGE DES BASES :

http://plasserre.developpez.com/cour...e=introduction

ET REVIENS UNIQUEMENT AVEC DE VRAIS PROBLEMES !!!!!

[Arthur.]

Merci, j'ai réussi

[themine702]

juste pour les prochains lecteurs, vous pouvez faire ça en faisant un nouveau thread

Code :

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

1
2
3
4
Dim threadd As New Thread(Sub()
   Msgbox("Mon Message")
End Sub)
threadd.Start()

Code :

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

1
2
3
'Version Racourcie :
Dim threadd As New Thread(Sub() Msgbox("Mon Message"))
threadd.Start()