- 'a mettre ds un module
-
- Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
- Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
- Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
- Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
- Public Const MF_BYPOSITION = &H400&
- Public Const MF_REMOVE = &H1000&
-
- Public Function DesactiveX(ByVal frm As Form)
- Dim hMenu As Long
- Dim nCount As Long
- hMenu = GetSystemMenu(frm.hwnd, 0)
- nCount = GetMenuItemCount(hMenu)
- Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
- Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)
- DrawMenuBar frm.hwnd
- End Function
-
-
- 'et ensuite dans le code mettre:
-
- Private Sub Form_Load()
- Call DesactiveX
- End Sub
'a mettre ds un module
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Public Const MF_BYPOSITION = &H400&
Public Const MF_REMOVE = &H1000&
Public Function DesactiveX(ByVal frm As Form)
Dim hMenu As Long
Dim nCount As Long
hMenu = GetSystemMenu(frm.hwnd, 0)
nCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)
DrawMenuBar frm.hwnd
End Function
'et ensuite dans le code mettre:
Private Sub Form_Load()
Call DesactiveX
End Sub