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