Accueil, contient un bouton de commande
bDém As Button, avec
bDém.Text = "Démarrage".
Public Class Accueil Private Ok As Boolean = True Private Sub Accueil_Load(sender As Object, e As System.EventArgs) Handles Me.Load Me.IsMdiContainer = True End Sub Private Sub bDém_Click(sender As Object, e As System.EventArgs) Handles bDém.Click Dim frm As New Enfant If Ok Then frm.MdiParent = Me frm.Visible = True Ok = False Else ActiveMdiChild.WindowState = FormWindowState.Normal End If End Sub End Class
ActiveMdiChild.WindowState = FormWindowState.Normalquand on le relance
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Class Accueil Private Sub Accueil_Load(sender As Object, e As System.EventArgs) Handles Me.Load Me.IsMdiContainer = True End Sub Private Sub bDém_Click(sender As Object, e As System.EventArgs) Handles bDém.Click Dim frm As New Enfant, Ok As Boolean Ok = Me.MdiChildren.Count = 0 If Ok Then frm.MdiParent = Me frm.Visible = True Ok = False Else ActiveMdiChild.WindowState = FormWindowState.Normal End If End Sub End Class