VB.Net Messagebox envoi mon programme en arriere plan ???

Salut à tous....

J'ai un petit problème avec un messagebox, lorsque je réponds au message je perds le visibilité du porogramme.
Je veux dire par perte de visibilité.....
Si j'ai unprogramme d'ouvert (Word par exmeple) et que mon programme est au premiere plan.. Lorsque je réponds à la question du
messagebox, le programme se mes en arrières plan.

Comment est-il possible laisser le programme en avant plan.

Merci de votre aide

me.topmost

Salut,

Le mieux aurait été que tu nous mette le code de là où tu ouvre le messagebox.

Sinon en dessous de la ligne où tu fais l'appel, tu peux essayer un :

TaForm.BringToFront

Cordialement,

Swan94
=================Si la réponse vous convient, merci de l'accepter=================

gillardg, mdr tu as répondu juste avant moi ;)

Selon moi, ce que tu lui donne pose une problématique : son form restera Toujours au premier plan.

Swan94
=================Si la réponse vous convient, merci de l'accepter=================

merci à vous deux

Bonjour

J'ai semblerait-il le même problème mais avec un FolderBrowserDialog que j'exécute 2 fois de suite afin de récupérer un dossier source et un dossier destination. Le premier coup ma fenêtre est au premier plan et lors de l'appel suivant, elle se trouve en arrière plan.
J'ai essayé ce qui a été dit ci-dessus (BringToFront et Topmost) mais ça ne fonctionne pas :(.
Quelqu'un peut m'aider ???

Voici le code que j'utilise :

Imports

System.Windows.Forms

Public

Class ChoixDossier

'Module ChoixDossier

PublicSharedSub MPRepertoire(ByVal Ordres AsString)

'Public Sub MPRepertoire(ByVal Ordres As String)

Do

Dim FolderBrowserDialog1 AsNew FolderBrowserDialog()

FolderBrowserDialog1.Description = Ordres

If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

Dim Buttons As MessageBoxButtons = MessageBoxButtons.YesNoCancel

Dim Icon As MessageBoxIcon = MessageBoxIcon.Information

resultat = FolderBrowserDialog1.SelectedPath

ExitSub

Else

SortieUrgence = 1

ExitSub

EndIf

Loop

EndSub

'End Module

End

Class




Et dans le Main :

instruction =

"S,lectionnez le r,pertoire contenant les LOGs (dossier PUBLIC)"

ChoixDossier.MPRepertoire(instruction)

PathGeneral = resultat

If (SortieUrgence = 1) Then

MsgBox(

"Le programme va s'arr^ter suite . une erreur ou . une annulation de votre part")

ExitSub

EndIf

instruction =

"Veuillez choisir le dossier du chantier ou en cr,er un"

ChoixDossier.MPRepertoire(instruction)

LieuStockage = resultat