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
christophe-pasde
Bonjour,
houbahop2003 a écrit :
Bonjour, existe t'il en vb une collection de menus ( barre de menus) qui permette de faire
for each menu in COLLECTTIONMENUS menu.visibleúlse next menu
dim ctl as control
For each ctl in ME '(ou form1 ou mdiform1)
if tyname(ctl) = "Menu" then
ctl.visibleúlse
end if
next ctl
A noter que tu peux aussi utiliser la propriété index du menu (si elle est définie) pour les différencier.
Tu peux aussi creer ta collection MyMenus que tu remplis au load :
For each ctl in ME '(ou form1 ou mdiform1)
if tyname(ctl) = "Menu" then
Call ObjMyMenus.add (menu,menu.index)
end if
next ctl
Ensuite chaque fois que tu veux masquer un groupe de menu
For each objmenu in ObjMyMenus '( ou Me ou form1 ou mdiform1)
'en faisant simple tu peux aussi ajouter un select case 'objmenu.index le mieux à mon sens et de créer une collection 'par groupe de comportement identiques
objmenu.visibleúlse
next ctl
Christophe
Bonjour,
houbahop2003 a écrit :
Bonjour, existe t'il en vb une collection de menus ( barre de menus)
qui permette de faire
for each menu in COLLECTTIONMENUS
menu.visibleúlse
next menu
dim ctl as control
For each ctl in ME '(ou form1 ou mdiform1)
if tyname(ctl) = "Menu" then
ctl.visibleúlse
end if
next ctl
A noter que tu peux aussi utiliser la propriété index du menu (si elle
est définie) pour les différencier.
Tu peux aussi creer ta collection MyMenus que tu remplis au load :
For each ctl in ME '(ou form1 ou mdiform1)
if tyname(ctl) = "Menu" then
Call ObjMyMenus.add (menu,menu.index)
end if
next ctl
Ensuite chaque fois que tu veux masquer un groupe de menu
For each objmenu in ObjMyMenus '( ou Me ou form1 ou mdiform1)
'en faisant simple tu peux aussi ajouter un select case
'objmenu.index le mieux à mon sens et de créer une collection 'par
groupe de comportement identiques
Bonjour, existe t'il en vb une collection de menus ( barre de menus) qui permette de faire
for each menu in COLLECTTIONMENUS menu.visibleúlse next menu
dim ctl as control
For each ctl in ME '(ou form1 ou mdiform1)
if tyname(ctl) = "Menu" then
ctl.visibleúlse
end if
next ctl
A noter que tu peux aussi utiliser la propriété index du menu (si elle est définie) pour les différencier.
Tu peux aussi creer ta collection MyMenus que tu remplis au load :
For each ctl in ME '(ou form1 ou mdiform1)
if tyname(ctl) = "Menu" then
Call ObjMyMenus.add (menu,menu.index)
end if
next ctl
Ensuite chaque fois que tu veux masquer un groupe de menu
For each objmenu in ObjMyMenus '( ou Me ou form1 ou mdiform1)
'en faisant simple tu peux aussi ajouter un select case 'objmenu.index le mieux à mon sens et de créer une collection 'par groupe de comportement identiques
objmenu.visibleúlse
next ctl
Christophe
houbahop2003
merci !
"christophe-pasde<> @wanadoo.fr>" <"christophe-pasde<> a écrit dans le message de news: cie2j7$6m9$
Bonjour,
houbahop2003 a écrit :
> Bonjour, existe t'il en vb une collection de menus ( barre de menus) > qui permette de faire > > for each menu in COLLECTTIONMENUS > menu.visibleúlse > next menu
dim ctl as control
For each ctl in ME '(ou form1 ou mdiform1)
if tyname(ctl) = "Menu" then
ctl.visibleúlse
end if
next ctl
A noter que tu peux aussi utiliser la propriété index du menu (si elle est définie) pour les différencier.
Tu peux aussi creer ta collection MyMenus que tu remplis au load :
For each ctl in ME '(ou form1 ou mdiform1)
if tyname(ctl) = "Menu" then
Call ObjMyMenus.add (menu,menu.index)
end if
next ctl
Ensuite chaque fois que tu veux masquer un groupe de menu
For each objmenu in ObjMyMenus '( ou Me ou form1 ou mdiform1)
'en faisant simple tu peux aussi ajouter un select case 'objmenu.index le mieux à mon sens et de créer une collection 'par groupe de comportement identiques
objmenu.visibleúlse
next ctl
Christophe
merci !
"christophe-pasde<> @wanadoo.fr>" <"christophe-pasde<> a écrit dans le
message de news: cie2j7$6m9$1@news-reader5.wanadoo.fr...
Bonjour,
houbahop2003 a écrit :
> Bonjour, existe t'il en vb une collection de menus ( barre de menus)
> qui permette de faire
>
> for each menu in COLLECTTIONMENUS
> menu.visibleúlse
> next menu
dim ctl as control
For each ctl in ME '(ou form1 ou mdiform1)
if tyname(ctl) = "Menu" then
ctl.visibleúlse
end if
next ctl
A noter que tu peux aussi utiliser la propriété index du menu (si elle
est définie) pour les différencier.
Tu peux aussi creer ta collection MyMenus que tu remplis au load :
For each ctl in ME '(ou form1 ou mdiform1)
if tyname(ctl) = "Menu" then
Call ObjMyMenus.add (menu,menu.index)
end if
next ctl
Ensuite chaque fois que tu veux masquer un groupe de menu
For each objmenu in ObjMyMenus '( ou Me ou form1 ou mdiform1)
'en faisant simple tu peux aussi ajouter un select case
'objmenu.index le mieux à mon sens et de créer une collection 'par
groupe de comportement identiques
"christophe-pasde<> @wanadoo.fr>" <"christophe-pasde<> a écrit dans le message de news: cie2j7$6m9$
Bonjour,
houbahop2003 a écrit :
> Bonjour, existe t'il en vb une collection de menus ( barre de menus) > qui permette de faire > > for each menu in COLLECTTIONMENUS > menu.visibleúlse > next menu
dim ctl as control
For each ctl in ME '(ou form1 ou mdiform1)
if tyname(ctl) = "Menu" then
ctl.visibleúlse
end if
next ctl
A noter que tu peux aussi utiliser la propriété index du menu (si elle est définie) pour les différencier.
Tu peux aussi creer ta collection MyMenus que tu remplis au load :
For each ctl in ME '(ou form1 ou mdiform1)
if tyname(ctl) = "Menu" then
Call ObjMyMenus.add (menu,menu.index)
end if
next ctl
Ensuite chaque fois que tu veux masquer un groupe de menu
For each objmenu in ObjMyMenus '( ou Me ou form1 ou mdiform1)
'en faisant simple tu peux aussi ajouter un select case 'objmenu.index le mieux à mon sens et de créer une collection 'par groupe de comportement identiques
