Désactiver croix d'une FORM

[PhilBat]

Bonjour,

 

après recherche sur internet, j'avais trouvé ce code pour désactiver la croix

dans une fenêtre FORM :

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

Private Sub frm_load(....)handles Mybase.load
  DisCroix = New DisableCroix(Me.Handle.ToInt32, "", 0)
End Sub

Apprès adaptation pour AutoCAD 2013

Celui me provoque une erreur en mode déboguage uniquement :

 

PInvokeStackImbalance a été détecté

Message: Un appel à la fonction PInvoke 'Affaire!Affaire.DisableCroix::GetMenuItemCount' a déséquilibré la pile.

Cela peut se produire, car la signature PInvoke managée ne correspond pas à la signature cible non managée.

Vérifiez que la convention d'appel et les paramètres de la signature PInvoke correspondent à la signature non managée cible.

 

Ce message n'existait pas avec autoCAD 2011.

Merci d'avance pour vos idées ...

Phil

[(gile)]

Salut,

 

Je ne comprends pas ce que tu appelles "la croix", mais s'il s'agit du bouton pour fermer le formulaire (en haut à droite), tu peux peut-être tout simplement mettre la propriété ContolBox du formulaire à False.

[PhilBat]

Ok

Merci Gile

Pourquoi se compliquer la vie, quand on peut faire simple....

A+