Dim blabla As DialogResult = MessageBox.Show("blabla", "blablabla", MessageBoxButtons.YesNo, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
bizarre quand je clique sur NO la form
se minimize
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Class Form1 Private Sub menu_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles menu.MouseEnter DirectCast(sender, ToolStripDropDownButton).ShowDropDown() End Sub Private Sub ToolStripMenuItem1_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.MouseDown Dim dlgresult As New DialogResult dlgresult = MessageBox.Show("QUITTER?", "ATTENTION ", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly) If dlgresult = Windows.Forms.DialogResult.No Then Exit Sub Else Me.Close() End If End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load panel1.Location = New Point(Me.Width \ 2 - panel1.Width \ 2, Me.Height \ 2 - panel1.Height \ 2) End Sub End Class