Discussion :

[Walid(Tun)]

Bonjour

je souhaite ouvrir une fenêtre (enfant) à partir d'une Fenêtre principale en et surtout en bloquant l'accès à la fenêtre "parent" tant que la fenêtre enfant n'a pas été fermée.
De plus je souhaite que la fenêtre enfant reste toujours au premier plan et que la page parent soit "gelée",
et tous a L'idée étant que la popup soit un formulaire ou une boite de sélection que l'on soumette ou que l'on annule et qu'à sa fermeture, on revienne à la Fenêtre principale

est-ce que quelqu'un peut m'aider svp ?

Merci d'avance

[Invité]

tu odis utiliser la méthode ShowDialog() pour rendre la fenêtre modale. Ainsi tant que cette dernière n'est pas fermée on pourra pas utiliser la fenêtre parent.

[Walid(Tun)]

tu odis utiliser la méthode ShowDialog() pour rendre la fenêtre modale.

Bonjour
le problème que avec ShowDialog() la fenêtre n'apparait pas sous mon fenêtre principal de type Mdicontainer et elle ne supporte pas le MdiParent d'où j'obtient une erreur
voici mon code

Code :

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

1
2
3
4
5
6
7
 
 
 Dim fl As New Filtrage2
 
   fl.MdiParent = FrmMain
   fl.ShowDialog()
   fl.Focus()

Ainsi tant que cette dernière n'est pas fermée on pourra pas utiliser la fenêtre parent.

ca ce que je veut bloquer le fenêtre parent tant que la fenêtre enfant n'est pas fermée pour obliger l'utilisateur a une seule action

[Invité]

je ne vois pas trop l'interêt de mettre une fenêtre modale pour une form MDI.

[Walid(Tun)]

enfin la solution qui me permet de lancer le ShowDialog() a l'intérieur de mon menu principal merci Dieu
voici le code pour qui a le même problème que moi

Code :

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

1
2
3
4
5
6
 
 
   fl.Owner = Me
   fl.StartPosition = FormStartPosition.CenterScreen
   fl.ShowInTaskbar = False
   fl.ShowDialog()

Bonne Nuit

[Invité]

Cool, tu viens de me filer une bonne info
Merci, même si c'était pas mon problème.

[MABROUKI]

Bonjour,walid.
ce que tu veux n'est pas possible pour les formes MDIChild et parentMDI.
les formes MDIChild sont gerees(creation,activation,suppression,fermeture etc..) par la fenetreparentMDI elles ont ete crees pour ca.On ne peut pas mettre un parentMDI.Enabled=False sinon on desactive tout.
Maintenant si tu as besoin d'une boite de dialogue tu peux creer une fenetre modale ,faire ta saisie et renvoyer les informations vers une fenetre MDIChild

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
'Fenetre MDI 
'un composant MainMenu boite à outils
'item Fichier
'2 sous items Nouveau et Fermer
'item Fenetres
'2 sous items Cascade et Horizontal
Public Class frmMDI
    'cree un nouveau enfant Form1
    Private Sub MenuItemNouveau_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemNouveau.Click
        Dim NouvEnfantMDI As New Form1()
        'Definit la Forme parente de la Forme Enfant.
        NouvEnfantMDI.MdiParent = Me
        'Affiche la  Forme Enfant
        NouvEnfantMDI.TopMost = True
        NouvEnfantMDI.Show()
        Dim NouvForme As New Form()
        'Forme Dialogue Orpheline.
        NouvForme.MdiParent = Nothing
        'Mise en avant plan 
        NouvForme.TopMost = True
        NouvForme.ShowDialog()
    End Sub
    'Ferme l'enfant actif 
    'Il faut ajouter un focus pour attirer la "vue" de l'user
    'et un message d'avertissement
    Private Sub MenuItemFermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemFermer.Click
        ' recherche l'enfant actif.
        Dim actifEnfant As Form = Me.ActiveMdiChild
        Dim reponse As MsgBoxResult
        If (Not actifEnfant Is Nothing) Then
            actifEnfant.Focus()
            reponse = MsgBox("vous-vous fermer la fenetre :" & actifEnfant.Text, MsgBoxStyle.OkCancel)
            If reponse = MsgBoxResult.Ok Then
                actifEnfant.Close()
            End If
        End If
    End Sub
    Private Sub MenuItemFenCascade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemFenCascade.Click
        Me.LayoutMdi(System.Windows.Forms.MdiLayout.Cascade)
    End Sub
 
    Private Sub MenuItemFenHorizontal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemFenHorizontal.Click
        Me.LayoutMdi(System.Windows.Forms.MdiLayout.TileHorizontal)
    End Sub
End Class

Mais il ne faut pas comme dirait un francais "chercher midi à quatorze heures",en arabe "ou se trouve-t-elle mon oreille gauche à gauche ou à droite".
bon code....