• ベストアンサー

ラベルを表示したり非表示にしたりしたい

内容 １メニューから「ラベル１を非表示にする」をクリック ２ラベル１を非表示 ３ラベル１を非表示にするを表示するに変更（メニュー名変更） ４（クリックしたら表示） ５表示するを非表示にするに変更（メニュー名変更） me.caption ではうまく出来ないようです・・・。

質問者が選んだベストアンサー

  • ベストアンサー
  • TAGOSAKU7
  • ベストアンサー率65% (276/422)
回答No.3

メニューの名前は[mnuTest]という名前にしています。 Private Sub mnuTest_Click() 　　Label1.Visible = Not Label1.Visible 　　If Label1.Visible Then 　　　　mnuTest.Caption = "非表示にする" 　　Else 　　　　mnuTest.Caption = "表示する" 　　End If End Sub

hiyoruki
質問者

お礼

ご回答ありがとうございました。 meではだめのようですね・・・。 なぜか気になるので　新しく質問を投稿してみます。

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (3)

  • MovingWalk
  • ベストアンサー率43% (2233/5098)
回答No.4

＃２です。ご丁寧にどうもです。 >私が知りたいのはメニューからの実行の話です。 >（commandbuttonを使う方法なら分かります） そこまでわかっていてどうしてできないのかな？？？ ラベル１.Visible　プロパティによって表示や動作を変えるのが そんなに難しいのでしょうか？

hiyoruki
質問者

お礼

ご回答ありがとうございました。 メニューの名前を変えたかったのです。 ↓のかたの方法で出来ました。

全文を見る
すると、全ての回答が全文表示されます。
  • MovingWalk
  • ベストアンサー率43% (2233/5098)
回答No.2

そのコントロールのプロパティのVisibleをTrue/Falseにすれば表示／非表示に なります。

hiyoruki
質問者

補足

ご回答ありがとうございます。 私が知りたいのはメニューからの実行の話です。 （commandbuttonを使う方法なら分かります）

全文を見る
すると、全ての回答が全文表示されます。
  • cip
  • ベストアンサー率21% (27/127)
回答No.1

メニューを２通り作っておいて、Visibleプロパティを変えたらどうでしょうか。 「メニュー名変更」というより「２つのメニューを排他的に表示」ですね。

hiyoruki
質問者

お礼

