Désactiver la croix système sous vb.net

Description

Des personnes cherchent un code pour désactiver la croix rouge (système)
Sous VB.NET, le code est différent par rapport à Vb6
Donc voici ce que j'utilise :
Une Classe
et l'appel dans la form

Ci-joint zip avec l'exemple sur 2 feuilles en même temps.

Source / Exemple :


'Dans une :
Class DisableCroix

    Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Integer
    Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
    Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Integer, ByVal bRevert As Boolean) As Integer
    Public Const MF_BYPOSITION = &H400&
    Public Const MF_REMOVE = &H1000&

    Public Sub New(ByVal hwnd As Integer, ByVal sText As String, ByVal IDMenu As Short)
        Dim hSysMenu As Integer
        Dim nCount As Integer
        '*/ Pour désactiver la croix system-----------
        hSysMenu = GetSystemMenu(hwnd, False)
        nCount = GetMenuItemCount(hSysMenu)
        RemoveMenu(hSysMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
        RemoveMenu(hSysMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)
    End Sub
end Class
'----------------------------------------
Dans la form

    Private DisCroix As DisableCroix

    Protected Overrides Sub DefWndProc(ByRef m As System.Windows.Forms.Message)
        MyBase.DefWndProc(m)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DisCroix = New DisableCroix(Me.Handle.ToInt32, "", 0)
    End Sub

Conclusion :


si il y a plus simple je prend :)

Codes Sources

A voir également

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.