すみません、送信ボタンを押してしまいました。
もう一度、書かせてください。
①Private Sub メニューバー１_Click()
Msgbox "ABC"
End Sub
'---------------------------------------------------
②Private Sub Toolbar1_ButtonClick(ByVal Button As _ MSComctlLib.Button)
Select Case Button.Key
Case "コマンドボタン1"
MsgBox "ABC"
End Select
End Sub
'---------------------------------------------------
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "コマンドボタン1"
メニューバー１_Click・・・・③
End Select
End Sub
苦しんでいる事は、ツールバーのあるボタンをＣＬＩＣＫした時に
メニューバーの①と同じことをしたいのですが、②のように書きたくないのです。と言うのは、①のようなメニューバーの文が複数ありまして
②に、また同じ事を書くとなるとすごい膨大な量になってしまうのです。
例えば③のような構文が理想なのですが、誰か教えて下さい。
初心も初心なので、どうぞよろしく御願い致します。
んん？何がわからないのか、よくわかりませんけど・・・。
そのまま3の方法でやればいいじゃないですか。
何か問題でも？
(ちなみに、丸つき文字は機種依存文字なので、インターネットでは使わないで下さいね)
あれ、自分の例えを実行していませんでした。（恥ずかしいー）
とにかく、すみませんでした。^_^;
また、よろしく御願いします。返事、ありがとうございました。