ご回答ありがとうございました。 できないようならそうします

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • Access レポートでのラベルの表示について

    こんにちは。 Access2003,windowsXPです。 レポート機能で、ラベルにテーブルのデータを表示させているのですが、指定したテーブルが空白の場合、エラーが出ます。 ＮＵＬＬ値でもエラーが出ないように設定したいのですが、方法はありますか？ 参考までに（ＶＢＡ） Private Sub Report_Open(Cancel As Integer) 　 Me!ラベル133.Caption = DLookup("テーマNo", "BMM", "ID = 1") Me!ラベル134.Caption = DLookup("テーマ名称", "BMM", "ID = 1") Me!ラベル135.Caption = DLookup("請求額", "BMM", "ID = 1") End Sub

  • レポートのラベルなどの非表示は可能か？

    アクセス2003 SQLServer2000 WindowsXP レポートのラベルなどを条件によって非表示にしたいと思います。 フォームのコントロールは me.コントロール名.visible = false で非表示にできるのですが、 レポートのページフォーマットイベントで me.ラベル名.visible = false としても、非表示になりません。 ラベルのプロパティーには「可視」があるので可能と思っているのですが、 間違いでしょうか。 どなたかご教授お願いいたします。 プロパティーの英語表示の仕方も教えていただければ助かります

  • 処理状況をラベルに表示させる方法

    お世話になります。 ユーザーフォームから起動するマクロで、処理の途中経過をフォーム内 のラベルに表示させようとしました。 Ａ列に支店名が入っていて、支店名順にソートされています。 現在どの支店の処理を行っているかラベルに表示させようと以下のような コードを書きました。 Sub CommandButton1_Click() Dim rIdx As Long rIdx = 1 Do Until Cells(rIdx + 1, 1).Value = "" rIdx = rIdx + 1 If Cells(rIdx, 1).Value <> Cells(rIdx - 1, 1).Value Then Label1.Caption = Cells(rIdx, 1).Value End If '※以下、更新処理 Loop End Sub しかし、処理中は表示されず、処理終了後に最後の行の支店名が表示 されるだけです。 ラベルのCaptionを変更した後、強制的にフォームを更新表示させるよ うな方法はありますか。 よろしくお願いいたします。

  • Access ラベルの通貨スタイルの設定について

    こんにちは。 Access2003,windowsXPを使っています。 アクセスのレポート機能で、テーブルを指定して、ラベルに表示しています。 が、数字が枠の左によってしまいます。 また、テーブルで通貨形式にしても、レポートでは、通貨になりません。 ぜひ、使い方を教えて下さい。 参考までに（ＶＢＡ） Private Sub Report_Open(Cancel As Integer) Me!ラベル133.Caption = DLookup("テーマNo", "BMM", "ID = 1")&"" Me!ラベル134.Caption = DLookup("テーマ名称", "BMM", "ID = 1")&"" Me!ラベル135.Caption = DLookup("請求額", "BMM", "ID = 1")&"" End Sub

  • Gmail のラベル名を変更した際、Thunderbird に反映させるやり方を教えてください。

    こんにちは 初めて質問させていただきます kanapyon70 と申します。 どうぞよろしくお願いいたします。 質問内容なんですが、 ・普段 Thunderbird で Gmail を見ています。 ・ラベルを変更したくなってブラウザーで Gmail にログインしてラベル名とフィルター設定を変更しました。 ・Thunderbird では変更したラベル名が反映されず、古いラベル名　が表示されます。またそのフォルダをクリックすると Unknown Mailbox というエラーメッセージが表示されます。 ・Gmail で変更した最新のラベル名称を Thunderbird に反映させるやり方がありましたら教えてください。アカウントをゼロから再設定しないとだめでしょうか・・・？ どうぞよろしくお願いいたします。

  • VBA:ユーザフォームのラベルの指定の仕方教えてください。

    　今、ユーザフォームに２０個のラベルがあります。それぞれのラベルは、条件によりラベルの表示内容が変更します。そこで、ラベルの表示変更が必要なときにすぐに変更できるようにしたいと考えています。しかし、例えば以下のようなコードを作成するとエラーになり困っています。 　Label(i)で、iの番号によりラベルが呼び出されないだろうかと自分なりに作りましたがダメでした。以下のようなループ文中で特定のラベルを呼び出し処理することは不可能でしょうか？ 　やはり、UserForm1.Label3などのように番号をきちんと書かないとダメでしょうか？本当は、ラベルが82個ありその一つ一つにコードを割り当てるのが大変です。また、きれいなコードで書きたいと思うからです。宜しければ、ご教授願います。 -------------------------------------------- Sub セルの値をラベル表示する() For i = 1 To 20 With UserForm1.Label(i) .Caption = Cells(1, i) End With Next i End Sub

  • visual basic ラベル等の表示順序(最前面に表示する)の変更について

    修士論文の研究結果を反映させるプログラムを作るために、最近visual basicを勉強し始めて、ただ今プログラムを作成中なのですが、 labelやtextboxを表示させる順序の変更ができずに困っています。 具体的に言うと、 ボタン1を押すとラベル1が表示される ボタン2を押すとラベル2が表示される ・ ・ ・ といった内容なのです。それで、それぞれのラベルを少しずらした状態で重ねて表示して、最後に呼び出したラベル等を最前面に表示したのですが、どうしても登録した順にしか表示されません。 (例えば、ボタン1→ラベル1、ボタン2→ラベル2とした場合で、フォームにラベル1をまず作成し、次にラベル2をその上に少しずらして作成したとします、そうした場合にボタン2の処理をした後にボタン1の処理を行うと、ラベル1がラベル2の下に隠れてしまいます。) そこで、最後に操作したボタンの処理で表示されるラベルを最前面に表示する、 もしくは、ラベルをクリックすると最前面に表示させたとした場合には、どのようなプログラムを書けばよいのでしょうか？ 上手くまとまっていなくてすみません。 修論の提出が来月半ばと少し焦っています。 どうぞ宜しくお願いいたします。

  • ラベルにはVBAで改行した値を表示できない？

    アクセス２００７です。 フォームに、ラベルを配置して、適当に「test」と入力し、 フォームの開く時イベントで ************************************** Private Sub Form_Open(Cancel As Integer) Me.ラベル0.Caption = "a" & Chr(10) & "b" End Sub ************************************** としました。 そしてVBAコードを保存して、フォームを開くと、 ラベルには、「ab」と横に表示されてしまいます。 そうではなく a b と、縦に表示はできないのでしょうか？ 手動でデザインフォームで 「a」を入力した後にCtrl+Enterを押し「b」を入力し（画像参照）、イベントを実行させずにフォームビューで表示すると a b になります。 VBAコードでも改行させて表示する方法をよろしくお願いします。

  • ラベル内の文字（Caption）を縦表示にする方法

    フォームに作成したラベルの文字（Caption） を縦に表示したいのですが、 お分かりの方がいらしたら、書き込み願います。 あと考えた方法として、 ラベルに一文字ずつ記入して縦に並べる、 と言う方法も考えたのですが、 これですとレイアウト編集で手間がかかるので、 一文字ずつ作成したラベルを結合して、 （イメージとして、Excelの図形結合みたいな感じ？） 一つのラベルにする、と言う方法は無いでしょうか？

  • 【ACCESS】！と．の違いは？

    VBAの初歩的な質問だと思いますが、 ヘルプを読んでもイマイチ理解できません。 !と.の違いって何でしょうか？ 例えば、 Me．Filter = 条件 としても、 Me！Filter = 条件 としても、 抽出される結果は同じですよね？ また、 Me．ラベル.Caption = "ホニャララ" としても、 Me！ラベル.Caption = "ホニャララ" としても、 「ラベル」にはホニャララと表示されます。 同じ作業でも参考書によってMe！を使っている場合とMe．を使っている場合など、参考書によって違っているので悩んでいます。 ！と．では、どっちを使う方が良いのでしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する