Comment faire disparaitre l'icone du X dans le haut?
3 réponses
David
Bonjour,
j'aimerais savoir si c'est possible de faire disparaitre l'icone du X
(fermeture de la fenetre) dans le haut de la fenetre de l'application? Les
deux raisons pourquoi je veux faire cela sont les suivantes:
1- Esthétique pour mon application
2- C'est une application pour un musé qui doit resté ouverte sans que les
utilisateurs puissent la fermé (ya toujours des petits malins qui s'amusent
à fermer les appli.)
Je sais que je peux intercepté l'évenement de la fermeture de l'écran et
l'empêcher mais si c'est possible de faire disparaitre le X, ce serait
l'idéal!
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
Adam Pietrasiewicz
<<< Attention - mon adresse dans l'entete de ce message >>> <<< est une adresse ANTISPAM - pour m'ecrire cliquez sur >>> <<< http://www.cerbermail.com/?DQr0g2Y88R >>> =================================================== Le 12 pa¼dziernika 2003 23:51:14 David a ecrit dans un message news:91kib.31$
Bonjour,
j'aimerais savoir si c'est possible de faire disparaitre l'icone du X (fermeture de la fenetre) dans le haut de la fenetre de l'application? Les deux raisons pourquoi je veux faire cela sont les suivantes:
1- Esthétique pour mon application 2- C'est une application pour un musé qui doit resté ouverte sans que les utilisateurs puissent la fermé (ya toujours des petits malins qui s'amusent a fermer les appli.)
Je sais que je peux intercepté l'évenement de la fermeture de l'écran et l'empêcher mais si c'est possible de faire disparaitre le X, ce serait l'idéal!
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
Global Const MF_BYPOSITION = &H400 Global Const MF_REMOVE = &H1000
Sub DeactiveX(Fenetre As Form) On Error Resume Next Dim hMenu As Long Dim menuItemCount As Long hMenu = GetSystemMenu(Fenetre .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 RemoveMenu(hMenu, menuItemCount - 7, MF_REMOVE Or MF_BYPOSITION)
Call DrawMenuBar(Fenetre.hWnd)
End If End Sub
-- Adam Pietrasiewicz Pologne
--- Ten list zosta³ wys³any przy u¿yciu Go³±bka http://www.amsoft.com.pl/golabek
<<< Attention - mon adresse dans l'entete de ce message >>>
<<< est une adresse ANTISPAM - pour m'ecrire cliquez sur >>>
<<< http://www.cerbermail.com/?DQr0g2Y88R >>>
=================================================== Le 12 pa¼dziernika 2003 23:51:14 David a ecrit dans un message
news:91kib.31$Z_2.2952@news20.bellglobal.com
Bonjour,
j'aimerais savoir si c'est possible de faire disparaitre l'icone du X
(fermeture de la fenetre) dans le haut de la fenetre de l'application? Les
deux raisons pourquoi je veux faire cela sont les suivantes:
1- Esthétique pour mon application
2- C'est une application pour un musé qui doit resté ouverte sans que les
utilisateurs puissent la fermé (ya toujours des petits malins qui s'amusent
a fermer les appli.)
Je sais que je peux intercepté l'évenement de la fermeture de l'écran et
l'empêcher mais si c'est possible de faire disparaitre le X, ce serait
l'idéal!
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
Global Const MF_BYPOSITION = &H400
Global Const MF_REMOVE = &H1000
Sub DeactiveX(Fenetre As Form)
On Error Resume Next
Dim hMenu As Long
Dim menuItemCount As Long
hMenu = GetSystemMenu(Fenetre .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 RemoveMenu(hMenu, menuItemCount - 7, MF_REMOVE Or
MF_BYPOSITION)
Call DrawMenuBar(Fenetre.hWnd)
End If
End Sub
--
Adam Pietrasiewicz
Pologne
---
Ten list zosta³ wys³any przy u¿yciu Go³±bka http://www.amsoft.com.pl/golabek
<<< Attention - mon adresse dans l'entete de ce message >>> <<< est une adresse ANTISPAM - pour m'ecrire cliquez sur >>> <<< http://www.cerbermail.com/?DQr0g2Y88R >>> =================================================== Le 12 pa¼dziernika 2003 23:51:14 David a ecrit dans un message news:91kib.31$
Bonjour,
j'aimerais savoir si c'est possible de faire disparaitre l'icone du X (fermeture de la fenetre) dans le haut de la fenetre de l'application? Les deux raisons pourquoi je veux faire cela sont les suivantes:
1- Esthétique pour mon application 2- C'est une application pour un musé qui doit resté ouverte sans que les utilisateurs puissent la fermé (ya toujours des petits malins qui s'amusent a fermer les appli.)
Je sais que je peux intercepté l'évenement de la fermeture de l'écran et l'empêcher mais si c'est possible de faire disparaitre le X, ce serait l'idéal!
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
Global Const MF_BYPOSITION = &H400 Global Const MF_REMOVE = &H1000
Sub DeactiveX(Fenetre As Form) On Error Resume Next Dim hMenu As Long Dim menuItemCount As Long hMenu = GetSystemMenu(Fenetre .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 RemoveMenu(hMenu, menuItemCount - 7, MF_REMOVE Or MF_BYPOSITION)
Call DrawMenuBar(Fenetre.hWnd)
End If End Sub
-- Adam Pietrasiewicz Pologne
--- Ten list zosta³ wys³any przy u¿yciu Go³±bka http://www.amsoft.com.pl/golabek
David
Merci!
"David" a écrit dans le message de news:91kib.31$
Bonjour,
j'aimerais savoir si c'est possible de faire disparaitre l'icone du X (fermeture de la fenetre) dans le haut de la fenetre de l'application?
Les
deux raisons pourquoi je veux faire cela sont les suivantes:
1- Esthétique pour mon application 2- C'est une application pour un musé qui doit resté ouverte sans que les utilisateurs puissent la fermé (ya toujours des petits malins qui
s'amusent
à fermer les appli.)
Je sais que je peux intercepté l'évenement de la fermeture de l'écran et l'empêcher mais si c'est possible de faire disparaitre le X, ce serait l'idéal!
Merci! David
Merci!
"David" <gecko.db-NOSPAM@sympatico.ca> a écrit dans le message de
news:91kib.31$Z_2.2952@news20.bellglobal.com...
Bonjour,
j'aimerais savoir si c'est possible de faire disparaitre l'icone du X
(fermeture de la fenetre) dans le haut de la fenetre de l'application?
Les
deux raisons pourquoi je veux faire cela sont les suivantes:
1- Esthétique pour mon application
2- C'est une application pour un musé qui doit resté ouverte sans que les
utilisateurs puissent la fermé (ya toujours des petits malins qui
s'amusent
à fermer les appli.)
Je sais que je peux intercepté l'évenement de la fermeture de l'écran et
l'empêcher mais si c'est possible de faire disparaitre le X, ce serait
l'idéal!
j'aimerais savoir si c'est possible de faire disparaitre l'icone du X (fermeture de la fenetre) dans le haut de la fenetre de l'application?
Les
deux raisons pourquoi je veux faire cela sont les suivantes:
1- Esthétique pour mon application 2- C'est une application pour un musé qui doit resté ouverte sans que les utilisateurs puissent la fermé (ya toujours des petits malins qui
s'amusent
à fermer les appli.)
Je sais que je peux intercepté l'évenement de la fermeture de l'écran et l'empêcher mais si c'est possible de faire disparaitre le X, ce serait l'idéal!
Merci! David
Jessy SEMPERE
Bonjour
Génial ce code... ;-)) Par contre quel est la synthaxe pour les rétablir ?
Merci @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Adam Pietrasiewicz" a écrit dans le message news:
<<< Attention - mon adresse dans l'entete de ce message >>> <<< est une adresse ANTISPAM - pour m'ecrire cliquez sur >>> <<< http://www.cerbermail.com/?DQr0g2Y88R >>> =================================================== > Le 12 pa¼dziernika 2003 23:51:14 David a ecrit dans un message news:91kib.31$
> > > Bonjour, > > j'aimerais savoir si c'est possible de faire disparaitre l'icone du X > (fermeture de la fenetre) dans le haut de la fenetre de l'application?
Les
> deux raisons pourquoi je veux faire cela sont les suivantes: > > 1- Esthétique pour mon application > 2- C'est une application pour un musé qui doit resté ouverte sans que
les
> utilisateurs puissent la fermé (ya toujours des petits malins qui
s'amusent
> a fermer les appli.) > > Je sais que je peux intercepté l'évenement de la fermeture de l'écran et > l'empêcher mais si c'est possible de faire disparaitre le X, ce serait > l'idéal! >
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
Global Const MF_BYPOSITION = &H400 Global Const MF_REMOVE = &H1000
Sub DeactiveX(Fenetre As Form) On Error Resume Next Dim hMenu As Long Dim menuItemCount As Long hMenu = GetSystemMenu(Fenetre .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 RemoveMenu(hMenu, menuItemCount - 7, MF_REMOVE Or MF_BYPOSITION)
Call DrawMenuBar(Fenetre.hWnd)
End If End Sub
-- Adam Pietrasiewicz Pologne
--- Ten list zosta³ wys³any przy u¿yciu Go³±bka
http://www.amsoft.com.pl/golabek
Bonjour
Génial ce code... ;-))
Par contre quel est la synthaxe pour les rétablir ?
Merci
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Adam Pietrasiewicz" <ceci.n.est.pas@une.adresse.e-mail> a écrit dans le
message news: YNCGBC13102003002545nqcvrg@cbyobk.pbz...
<<< Attention - mon adresse dans l'entete de ce message >>>
<<< est une adresse ANTISPAM - pour m'ecrire cliquez sur >>>
<<< http://www.cerbermail.com/?DQr0g2Y88R >>>
=================================================== > Le 12 pa¼dziernika 2003 23:51:14 David a ecrit dans un message
news:91kib.31$Z_2.2952@news20.bellglobal.com
>
>
> Bonjour,
>
> j'aimerais savoir si c'est possible de faire disparaitre l'icone du X
> (fermeture de la fenetre) dans le haut de la fenetre de l'application?
Les
> deux raisons pourquoi je veux faire cela sont les suivantes:
>
> 1- Esthétique pour mon application
> 2- C'est une application pour un musé qui doit resté ouverte sans que
les
> utilisateurs puissent la fermé (ya toujours des petits malins qui
s'amusent
> a fermer les appli.)
>
> Je sais que je peux intercepté l'évenement de la fermeture de l'écran et
> l'empêcher mais si c'est possible de faire disparaitre le X, ce serait
> l'idéal!
>
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
Global Const MF_BYPOSITION = &H400
Global Const MF_REMOVE = &H1000
Sub DeactiveX(Fenetre As Form)
On Error Resume Next
Dim hMenu As Long
Dim menuItemCount As Long
hMenu = GetSystemMenu(Fenetre .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 RemoveMenu(hMenu, menuItemCount - 7, MF_REMOVE Or
MF_BYPOSITION)
Génial ce code... ;-)) Par contre quel est la synthaxe pour les rétablir ?
Merci @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Adam Pietrasiewicz" a écrit dans le message news:
<<< Attention - mon adresse dans l'entete de ce message >>> <<< est une adresse ANTISPAM - pour m'ecrire cliquez sur >>> <<< http://www.cerbermail.com/?DQr0g2Y88R >>> =================================================== > Le 12 pa¼dziernika 2003 23:51:14 David a ecrit dans un message news:91kib.31$
> > > Bonjour, > > j'aimerais savoir si c'est possible de faire disparaitre l'icone du X > (fermeture de la fenetre) dans le haut de la fenetre de l'application?
Les
> deux raisons pourquoi je veux faire cela sont les suivantes: > > 1- Esthétique pour mon application > 2- C'est une application pour un musé qui doit resté ouverte sans que
les
> utilisateurs puissent la fermé (ya toujours des petits malins qui
s'amusent
> a fermer les appli.) > > Je sais que je peux intercepté l'évenement de la fermeture de l'écran et > l'empêcher mais si c'est possible de faire disparaitre le X, ce serait > l'idéal! >
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
Global Const MF_BYPOSITION = &H400 Global Const MF_REMOVE = &H1000
Sub DeactiveX(Fenetre As Form) On Error Resume Next Dim hMenu As Long Dim menuItemCount As Long hMenu = GetSystemMenu(Fenetre .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 RemoveMenu(hMenu, menuItemCount - 7, MF_REMOVE Or MF_BYPOSITION)
