Dim ret As DialogResult ret = MessageBox.Show("Etes-vous sûr de vouloir fermer cette application ?", "Fermeture ...", MessageBoxButtons.YesNo) If ret = vbYes Then Dim xxx As Form For Each xxx In Me.MdiChildren If xxx.IsMdiChild Then If xxx.Enabled Then MsgBox("Veuillez d'abord fermer toutes les fenêtres ! ", MsgBoxStyle.Information, "Attention") e.Cancel = True End If End If Next Else e.Cancel = True End If
Dim xxx As Form For Each xxx In Forms If Not TypeOf xxx Is MDIForm Then If xxx.MDIChild = True Then Debug.Print xxx.Name End If End If Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim xxx As Form For Each xxx In MdiChildren Debug.Print(xxx.Text) Next