Maximize Minimize Close Button dans MDIForm

Version imprimable

1 pièce(s) jointe(s)

Bonjour Forum
Bonjour tout le monde
SVP si vous pouvez m'aider a corriger ce code que je l'ai utilise pour supprimer les options Minimize Maximize et Close dans MDIForm ..
J'ai mis ce code .. je l'ai trouve au Net dans ma MDIForm :

Code:

1
2
3
4
5
6
7
Sub MDIForm_Load()
Dim lWnd As Long
lWnd = GetWindowLong(Me.hwnd, GWL_STYLE)
lWnd = lWnd And Not (WS_MINIMIZEBOX)
lWnd = lWnd And Not (WS_MAXIMIZEBOX)
lWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd)
End Sub

Et ensuite ce code dans un module simple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#If Win32 Then
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal _
nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal _
nIndex As Long) As Long
#Else
Declare Function SetWindowLong Lib "User" (ByVal hwnd _
As Integer, ByVal nIndex As Integer, ByVal _
dwNewLong As Long) As Long
Declare Function GetWindowLong Lib "User" (ByVal hwnd _
As Integer, ByVal nIndex As Integer) As Long
#End If
 
Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
Const GWL_STYLE = (-16)

Voila la ligne d'erreur ..
Merci beaucoup d'avance pour l'aide
MADA

06/12/2016, 17h33
ProgElecT

Salut

Toutes fonctions déclarées dans ton module, si tu veux quelles soient accessibles hors de ce module, doivent être déclarées Public.
En l'absence des mots clés Public ou Private, les procédures Sub ou function sont publiques par défaut.
06/12/2016, 17h53
MADA BLACK

Bonjour ProgElect
Merci 1000 fois pour votre lecon .. croyez moi je suis tres debutant dans ce domaine ..comment ce code sera ecrit svp
J'ai change dans le module le mot Private par Public mais ca ne fonctionne pas malheureusement les options Maximize et Minimize toujours affichees
Merci beaucoup d'avance pour l'aide
Cordialement
MADA

Citation:

Bonjour ProgElect
Merci 1000 fois pour votre lecon
.......

Je ne prêtant pas donner de leçon, tout au plus donner des informations, si j'en ai à donner ;)

Dans le module:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
#If Win32 Then
    Public Declare Function SetWindowLong Lib "user32" _
    Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal _
    nIndex As Long, ByVal dwNewLong As Long) As Long
    '--------------------------------------------------------------
    Public Declare Function GetWindowLong Lib "user32" _
    Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal _
    nIndex As Long) As Long
#Else
    Declare Function SetWindowLong Lib "User" (ByVal hwnd _
    As Integer, ByVal nIndex As Integer, ByVal _
    dwNewLong As Long) As Long
    '--------------------------------------------------------------
    Declare Function GetWindowLong Lib "User" (ByVal hwnd _
    As Integer, ByVal nIndex As Integer) As Long
#End If
 
'Public Const WS_MINIMIZEBOX = &H20000
'Public Const WS_MAXIMIZEBOX = &H10000
Public Const GWL_STYLE = (-16)
Public Const WS_SYSMENU = &H80000

dans MDIForm1

Code:

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Sub MDIForm_Load()
    Dim lWnd As Long
    lWnd = GetWindowLong(Me.hwnd, GWL_STYLE)
    'lWnd = lWnd And Not (WS_MINIMIZEBOX)
    'lWnd = lWnd And Not (WS_MAXIMIZEBOX)
    lWnd = lWnd And Not (WS_SYSMENU)
    lWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd)
Form1.Show
End Sub

Dans form1 (MDIChild), avec un CommandButton

Code:

1
2
3
4
5
Option Explicit
 
Private Sub Command1_Click()
End
End Sub

06/12/2016, 20h26
MADA BLACK

1 pièce(s) jointe(s)

Bonsoir ProgElect
Dans tous les cas merci ..tres tres gentil de votre part
Merci encore pour vos impeccables codes
Parfaitement resolu
Amicalement
MADA

Re Re dernière

Je ne sais pas si tu n'a pas besoin d’empêcher tous redimensionnements automatiques fais par windows quand tu déplaces le MDIForm plus haut que l'écran ou plus loin que les cotés droit ou gauche ?
Si oui
Dans le module

Code:

1
2
3
4
5
Public Const GWL_STYLE = (-16)
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_SYSMENU = &H80000
Public Const WS_SIZEBOX = &H40000

Dans dans MDIForm1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Sub MDIForm_Load()
    Dim lWnd As Long
    lWnd = GetWindowLong(Me.hwnd, GWL_STYLE)
    lWnd = lWnd And Not (WS_MINIMIZEBOX)
    lWnd = lWnd And Not (WS_MAXIMIZEBOX)
    lWnd = lWnd And Not (WS_SYSMENU)
    lWnd = lWnd And Not (WS_SIZEBOX)
    lWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd)
Form1.Show
End Sub

06/12/2016, 21h34
MADA BLACK

ProgElect
Je n'ai qu'a vous dire " BRAVO "
Cordialement
MADA