Bonjour à tous,
Je fais un prog qui contient plusieurs pages, et pour chacune d'elles je mets plusieurs sub pour "
désactiver la case System" et "
empêcher le déplacement" de la fenêtre.
Ci-après les procédures en question :
'Désactive les options de la case system
Dim nStyle As Long
Dim nMenu As Long
Dim nCount As Long
Dim hMenu As Long
Dim menuItemCount As Long
'--- Désactive la case system "fermer" ----
hMenu = GetSystemMenu(Me.hwnd, 0)
If hMenu Then
menuItemCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, menuItemCount - 1, MF_REMOVE Or MF_BYPOSITION)
Call RemoveMenu(hMenu, menuItemCount - 2, MF_REMOVE Or MF_BYPOSITION)
Call DrawMenuBar(Me.hwnd)
End If
'--- Empêche le déplacement ---
With Me
nStyle = GetWindowLong(.hwnd, GWL_STYLE)
nStyle = nStyle And Not (WS_THICKFRAME)
SetWindowLong .hwnd, GWL_STYLE, nStyle
nMenu = GetSystemMenu(.hwnd, 0)
RemoveMenu nMenu, SC_MOVE, MF_REMOVE Or MF_BYCOMMAND
nCount = GetMenuItemCount(nMenu)
RemoveMenu nMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION
DrawMenuBar .hwnd
End With
Me.BackColor = &HC0C0C0
Ces lignes de codes m'ont été fournies par différents forums je crois, dont celui-ci, et je voudrais savoir comment le mettre dans un module pour m'éviter de le spécifier dans toutes les pages !
J'ai commencé avec ça, mais j'ai toujours une erreur lors de l'exécution.
With Parent.ConfigPages
End Function
Si c'est bien cela qu'il faut mettre.
Bien que l'aide de Msdn traite le sujet de "Width", je n'ai pas de solutions pour ça !
Merci d'avance de votre aide.
Cordialement, Masterfree