Discussion :

[bellak]

Salut a tous ,
SVP j'ai un petit probleme si quelqu'un pourrait m'aider , j'ai realisé une petite application qui contient plusieurs Forms ,
-je veux que si j'appel une Form ; je ne peux pas toucher la premiere et si c'est possible elle devient sombre (la 1ere).
-meme je permet pas la navigation entre Forms avec (Alt+Tab) et la sortie Avec (Alt+F4).
merci d'avance.

[Paul Musso]

Bonjour Bellak,

Tout d'abord, pour que ta fenêtre soit modale utilise le code suivant pour l'ouvrir :

Code :

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

1
2
Form2 form = new Form2();
form.ShowDialog();

Remplace bien sûr "Form2" par la classe de ta fenêtre ^^

Ensuite, pour désactiver la navigation, assigne sa variable ShowInTaskbar à false.

Finalement, pour empêcher la fermeture de la fenêtre avec un Alt + F4, ajoute une méthode à l'évènement FormClosing et définit la propriété Cancel de la variable FormClosingEventArgs à false, voici un exemple :

Code :

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

1
2
3
4
private void Form2_FormClosing(object sender, FormClosingEventArgs e)
{
     e.Cancel = false;
}

Finallement pour la couleur de fond de ta fenêtre hôte, redéfinie la quand tu ouvre ta 2ème fenêtre, et retaure là lors de sa fermeture.

[Jérôme Lambert]

Code :

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

1
2
3
4
private void Form2_FormClosing(object sender, FormClosingEventArgs e)
{
     e.Cancel = false;
}

A true, tu veux dire.

Par contre, avec un code comme ça, il est impossible de fermer l'application

[bellak]

Salut tt le monde ,
pour les deux premieres reponses de "Paul Musso" ça marche tres bien mais pour la troisieme comme "Jerome" a dit impossible de fermer l'application .
et pour l'autre probleme (enfin c'est pas un vraie probleme) je veux pas que la couleur du fond change , je veux que tt ce qui est en dessous de la fenetre devient sombre .
Merci .

[Paul Musso]

Oui autant pour moi pour le true, et c'est vrai que ça bloque tout du coup.

Le mieux est d'ajouter une méthode sur l'évènement KeyDown de ta fenêtre, de ce genre:

Code :

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

1
2
3
4
5
private void Form2_KeyDown(object sender, KeyEventArgs e)
{
  if (e.Modifiers == Keys.Alt && e.KeyCode == Keys.F4)
      e.Handled = true;
}

Après pour griser toute l'interface derrière, je sais pas vraiment ...

[Kelpan]

Pour griser un écran je peux te proposer une astuce que j'avais utiliser une fois.
Le "grisage" s'effectue lorsqu'on clique sur le bouton de la fenetre.
Tu peux créer ta propre "form" avec ces fonctionnalités et faire hériter tes fenetre de cette "form".

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
    Private mBln_Griser As Boolean = False
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        mBln_Griser = Not mBln_Griser
        Me.InvalidateAll(Me)
    End Sub
    Private Sub InvalidateAll( _
        ByVal objControl As Control _
    )
        For Each objChildCtrl As Control In objControl.Controls
            InvalidateAll(objChildCtrl)
        Next
        objControl.Invalidate()
    End Sub
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        MyBase.OnLoad(e)
        AddHandlerControlPaint(Me)
    End Sub
    Protected Overrides Sub OnClosed(ByVal e As System.EventArgs)
        MyBase.OnClosed(e)
        RemoveHandlerControlPaint(Me)
    End Sub
    Private Sub AddHandlerControlPaint( _
        ByVal objControl As Control _
    )
        For Each objChildCtrl As Control In objControl.Controls
            AddHandlerControlPaint(objChildCtrl)
        Next
        AddHandler objControl.Paint, AddressOf Control_Paint
    End Sub
    Private Sub RemoveHandlerControlPaint( _
        ByVal objControl As Control _
    )
        For Each objChildCtrl As Control In objControl.Controls
            RemoveHandlerControlPaint(objChildCtrl)
        Next
        RemoveHandler objControl.Paint, AddressOf Control_Paint
    End Sub
    Protected Sub Control_Paint( _
        ByVal sender As Object, _
        ByVal e As System.Windows.Forms.PaintEventArgs _
    )
        If mBln_Griser Then GriserEcran(e.Graphics, sender)
    End Sub
    Private Sub GriserEcran( _
        ByVal objGraphics As Graphics, _
        ByVal objControl As Control _
    )
        Dim objBitmap As Image = New Bitmap(objControl.Width, objControl.Height, Imaging.PixelFormat.Format32bppArgb)
        Dim objGraph As Graphics = Graphics.FromImage(objBitmap)
        objGraph.Clear(Color.Black)
        Dim objColorMatrix As New Imaging.ColorMatrix
        objColorMatrix.Matrix33 = 0.25
        Dim objImageAttributes As New Imaging.ImageAttributes
        objImageAttributes.SetColorMatrix( _
            objColorMatrix _
        )
        objGraphics.DrawImage( _
            objBitmap, objControl.ClientRectangle, _
            0, 0, objBitmap.Width, objBitmap.Height, GraphicsUnit.Pixel, objImageAttributes _
        )
    End Sub