Discussion :

[MADA BLACK]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[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

[ProgElecT]

Re

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MADA BLACK]

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

[ProgElecT]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MADA BLACK]

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