• 締切済み

メニューバーの使用可不可の

初めて投稿いいたします。VB初心者です。 VB6.0(SP6)で、ちょっとしたテストアプリを作成中です。 メインフォーム(MDI)のメニューバーとツールバーコントロールの使用可能(不可)を切り替える方法を教えてください。 子フォームのボタンをクリックした際、内部処理実行中に、上記コントロールを一時的に使用不可とさせたい次第です。 現状は、下記のような方法で実現させていますが、あまりスマートな方法とは言えないように思います。 -----禁止させる場合-------------------------------- Private Sub CommandDisable_Click() 'メニューバー禁止 MDIForm1.mnuFile.Enabled = False   'ツールバーボタン禁止 MDIForm1.Toolbar1.Buttons(1).Enabled = False End Sub -------------------------------------------------- -----禁止を解除させる場合-------------------------- Private Sub CommandEnable_Click() 'メニューバー禁止 MDIForm1.mnuFile.Enabled = True   'ツールバーボタン禁止 MDIForm1.Toolbar1.Buttons(1).Enabled = True End Sub -------------------------------------------------- 上記の方法で、メニューバーまたはツールバーともにグレイ表記となり、割り当てた機能が呼び出されることを防ぐことは実現出来ています。 しかし、メニューバー、ボタンともに、クリックだけは出来てしまいます。 どなたか、クリックも含めて、使用不可とさせる方法を教えてください。 よろしくお願いします。

みんなの回答

回答No.1

いや、一般的に動作としてはそれでいいんじゃないですか? ユーザーは戸惑うかもしれませんが非表示にしちゃうとか。。。

khide1202
質問者

お礼

temtecomai2さん、ありがとうございます。 やはり、非表示にするほかないようですね。 ありがとうございました。

