Je voulais grisé la croix en haut a droit d'une fenêtre, alors j'ai pris cet
exemple chez API-guide et il marche pas ... vous avez une idée pourquoi ?
'Example by Josip Pejakoviæ (jpejakovic@yahoo.com)
'Visit his homepage at http://jp.averi.hr
'This is example how to disable resize form at the run time.
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long,
ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal
nPosition As Long, ByVal wFlags As Long) As Long
Const SC_SIZE = &HF000
Const MF_BYCOMMAND = &H0
Dim hMenu As Long
Private Sub Form_Load()
hMenu = GetSystemMenu(hwnd, 0)
Call DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND)
End Sub
Suivant depuis quelques temps les discussions sur ce Newsgroup, je te rassure, le ton pris par Bismark est tout naturel et il ne change rien à sa façon d'être...
Une personne apparement très entière qui peut parfois froisser certains visiteurs tant il ne mâche pas ses mots (à tort ou à raison).
Ceci dit, bonne prog' à tous.
Guy DETIENNE
-----Original Message----- Bonjour François,
Cela faisait longtemps.
Sans avoir le temps de répondre aux questions en ce
moment, je lis quand même les discussions ! Et je lui répond comme lui répond
aux débutants.
Mais je n'es rien de personnel contre lui. Comme je
disais une fois une explication est mieux que "Va sur truc muche".
Cordialement
Stéphane Maillard
"François Picalausa" a écrit dans
le message de news:
| Hello Stéphane! | | Be zen, keep cool! | Je pense qu'il fallait prendre le message de Bismark
Prods sur le ton de la
| rigolade (même si il s'y prend mal - mais il a mis lol,
ce qui est un petit
| indice) et non comme une insulte disant "mais vous
savez pas lire????"
| | Aussi, Bismark, je te demanderais, si c'est le cas,
d'aller droit au but la
| prochaine fois, sans message pouvant préter à confusion
(peut-être aussi
| commencer par "merci mais ce n'est pas vraiment ce
qu'il me fallait" ou
| quelquechose du même goût... enfin, ce n'est qu'une
suggestion mais si ça
| peut aider ;-) )... | | Sinon.. bah j'sais pas encore ce que je ferai mais je
le ferai! Des idées?
| :-P | | -- | François Picalausa (MVP VB) | FAQ VB : http://faq.vb.free.fr | MSDN : http://msdn.microsoft.com | | | Stéphane Maillard wrote: | > Bonjour, | > | > Tout simplement ce Monsieur c'est planté de code, cet
exemple est
| > pour empécher le redimensionnement de la fenêtre, je
ne croix pas que
| > cela ressemble à une croix. | > On en apprend tout les jours. | > | > Cordialement | > | > Stéphane Maillard | > | > "François Picalausa" a écrit
dans le message de
| > news: | >> Bonjour/soir, | >> | >> Peut-être déjà un indice dans le commentaire? | >> 'This is example how to disable *resize* form at the
run time.
| >> | >> Et effectivement, j'ai beau prendre la barre à mine,
l'enfoncer dans
| >> l'écran | >> et tenter de faire sauter les bords de la fenêtre,
rien d'y fait...
| >> | >> Ce qui m'a mis la puce à l'oreille est le nom de la
constante:
| >> SC_SIZE | >> | >> Pourquoi size quand on veut virer le close? | >> -- | >> François Picalausa (MVP VB) | >> FAQ VB : http://faq.vb.free.fr | >> MSDN : http://msdn.microsoft.com | >> | >> | >> Bismark Prods wrote: | >>> Sans doute, mais de toutes les façons, j'ai
également une facon qui
| >>> marche ! mais c'est dans l'exemple fourni par API-
Guide que
| >>> j'aimerais comprendre ce qui cloche ... | >>> | >>> Si tu avais lu ma question tu saurais ce que j'ai
| >>>> Bonjour, | >>>> | >>>> Dans la FAQ VB il y à un exemple qui fonctionne. | >>>> | >>>> Cordialement | >>>> | >>>> Stéphane Maillard | >>>> | >>>> "Bismark Prods" a écrit dans
le message de
| >>> news: | >>>>> Hello, | >>>>> | >>>>> Je voulais grisé la croix en haut a droit d'une
fenêtre, alors
| >>>>> j'ai | >>>>> pris cet exemple chez API-guide et il marche
pas ... vous avez une
| >>>>> idée pourquoi ? | >>>>> | >>>>> 'Example by Josip Pejakoviæ () | >>>>> 'Visit his homepage at http://jp.averi.hr | >>>>> 'This is example how to disable resize form at
the run time.
| >>>>> Private Declare Function GetSystemMenu
Lib "user32" (ByVal hwnd As
| >>>>> Long, ByVal bRevert As Long) As Long | >>>>> Private Declare Function DeleteMenu Lib "user32"
(ByVal hMenu As
| >>>>> Long, ByVal nPosition As Long, ByVal wFlags As
Long) As Long
| >>>>> Const SC_SIZE = &HF000 | >>>>> Const MF_BYCOMMAND = &H0 | >>>>> Dim hMenu As Long | >>>>> Private Sub Form_Load() | >>>>> hMenu = GetSystemMenu(hwnd, 0) | >>>>> Call DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND) | >>>>> End Sub | >>>>> | >>>>> Merci | |
.
Salut Stéphane !
Suivant depuis quelques temps les discussions sur ce
Newsgroup, je te rassure, le ton pris par Bismark est tout
naturel et il ne change rien à sa façon d'être...
Une personne apparement très entière qui peut parfois
froisser certains visiteurs tant il ne mâche pas ses mots
(à tort ou à raison).
Ceci dit, bonne prog' à tous.
Guy DETIENNE
-----Original Message-----
Bonjour François,
Cela faisait longtemps.
Sans avoir le temps de répondre aux questions en ce
moment, je lis quand même les discussions ! Et je lui
répond comme lui répond
aux débutants.
Mais je n'es rien de personnel contre lui. Comme je
disais une fois une explication est mieux que "Va sur truc
muche".
Cordialement
Stéphane Maillard
"François Picalausa" <fpicalausa@chez.com> a écrit dans
le message de news:uRL26E1PDHA.2052@TK2MSFTNGP11.phx.gbl...
| Hello Stéphane!
|
| Be zen, keep cool!
| Je pense qu'il fallait prendre le message de Bismark
Prods sur le ton de la
| rigolade (même si il s'y prend mal - mais il a mis lol,
ce qui est un petit
| indice) et non comme une insulte disant "mais vous
savez pas lire????"
|
| Aussi, Bismark, je te demanderais, si c'est le cas,
d'aller droit au but la
| prochaine fois, sans message pouvant préter à confusion
(peut-être aussi
| commencer par "merci mais ce n'est pas vraiment ce
qu'il me fallait" ou
| quelquechose du même goût... enfin, ce n'est qu'une
suggestion mais si ça
| peut aider ;-) )...
|
| Sinon.. bah j'sais pas encore ce que je ferai mais je
le ferai! Des idées?
| :-P
|
| --
| François Picalausa (MVP VB)
| FAQ VB : http://faq.vb.free.fr
| MSDN : http://msdn.microsoft.com
|
|
| Stéphane Maillard wrote:
| > Bonjour,
| >
| > Tout simplement ce Monsieur c'est planté de code, cet
exemple est
| > pour empécher le redimensionnement de la fenêtre, je
ne croix pas que
| > cela ressemble à une croix.
| > On en apprend tout les jours.
| >
| > Cordialement
| >
| > Stéphane Maillard
| >
| > "François Picalausa" <fpicalausa@chez.com> a écrit
dans le message de
| > news:ebvx610PDHA.1748@TK2MSFTNGP11.phx.gbl...
| >> Bonjour/soir,
| >>
| >> Peut-être déjà un indice dans le commentaire?
| >> 'This is example how to disable *resize* form at the
run time.
| >>
| >> Et effectivement, j'ai beau prendre la barre à mine,
l'enfoncer dans
| >> l'écran
| >> et tenter de faire sauter les bords de la fenêtre,
rien d'y fait...
| >>
| >> Ce qui m'a mis la puce à l'oreille est le nom de la
constante:
| >> SC_SIZE
| >>
| >> Pourquoi size quand on veut virer le close?
| >> --
| >> François Picalausa (MVP VB)
| >> FAQ VB : http://faq.vb.free.fr
| >> MSDN : http://msdn.microsoft.com
| >>
| >>
| >> Bismark Prods wrote:
| >>> Sans doute, mais de toutes les façons, j'ai
également une facon qui
| >>> marche ! mais c'est dans l'exemple fourni par API-
Guide que
| >>> j'aimerais comprendre ce qui cloche ...
| >>>
| >>> Si tu avais lu ma question tu saurais ce que j'ai
| >>>> Bonjour,
| >>>>
| >>>> Dans la FAQ VB il y à un exemple qui fonctionne.
| >>>>
| >>>> Cordialement
| >>>>
| >>>> Stéphane Maillard
| >>>>
| >>>> "Bismark Prods" <xanaia@urbanet.ch> a écrit dans
le message de
| >>> news:OCOjuL0PDHA.1624@tk2msftngp13.phx.gbl...
| >>>>> Hello,
| >>>>>
| >>>>> Je voulais grisé la croix en haut a droit d'une
fenêtre, alors
| >>>>> j'ai
| >>>>> pris cet exemple chez API-guide et il marche
pas ... vous avez une
| >>>>> idée pourquoi ?
| >>>>>
| >>>>> 'Example by Josip Pejakoviæ (jpejakovic@yahoo.com)
| >>>>> 'Visit his homepage at http://jp.averi.hr
| >>>>> 'This is example how to disable resize form at
the run time.
| >>>>> Private Declare Function GetSystemMenu
Lib "user32" (ByVal hwnd As
| >>>>> Long, ByVal bRevert As Long) As Long
| >>>>> Private Declare Function DeleteMenu Lib "user32"
(ByVal hMenu As
| >>>>> Long, ByVal nPosition As Long, ByVal wFlags As
Long) As Long
| >>>>> Const SC_SIZE = &HF000
| >>>>> Const MF_BYCOMMAND = &H0
| >>>>> Dim hMenu As Long
| >>>>> Private Sub Form_Load()
| >>>>> hMenu = GetSystemMenu(hwnd, 0)
| >>>>> Call DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND)
| >>>>> End Sub
| >>>>>
| >>>>> Merci
|
|
Suivant depuis quelques temps les discussions sur ce Newsgroup, je te rassure, le ton pris par Bismark est tout naturel et il ne change rien à sa façon d'être...
Une personne apparement très entière qui peut parfois froisser certains visiteurs tant il ne mâche pas ses mots (à tort ou à raison).
Ceci dit, bonne prog' à tous.
Guy DETIENNE
-----Original Message----- Bonjour François,
Cela faisait longtemps.
Sans avoir le temps de répondre aux questions en ce
moment, je lis quand même les discussions ! Et je lui répond comme lui répond
aux débutants.
Mais je n'es rien de personnel contre lui. Comme je
disais une fois une explication est mieux que "Va sur truc muche".
Cordialement
Stéphane Maillard
"François Picalausa" a écrit dans
le message de news:
| Hello Stéphane! | | Be zen, keep cool! | Je pense qu'il fallait prendre le message de Bismark
Prods sur le ton de la
| rigolade (même si il s'y prend mal - mais il a mis lol,
ce qui est un petit
| indice) et non comme une insulte disant "mais vous
savez pas lire????"
| | Aussi, Bismark, je te demanderais, si c'est le cas,
d'aller droit au but la
| prochaine fois, sans message pouvant préter à confusion
(peut-être aussi
| commencer par "merci mais ce n'est pas vraiment ce
qu'il me fallait" ou
| quelquechose du même goût... enfin, ce n'est qu'une
suggestion mais si ça
| peut aider ;-) )... | | Sinon.. bah j'sais pas encore ce que je ferai mais je
le ferai! Des idées?
| :-P | | -- | François Picalausa (MVP VB) | FAQ VB : http://faq.vb.free.fr | MSDN : http://msdn.microsoft.com | | | Stéphane Maillard wrote: | > Bonjour, | > | > Tout simplement ce Monsieur c'est planté de code, cet
exemple est
| > pour empécher le redimensionnement de la fenêtre, je
ne croix pas que
| > cela ressemble à une croix. | > On en apprend tout les jours. | > | > Cordialement | > | > Stéphane Maillard | > | > "François Picalausa" a écrit
dans le message de
| > news: | >> Bonjour/soir, | >> | >> Peut-être déjà un indice dans le commentaire? | >> 'This is example how to disable *resize* form at the
run time.
| >> | >> Et effectivement, j'ai beau prendre la barre à mine,
l'enfoncer dans
| >> l'écran | >> et tenter de faire sauter les bords de la fenêtre,
rien d'y fait...
| >> | >> Ce qui m'a mis la puce à l'oreille est le nom de la
constante:
| >> SC_SIZE | >> | >> Pourquoi size quand on veut virer le close? | >> -- | >> François Picalausa (MVP VB) | >> FAQ VB : http://faq.vb.free.fr | >> MSDN : http://msdn.microsoft.com | >> | >> | >> Bismark Prods wrote: | >>> Sans doute, mais de toutes les façons, j'ai
également une facon qui
| >>> marche ! mais c'est dans l'exemple fourni par API-
Guide que
| >>> j'aimerais comprendre ce qui cloche ... | >>> | >>> Si tu avais lu ma question tu saurais ce que j'ai
| >>>> Bonjour, | >>>> | >>>> Dans la FAQ VB il y à un exemple qui fonctionne. | >>>> | >>>> Cordialement | >>>> | >>>> Stéphane Maillard | >>>> | >>>> "Bismark Prods" a écrit dans
le message de
| >>> news: | >>>>> Hello, | >>>>> | >>>>> Je voulais grisé la croix en haut a droit d'une
fenêtre, alors
| >>>>> j'ai | >>>>> pris cet exemple chez API-guide et il marche
pas ... vous avez une
| >>>>> idée pourquoi ? | >>>>> | >>>>> 'Example by Josip Pejakoviæ () | >>>>> 'Visit his homepage at http://jp.averi.hr | >>>>> 'This is example how to disable resize form at
the run time.
| >>>>> Private Declare Function GetSystemMenu
Lib "user32" (ByVal hwnd As
| >>>>> Long, ByVal bRevert As Long) As Long | >>>>> Private Declare Function DeleteMenu Lib "user32"
(ByVal hMenu As
| >>>>> Long, ByVal nPosition As Long, ByVal wFlags As
Long) As Long
| >>>>> Const SC_SIZE = &HF000 | >>>>> Const MF_BYCOMMAND = &H0 | >>>>> Dim hMenu As Long | >>>>> Private Sub Form_Load() | >>>>> hMenu = GetSystemMenu(hwnd, 0) | >>>>> Call DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND) | >>>>> End Sub | >>>>> | >>>>> Merci | |
.
Bismark Prods
Ah ben voila une bonne réponse ! merci infiniment !
"Sundowne" a écrit dans le message de news:
'Jour J'utilise la sub suivante dans tous les cas et sans PB Attention à un point précis qui explique ton pb apparent : Selon le type de fenêtre , l'item à enlever n'est pas toujours à la même position. C'est pourquoi j'utilise un partamétre NB qui indique le nb d'item à
enlever
en partant du bas du menu.
Public Sub Remove_CloseButton(F As Form, byval NB As Integer) Dim hSysMenu As Long Dim nCnt As Long Dim K As Integer
'Nb indique le Nombre de men à enlever en partant du bas
' Get handle to our form's system menu ' (Restore, Maximize, Move, close etc.) hSysMenu = GetSystemMenu(F.hwnd, False)
If hSysMenu Then ' Get System menu's menu count nCnt = GetMenuItemCount(hSysMenu) If nCnt Then For K = 1 To NB RemoveMenu hSysMenu, nCnt - K,
MF_BYPOSITION
Or MF_REMOVE 'suivant Next K DrawMenuBar F.hwnd End If End If End Sub
"Bismark Prods" a écrit dans le message de news: > Hello, > > Je voulais grisé la croix en haut a droit d'une fenêtre, alors j'ai pris cet > exemple chez API-guide et il marche pas ... vous avez une idée pourquoi
?
> > 'Example by Josip Pejakoviæ () > 'Visit his homepage at http://jp.averi.hr > 'This is example how to disable resize form at the run time. > Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, > ByVal bRevert As Long) As Long > Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal > nPosition As Long, ByVal wFlags As Long) As Long > Const SC_SIZE = &HF000 > Const MF_BYCOMMAND = &H0 > Dim hMenu As Long > Private Sub Form_Load() > hMenu = GetSystemMenu(hwnd, 0) > Call DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND) > End Sub > > Merci > >
Ah ben voila une bonne réponse ! merci infiniment !
"Sundowne" <sundowne@wanadoo.fr> a écrit dans le message de
news:uDODRa6PDHA.704@tk2msftngp13.phx.gbl...
'Jour
J'utilise la sub suivante dans tous les cas et sans PB
Attention à un point précis qui explique ton pb apparent : Selon le
type de fenêtre , l'item à enlever n'est pas toujours à la même position.
C'est pourquoi j'utilise un partamétre NB qui indique le nb d'item à
enlever
en partant du bas du menu.
Public Sub Remove_CloseButton(F As Form, byval NB As Integer)
Dim hSysMenu As Long
Dim nCnt As Long
Dim K As Integer
'Nb indique le Nombre de men à enlever en partant du bas
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(F.hwnd, False)
If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
For K = 1 To NB
RemoveMenu hSysMenu, nCnt - K,
MF_BYPOSITION
Or MF_REMOVE 'suivant
Next K
DrawMenuBar F.hwnd
End If
End If
End Sub
"Bismark Prods" <xanaia@urbanet.ch> a écrit dans le message de
news:OCOjuL0PDHA.1624@tk2msftngp13.phx.gbl...
> Hello,
>
> Je voulais grisé la croix en haut a droit d'une fenêtre, alors j'ai pris
cet
> exemple chez API-guide et il marche pas ... vous avez une idée pourquoi
?
>
> 'Example by Josip Pejakoviæ (jpejakovic@yahoo.com)
> 'Visit his homepage at http://jp.averi.hr
> 'This is example how to disable resize form at the run time.
> Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long,
> ByVal bRevert As Long) As Long
> Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long,
ByVal
> nPosition As Long, ByVal wFlags As Long) As Long
> Const SC_SIZE = &HF000
> Const MF_BYCOMMAND = &H0
> Dim hMenu As Long
> Private Sub Form_Load()
> hMenu = GetSystemMenu(hwnd, 0)
> Call DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND)
> End Sub
>
> Merci
>
>
Ah ben voila une bonne réponse ! merci infiniment !
"Sundowne" a écrit dans le message de news:
'Jour J'utilise la sub suivante dans tous les cas et sans PB Attention à un point précis qui explique ton pb apparent : Selon le type de fenêtre , l'item à enlever n'est pas toujours à la même position. C'est pourquoi j'utilise un partamétre NB qui indique le nb d'item à
enlever
en partant du bas du menu.
Public Sub Remove_CloseButton(F As Form, byval NB As Integer) Dim hSysMenu As Long Dim nCnt As Long Dim K As Integer
'Nb indique le Nombre de men à enlever en partant du bas
' Get handle to our form's system menu ' (Restore, Maximize, Move, close etc.) hSysMenu = GetSystemMenu(F.hwnd, False)
If hSysMenu Then ' Get System menu's menu count nCnt = GetMenuItemCount(hSysMenu) If nCnt Then For K = 1 To NB RemoveMenu hSysMenu, nCnt - K,
MF_BYPOSITION
Or MF_REMOVE 'suivant Next K DrawMenuBar F.hwnd End If End If End Sub
"Bismark Prods" a écrit dans le message de news: > Hello, > > Je voulais grisé la croix en haut a droit d'une fenêtre, alors j'ai pris cet > exemple chez API-guide et il marche pas ... vous avez une idée pourquoi
?
> > 'Example by Josip Pejakoviæ () > 'Visit his homepage at http://jp.averi.hr > 'This is example how to disable resize form at the run time. > Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, > ByVal bRevert As Long) As Long > Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal > nPosition As Long, ByVal wFlags As Long) As Long > Const SC_SIZE = &HF000 > Const MF_BYCOMMAND = &H0 > Dim hMenu As Long > Private Sub Form_Load() > hMenu = GetSystemMenu(hwnd, 0) > Call DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND) > End Sub > > Merci > >
