Checked プロパティ
Checkedは、メニュー・オプションが選択されていることを示します。
Checkedプロパティを使用して、メニュー・オプションが選択されたことを視覚的に示します。
例えば、ツールバーを表示するメニュー・アイテムがある場合、ツールバーが表示される時はこのアイテムのCheckedプロパティをTrueに、表示されない時はFalseにします。
メニュー・アイテムをRadioItem (True) と指定すると、ラジオ・ボタンはCheckedプロパティがTrueの時のみ表示されます。
以下のコードをコピーして貼り付け、メニュー・アイテムのChecked, RadioItemおよびGroupIndexプロパティがどのような働きをするか確認します。
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Caption('Menus') Clientheight(169) Clientwidth(170) Height(215) Left(565) Menubar(#MBAR_1) Top(148) Width(178)
Define_Com Class(#PRIM_MBAR) Name(#MBAR_1) Parent(#COM_OWNER)
Define_Com Class(#PRIM_MITM) Name(#MITM_1) Caption('Menu 1') Displayposition(1) Parent(#MBAR_1)
Define_Com Class(#PRIM_SMNU) Name(#SMNU_1) Parent(#MITM_1)
Define_Com Class(#PRIM_MITM) Name(#MITM_2) Caption('Small') Checked(True) Displayposition(1) Groupindex(1) Parent(#SMNU_1) Radioitem(True)
Define_Com Class(#PRIM_MITM) Name(#MITM_3) Caption('Large') Displayposition(2) Groupindex(1) Parent(#SMNU_1) Radioitem(True)
Define_Com Class(#PRIM_MITM) Name(#MITM_5) Caption('Menu 2') Displayposition(2) Parent(#MBAR_1)
Define_Com Class(#PRIM_SMNU) Name(#SMNU_2) Parent(#MITM_5)
Define_Com Class(#PRIM_MITM) Name(#MITM_6) Caption('Show picture') Checked(True) Displayposition(1) Parent(#SMNU_2)
Define_Com Class(#PRIM_IMGE) Name(#IMGE_1) Autosize(False) Displayposition(1) Image(#VB_PHONE) Imageheight(16) Imagewidth(16) Left(64) Parent(#COM_OWNER) Tabposition(1) Top(56)
EVTROUTINE HANDLING(#MITM_2.Click #MITM_3.Click)
If Cond(#mitm_2.checked *eq true)
Set Com(#IMGE_1) Autosize(False)
else
Set Com(#IMGE_1) Autosize(True)
ENDIF
ENDROUTINE
EVTROUTINE HANDLING(#MITM_6.Click)
If Cond(#mitm_6.checked *eq true)
Set Com(#MITM_6) Checked(False)
Set Com(#IMGE_1) Visible(False)
else
Set Com(#MITM_6) Checked(True)
Set Com(#IMGE_1) Visible(True)
ENDIF
ENDROUTINE
End_Com