関連するQ&A

  • firefoxのメニューバーに追加

    firefoxでメニューバーに(ナビゲーションツールバーの方ではありません) プロファイルのショーカットを追加したいのですが、テキストだけのボタンを 追加する方法は無いでしょうか? toolbar buttonsのアドオンで、メニューバーに追加すると、 アイコンの表示だけブラウスの面積を圧迫してしまいます。 しかし、ナビゲーションバーにはアイコンとテキストを両方表示させてる状態 なので、「テキストのみ」の表示にすることはしたくありません。 私が調べた限りでは分かりませんが、スタイルシートなど、メニューバーに テキストだけのボタンを追加することはできますでしょうか?

  • メニューバーを非表示にしたい

    アクセス2007です。 メニューバー?リボンと言うのでしょうか? その部分を非表示にするにはどうすればいいですか? 標準モジュールに Sub test() CommandBars("Menu Bar").Enabled = False End Sub をしてみましたが何も起きません。 ご教授よろしくお願いします。

  • メニューバーを非表示に 2007

    エクセル2007です。 Application.CommandBars("Worksheet Menu Bar").Enabled = False をしてもメニューバーが非表示になりません。 画像の部分を非表示にしたいです。 そもそもこれはメニューバーではないのでしょうか?

  • Excel 数式バーを非表示にしたい(VBA)

    ツール-オプション-表示-数式バーのチェックを外せば 数式バーを非表示にできますが、VBAでやりたいと思います。 次の様に記述してみましたが、書式バーの「数式バー(F)」のボタンが非表示になるだけで数式バー自体は非表示になりません。 Private Sub Workbook_Open() Application.CommandBars("formatting").Controls(23).Visible = False End Sub 次の様に記述してみても今度は「数式バー(F)」のボタンが操作不可になるだけで数式バー自体は非表示になりません。 Private Sub Workbook_Open() Application.CommandBars("formatting").Controls(23).Enabled = False End Sub 他にも試すのですが、エラーになったりで答えに辿り着けず・・ どなたかヒントだけでもお願いします。

  • VBA2003: 自作メニューバーを操作したい

    Application.CommandBars("Worksheet Menu Bar").Controls.Add このメソッドを使って Excelのメニューバーに自作メニューを追加しました。 メニューは階層構造になっています。 Excelのシート名によって、このメニューに定義したサブメニューやコマンドを Enabled = True/False で表示制御したいのですが、その方法がわかりません。 よろしくお願いします。

  • エクセル2003で作成したVBAを2007で使用したい

    エクセル2003で下記のようなVBAを作成していました。 作成した物を使用者が印刷設定を変更できないように ブックを開くと同時に印刷ボタンなどを非表示にしていたのですが・・・ 2007でも使用出来るようにしたいと思ったのですが 2007ではこのままではエラーが出てしまうようです。 2007はまったく扱ったことがないのでどのようにすればよいかわかりません。 どなたかご教授いただけたらと思います。 Private Sub Workbook_Open() Application.DisplayStatusBar = False 'ステータスバー非表示 'ブックを開く時ページ設定と印刷を非表示 On Error Resume Next Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("ページ設定(&U)...").Enabled = False Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("印刷(&P)...").Enabled = False Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("印刷プレビュー(&V)").Enabled = False Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("印刷範囲(&T)").Enabled = False Application.CommandBars("Standard").Enabled = False End Sub

  • 更新の許可(AllowEdits)について

    Access2013を使用しています。 フォームのプロパティ →更新の許可 いいえ VBAに以下のコードを記述しました。 Private Sub 更新許可_Click() Me.AllowEdits = True End Sub Private Sub 更新不可_Click() Me.AllowEdits = False End Sub 更新許可ボタンをクリックしたとき、問題なく更新出来るようになるのですが 更新不可ボタンをクリックしても、更新出来てしまいます。 何処に原因があるのでしょうか。 なお、True→ -1 、False→0に書き換えてみましたが変化が有りませんでした。 出来ましたら、具体策をお願い致します。

  • VB6でスロットを作成したい

    VB6歴2ヶ月の初心者です。 フォーム上に ラベルコントロールが三つ コマンドボタンが二つ タイマーコントロールが一つ あります。 タイマーのプロパティは Enabled False Interval 10 です。 スロットを作成したいのですが、 ボタン1を一回押すごとに左からスロットが回り、 最後にボタン2で動きを止めたいのです。 一応自分でも書いてみたのですが、ここで行き詰まりました。 ウワァァァァァァヽ(`Д´)ノァァァァァァン! Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Dim slot As Integer slot = Int(Rnd(1) * 9 + 1) Label1.Caption = slot End Sub 思い通りに動かすにはどんなコードにしたらいいですか?

  • Access レポートプレビュー時に右クリックを禁止させる方法

    http://okwave.jp/qa3511238.html ↑で印刷を不可にさせる質問をしたものです。 レポートプレビュー時、メニューバーを消す方法は調べました。 以下、参考までに Application.CommandBars("Menu Bar").Enabled = True Application.SetOption "Built-In Toolbars Available", False あとは右クリックを禁止させれば印刷できなくなると思います。 レポートプレビュー時、右クリックを禁止させる方法があれば教えていただけますでしょうか? よろしくお願いします。

  • フォルダウィンドウのメニューバー、ツールバーが消えてしまった

    Windows XP Professionalを使用しております。 先日、ふと気がついたらフォルダウィンドウの上部に表示されるはずの、メニューバー(ファイル、編集などのメニューを表示するバー)とツールバー(進む、戻るなどのボタンのバー)が消えてしまいました。 ツールバーが消えただけであれば、メニューバーの「表示」-「ツールバー」で問題は解決されるのですが、メニューバーが消えてしまっては対処のしようがありません。 ちなみに「スタートメニュー」の右クリックでエクスプローラを呼び出してフォルダを開いた場合は、きちんとメニューバーもツールバーも表示されています。 とりあえず「Alt+←→キー」で、「戻る、進むボタン」の代わりをさせていますが、いちいちマウスから手を離すのは具合が悪くてしかたありません。 おそらくレジストリの一部が破損もしくは書き変わってしまったことで、このような現象が起きてしまったのだと思うのですが、その方面にはさっぱり知識が足りず困っております。 どうぞよいお知恵をお貸しください。

専門家に質問してみよう