J'ai cr=E9=E9 un formulaire et une barre de menu personnalis=E9
Je voudrais que l'utilisateur ne puisse pas r=E9duire le=20
formulaire.
Dans mon formulaire :
la propri=E9t=E9 Bouton MinMax =3D AUCUN
Au chargement de la feuille, j'utilise la=20
fonction docmd.maximise
Mon probl=E8me est =E0 l'execution de mon=20
formulaire,l'utilisateur peut r=E9duire le formulaire dans=20
ma barre de menu, il y a toujours le bouton r=E9duire, et=20
je n'arrive pas =E0 l'enlever, m=EAme par le code
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gaël Schmitt [MS]
Bonjour,
Il arrive à réduire le formulaire ou l'application entiere ?
Gael. "Laurent" a écrit dans le message de news:330b01c3fd44$e231e4f0$ J'ai créé un formulaire et une barre de menu personnalisé Je voudrais que l'utilisateur ne puisse pas réduire le formulaire.
Dans mon formulaire : la propriété Bouton MinMax = AUCUN Au chargement de la feuille, j'utilise la fonction docmd.maximise Mon problème est à l'execution de mon formulaire,l'utilisateur peut réduire le formulaire dans ma barre de menu, il y a toujours le bouton réduire, et je n'arrive pas à l'enlever, même par le code
Bonjour,
Il arrive à réduire le formulaire ou l'application entiere ?
Gael.
"Laurent" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:330b01c3fd44$e231e4f0$a401280a@phx.gbl...
J'ai créé un formulaire et une barre de menu personnalisé
Je voudrais que l'utilisateur ne puisse pas réduire le
formulaire.
Dans mon formulaire :
la propriété Bouton MinMax = AUCUN
Au chargement de la feuille, j'utilise la
fonction docmd.maximise
Mon problème est à l'execution de mon
formulaire,l'utilisateur peut réduire le formulaire dans
ma barre de menu, il y a toujours le bouton réduire, et
je n'arrive pas à l'enlever, même par le code
Il arrive à réduire le formulaire ou l'application entiere ?
Gael. "Laurent" a écrit dans le message de news:330b01c3fd44$e231e4f0$ J'ai créé un formulaire et une barre de menu personnalisé Je voudrais que l'utilisateur ne puisse pas réduire le formulaire.
Dans mon formulaire : la propriété Bouton MinMax = AUCUN Au chargement de la feuille, j'utilise la fonction docmd.maximise Mon problème est à l'execution de mon formulaire,l'utilisateur peut réduire le formulaire dans ma barre de menu, il y a toujours le bouton réduire, et je n'arrive pas à l'enlever, même par le code
codial
Essaie ça: Option Compare Database Option Explicit '//************ Code Start ********** Global Const SW_HIDE = 0 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long
' Type Rect x1 As Long y1 As Long x2 As Long y2 As Long End Type Declare Function IsZoomed Lib "user32" (ByVal hwnd As Long) As Long Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal _ nCmdShow As Long) As Long Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal _ X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight _ As Long, ByVal bRepaint As Long) As Long Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long ' Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect _ As Rect) As Long
Public Const SW_MAXIMIZE = 3
Sub MaximizeRestoredForm(f As Form) Dim MDIRect As Rect ' If the form is maximized, restore it. If IsZoomed(f.hwnd) <> 0 Then ShowWindow f.hwnd, SW_SHOWNORMAL End If ' GetClientRect GetParent(f.hwnd), MDIRect ' MoveWindow f.hwnd, 0, 0, MDIRect.x2 - MDIRect.x1, MDIRect.y2 - MDIRect.y1, True End Sub
et à l'ouverture tu mets:
Private Sub Form_Open(Cancel As Integer)
MaximizeRestoredForm Me
End Sub
MaximizeRestoredForm Me
le form dit avoir Style bordure =Aucun
Cordialement
Codial
"Laurent" a écrit dans le message de news:330b01c3fd44$e231e4f0$ J'ai créé un formulaire et une barre de menu personnalisé Je voudrais que l'utilisateur ne puisse pas réduire le formulaire.
Dans mon formulaire : la propriété Bouton MinMax = AUCUN Au chargement de la feuille, j'utilise la fonction docmd.maximise Mon problème est à l'execution de mon formulaire,l'utilisateur peut réduire le formulaire dans ma barre de menu, il y a toujours le bouton réduire, et je n'arrive pas à l'enlever, même par le code
Essaie ça:
Option Compare Database
Option Explicit
'//************ Code Start **********
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
'
Type Rect
x1 As Long
y1 As Long
x2 As Long
y2 As Long
End Type
Declare Function IsZoomed Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal _
nCmdShow As Long) As Long
Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal _
X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight _
As Long, ByVal bRepaint As Long) As Long
Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
'
Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect _
As Rect) As Long
Public Const SW_MAXIMIZE = 3
Sub MaximizeRestoredForm(f As Form)
Dim MDIRect As Rect
' If the form is maximized, restore it.
If IsZoomed(f.hwnd) <> 0 Then
ShowWindow f.hwnd, SW_SHOWNORMAL
End If
'
GetClientRect GetParent(f.hwnd), MDIRect
'
MoveWindow f.hwnd, 0, 0, MDIRect.x2 - MDIRect.x1, MDIRect.y2 -
MDIRect.y1, True
End Sub
et à l'ouverture tu mets:
Private Sub Form_Open(Cancel As Integer)
MaximizeRestoredForm Me
End Sub
MaximizeRestoredForm Me
le form dit avoir Style bordure =Aucun
Cordialement
Codial
"Laurent" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:330b01c3fd44$e231e4f0$a401280a@phx.gbl...
J'ai créé un formulaire et une barre de menu personnalisé
Je voudrais que l'utilisateur ne puisse pas réduire le
formulaire.
Dans mon formulaire :
la propriété Bouton MinMax = AUCUN
Au chargement de la feuille, j'utilise la
fonction docmd.maximise
Mon problème est à l'execution de mon
formulaire,l'utilisateur peut réduire le formulaire dans
ma barre de menu, il y a toujours le bouton réduire, et
je n'arrive pas à l'enlever, même par le code
Essaie ça: Option Compare Database Option Explicit '//************ Code Start ********** Global Const SW_HIDE = 0 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long
' Type Rect x1 As Long y1 As Long x2 As Long y2 As Long End Type Declare Function IsZoomed Lib "user32" (ByVal hwnd As Long) As Long Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal _ nCmdShow As Long) As Long Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal _ X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight _ As Long, ByVal bRepaint As Long) As Long Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long ' Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect _ As Rect) As Long
Public Const SW_MAXIMIZE = 3
Sub MaximizeRestoredForm(f As Form) Dim MDIRect As Rect ' If the form is maximized, restore it. If IsZoomed(f.hwnd) <> 0 Then ShowWindow f.hwnd, SW_SHOWNORMAL End If ' GetClientRect GetParent(f.hwnd), MDIRect ' MoveWindow f.hwnd, 0, 0, MDIRect.x2 - MDIRect.x1, MDIRect.y2 - MDIRect.y1, True End Sub
et à l'ouverture tu mets:
Private Sub Form_Open(Cancel As Integer)
MaximizeRestoredForm Me
End Sub
MaximizeRestoredForm Me
le form dit avoir Style bordure =Aucun
Cordialement
Codial
"Laurent" a écrit dans le message de news:330b01c3fd44$e231e4f0$ J'ai créé un formulaire et une barre de menu personnalisé Je voudrais que l'utilisateur ne puisse pas réduire le formulaire.
Dans mon formulaire : la propriété Bouton MinMax = AUCUN Au chargement de la feuille, j'utilise la fonction docmd.maximise Mon problème est à l'execution de mon formulaire,l'utilisateur peut réduire le formulaire dans ma barre de menu, il y a toujours le bouton réduire, et je n'arrive pas à l'enlever, même par le code
