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
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.