Fermer les formulaires

Commenter

Contenu du snippet

Ferme 1 ou tous les formulaires ouverts dans un application vb.net.
Cette procédure est appelée si le Form.KeyPreview des fromlulaires est à true.
Dans mon code, seules les touches F9 et Fin sont opérationnelles, mais on peut traiter n'importe quelles autres touches.

Source / Exemple : 


Public Sub Papi_KeyCode(ByVal QuelleTouche As System.Windows.Forms.Keys, ByVal QuelForm As Form)
        '120=F9
        '35=fin'
select case QuelleTouche
Case 120
QuelForm.Close()
Case 35

            Dim F(20) As Form 'nombre maximun de formulaires ouverts'
            Dim Nb As Integer = My.Application.OpenForms.Count
            For i = 1 To My.Application.OpenForms.Count - 1
                'on ne prend pas en compte le formulaire 0 car c'est celui qui en général reste toujours affiché'
                F(i) = My.Application.OpenForms.Item(i) 'on enregistre les formulaires ouverts'
            Next
            Dim Rep As String = InputBox("Voulez_vous fermer les " & Nb - 1 & " fenêtres ouvertes", "Nom du programme, "Oui")
            If Rep = "Oui" Then
                For i = 1 To Nb - 1
                    F(i).Close()
                    F(1).Dispose()
                Next
            End If
      end select
    End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (jvuillaume)