手抜きﾏｸﾛ起動用ﾒﾆｭｰ3

「Cat_Macro_Menu_Model.bas」の宣言ｾｸｼｮﾝ部に幾つか定数を
設けています。お好みで変更してください。

'Cat_Macro_Menu_Model.bas
'using-'KCL0.0.12'
'ﾀｸﾞを追記したﾓｼﾞｭｰﾙをﾌﾟﾛｼﾞｪｸﾄに追加するだけで
'自動的にﾎﾞﾀﾝを追加します

Const FormTitle = "Macro"

'----- ﾒﾆｭｰの仕様 お好みで ---------------------------------------

'ﾒﾆｭｰの表示方法
'True-ﾓｰﾀﾞﾚｽ表示  False-ﾓｰﾀﾞﾙ表示
Private Const MENU_SHOW_TYPE = True

'ﾒﾆｭｰを閉じるﾀｲﾐﾝｸﾞ
'True-ﾌｫｰﾑのXﾎﾞﾀﾝを押して閉じます False-ﾎﾞﾀﾝｸﾘｯｸ後閉じます
Private Const MENU_HIDE_TYPE = True

'ﾒﾆｭｰのﾏﾙﾁﾍﾟｰｼﾞの設定
'変更する際は
'{ ﾀｸﾞのｸﾞﾙｰﾌﾟ番号 : ﾍﾟｰｼﾞのﾀｲﾄﾙ文字 }
'の状態にして下さい
Private Const GROUP_NUMBER_CAPTION = _
            "{ 1 : Part }" & _
            "{11 : Assy }" & _
            "{21 : Draw }" & _
            "{51 : Other }"
'-----------------------------------------------------------------
・・・

・「MENU_SHOW_TYPE」
　　ﾒﾆｭｰの表示で、ﾓｰﾀﾞﾚｽかﾓｰﾀﾞﾙかをBoolean型で切り替えられます。

・「MENU_HIDE_TYPE」
　　ﾒﾆｭｰ終了ﾀｲﾐﾝｸﾞですが、Upしたﾃﾞｰﾀのｺﾒﾝﾄ間違えていました･･。
　　正しくは上記の状態で、Boolean型で切り替えられます。
　　ﾎﾞﾀﾝｸﾘｯｸ後に終了させるか、表示しっぱなしかです。

　　実質、「ﾓｰﾀﾞﾚｽ + 表示しっぱなし」　か　「ﾓｰﾀﾞﾙ + ｸﾘｯｸ後終了」
　　に、なるのだろうと思います。

・「GROUP_NUMBER_CAPTION」
　　ﾏﾙﾁﾍﾟｰｼﾞの分類と表示させる文字になります。
　　挿入する標準ﾓｼﾞｭｰﾙの　{Gp}タグは、こちらの番号にない場合は
　　ﾎﾞﾀﾝが表示されません。

続いて、ﾌｫｰﾑｺｰﾄﾞの「Cat_Macro_Menu_View.frm」の宣言ｾｸｼｮﾝ部です。
ﾌｫｰﾑのﾚｲｱｳﾄ等はこちらの定数で、若干調整が可能です。
(環境によってはﾎﾞﾀﾝの文字が途切れる等あるかもしれないため･･･）)

'Cat_Macro_Menu_View.frm
'ﾒﾆｭｰのUIです。

'ﾌｫｰﾑ
Private FrmMargin As Variant '上,下,左,右のﾎﾞﾀﾝ配置のﾏｰｼﾞﾝ
Private Const ADJUST_F_W = 13 'ﾌｫｰﾑの左右の調整幅
Private Const ADJUST_F_H = 30 'ﾌｫｰﾑの上下の調整幅

'ﾏﾙﾁﾍﾟｰｼﾞ
Private Const ADJUST_M_W = 5 'ﾏﾙﾁﾍﾟｰｼﾞの左右の調整幅
Private Const ADJUST_M_H = 18 'ﾏﾙﾁﾍﾟｰｼﾞの上下の調整幅

'ﾎﾞﾀﾝ
Private Const BTN_W = 70 'ﾎﾞﾀﾝの幅-ﾌｫｰﾑの最低幅以下にすると余白が増える
Private Const BTN_H = 20 'ﾎﾞﾀﾝ1個の高さ

・・・