Optionbuttonを独立して使用するには

このQ&Aのポイント
  • OptionButtonをパソコンの電源ランプの様に単なる表示として使用することは可能でしょうか?
  • OptionButton1が非選択の状態でクリックしても選択の状態にならないようにすることはできるでしょうか?
  • OptionButton1及び2を同時に選択の状態にする方法はありますか?
回答を見る
  • ベストアンサー

Optionbuttonを独立して使用するには

さっそくですが 質問です 今回はOptionButtonをパソコンの電源ランプの様に 単なる表示として使用したいのですが可能でしょうか? OptionButtonをフォーム2つ貼り付けたとします (OptionButton1, OptionBUtton2) 通常ですと 画面上でOptionButton1をクリックすると OptionButton1が選択の状態になりOptionButton2が非選択 の状態になるかと思います この動作を次のようにできないでしょうか? 1 OptionButton1が非選択の状態でクリックしても 選択の状態にならない 2 OptionButton1及び2を同時に選択の状態にする よろしくお願いします 環境 WindowsXP SP2 VisualBasic6.0 SP6

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

  • ベストアンサー
  • dsuekichi
  • ベストアンサー率64% (171/265)
回答No.1

> 今回はOptionButtonをパソコンの電源ランプの様に > 単なる表示として使用したいのですが可能でしょうか? できないことはありませんけど・・・ 本当は、そういうトリッキーな事はしない方が・・・ > 1 OptionButton1が非選択の状態でクリックしても > 選択の状態にならない EnabledをFalseにすれば、選択状態を変更できません。 但し、直接EnabledをFalseにすると、色が淡色に変わってしまうので、 コンテナ(PictureBoxとか、Frame)の上に配置して、コンテナのEnabledをFalseにしてください。 > 2 OptionButton1及び2を同時に選択の状態にする OptionButtonの連動するグループは「コンテナ単位」です。 つまり、コンテナが違えば、連動しません。 Formに直に配置するのではなく、それぞれ別のコンテナ(PictureBoxとか、Frame)の上に配置してください。 つまり、1・2を両立するには、 例えば、 BorderStyleを「0」、Enabledを「False」にしたPictureBoxを2つ、Form上に配置して、 Oprion1,Option2を各々の上に配置(又は実行時にContainerに指定)する。 とかです。

kurosukenken
質問者

お礼

御回答ありがとうございます うまくいきました 確かにトリッキーかもしれませんね またよろしくお願いします

関連するQ&A

  • Excelの「OptionButton」について

    Excelで新しいシートを開き、VBE画面でユーザーフォームを挿入し、そのフォームにOptionButton1とOptionButton2を配置しました。OptionButton1,2のControlSourceをそれぞれA1、A2にしOptionButton1のValueをTrueにします。 この状態でフォームを表示し最初にOptionButton2をクリックすると両方のオプションボタンがOffになってしまいます。フォームを表示したまま2回目からのクリックではOn、Offがうまく切り替わります。ControlSourceをセットしなければ1回目のクリックでもうまく切り替わるみたいです。作り方がおかしいのでしょうか?

  • VBA EXCEL optionbuttonの選択

    現在オプションボタンにて設定下記のようにしています。 オプションボタンをいくつか設置しており、どれか選択すると下記のコードへ飛んできます。 どれか選択すると、enabledをtrueにし、OKボタンをクリックできる。そしてどのオプション ボタンを選択したのか他のモジュールから確認する為tagにその痕跡を残すように設定しています。 Public Sub OptionButton1_Click() 'オプションボタン選択動作。OKボタンを有効へ Cmd_ok.Enabled = True OptionButton1.Tag = True End Sub Public Sub OptionButton2_Click() 'オプションボタン選択動作。OKボタンを有効へ Cmd_ok.Enabled = True OptionButton2.Tag = True End Sub Public Sub OptionButton3_Click() 'オプションボタン選択動作。OKボタンを有効へ Cmd_ok.Enabled = True OptionButton3.Tag = True End Sub ****************** そして下記のコードでどのオプションボタンが選択されたのか確認しています。 For i = 1 To 3 If UserForm1.Controls("OptionButton" & i).Tag = True Then xxx = i End If Next i ******************** 一番上にある『OptionButton1.Tag = True』と設定しているものを選択されたオプションボタン からみて相対的な表現に変更できないでしょうか? 意味としては『現在選択されているオプションボタンのtag = true』といった表現です。 現状でも目的は果たせますが、これからボタンが複数になった場合、オプションボタンのオブジェクト名を変更しなくなった時に手間がしないようにする事が目的です。 もしくはもっとスマートなコードがあれば歓迎です。 ご指導お願いします。

  • EXCELのActivXコントロールについて

    自分なり解決法をさがしたのですが どうしても分からないので質問しました。 宜しくお願いします。 OS:WindowsXP SP3 Office:Microsoft Office Excel 2007 1.Worksheet上にActivX Frameコントロール(Microsoft Forms 2.0 Frame)を挿入 2.項番1で挿入したFrame上にActivX OptionButtonコントロールを2つ挿入 (フレームオブジェクト(O)→編集(E)後のツールボックスで挿入) OptionButtonをクリックしたらイベントで"~する"ということをしたいのですが デザインモード状態でFrameコントロール内のOptionButtonをダブルクリックしても反応無し 右クリックの"コードの表示..."もグレー表示で選択できません。 仕方ないのでFrameのClickイベントやMouseMoveイベントで対処していますが 出来るならOptionButtonのイベントで処理したいと思い質問しました。 ActivXではなくフォームコントロールのFrameに変えたり ユーザーフォームでやれば可能ですが・・・ 対処法あれば 宜しくお願い致します。

  • WindowsXPが使えません。

    仕事で使っているWindowsXPが突然「ご迷惑をおかけしております・・・」という画面に変わりました。指示されたように、「通常起動」を選択したのですが、元の画面に戻るだけの状態が続きました。その後強制終了(電源を落とす)しても状況が変わらなかったので、まず、すべてのコンセントを抜いて何時間か放置して再度電源を入れましたが変わりません。そこで、「セーフモード」でシステムの修復をしようとしましたが、セーフモードの画面にはなるのですが、システムの修復の画面にはいけませんでした。とりあえず電源をつけっぱなしにして、いると、画面が真っ黒になったり、文字がいっぱい流れる画面になったりしました。さらにそのままにしておくと、なぜかWindowsの最初の画面になり 現在は、スタート画面にはなっています。(動作は異常に遅いです)しかしどのアプリケーションもクリックして起動しません。システムの修復をしようとすると、「システムの復元はコンピュータを保護できません」というメッセージがでるだけです。IEはページが開かないという状態です。 どうしたらいいかどなたか教えていただけませんでしょうか?お願いします。

  • スリープをクリックしてもシャットダウンしてしまう。

    スリープをクリックしてもシャットダウンしてしまう。説明不足でしたので再質問させていただきます。 席を立つとき今までは、スタートボタンをクリック>シャットダウンノの右の矢印をクリック>スリープをクリック するとすぐ画面が黒くなり、パソコンの電源ライトが点滅状態になります。席に戻りマウスをクリックするかまたはキーボードの電源ボタンを押すと元の画面がすぐ出て来ました。 2、3日前からスリープの操作をしても電源ランプの点滅がなくなり、電源断の状態と同じにになります。作業を始めるためキーボードの電源ボタンを押すと、ウインドウズ起動画面が出ます。矢印ボタンで「起動を継続」を選択,Ennterキーを押すと通常の再起動の経過を経ずに元の画面が出るようになりました。以前のようにスリープ状態(点滅)状態からウィンドウズの起動画面を経ずに元の画面に戻れるようにできないでしょうか。

  • MDI親フォームでのキー入力監視

    はじめまして。 VB6.0 SP5で開発を行っております。 子フォームが開いていない状態のMDI親フォームで、F1~F12のファンクションキーを押下したら、それぞれ対応した子フォームが開くようにしたいのですが、MDI親フォームでは、KeyUpやKeyDownのイベントが発生しないため、キー入力監視ができません。 上記のような事を実現させるためには、どのようにすればよろしいのでしょうか。 MDI親フォームには、PictureBoxを貼りその中にボタンを設置して、マウスクリックでも子フォームを開くようにしています。PictureBoxでKeyイベントを取得しようとしましたが、ボタンをクリックして、子フォームを開き、その子フォームを閉じた後(子フォームのUnLoadイベント内で親フォームのPictureBoxにSetFocusしています)、フォーカスがどこかへ行ってしまい、イベントがとれません。 常に、子フォームを開いている状態で、子フォームでKeyイベントを取得するしかないのでしょうか。その場合、子フォームを閉じた時に、別のフォーム(Keyイベント取得用フォーム)を自動的に開く方法はありますでしょうか。 長文となり申し訳ありません。 ご教授の程、よろしくお願い致します。 開発環境  OS:WindowsXP SP3  言語:VisualBasic6.0 SP5

  • SP3適用後、スタンバイから復帰しない

    VAIO VGC-LA70Bを利用しています。 数日前、SP3をインストールしました。 インストール後より、スタンバイから復帰しません。 一定時間が経過し、スタンバイに入ると 電源ランプがグリーンからオレンジになり、黒い画面になります。 その状態で、キーボード又はマウスを触ると電源ランプが グリーンになりますが、画面は黒いままです。 しばらく待つと電源ランプが消えて、休止状態になります。 休止状態から電源を軽く押すと休止から復帰します。 一度、スタンバイ→復帰せず→休止→復帰すると 通常通りスタンバイ状態から復帰する事ができます。 SP3を適用した意外にインストールしたプログラムもありませんし 設定なども変更しておりません。 どなたか問題解決の方法をご存知の方がおられましたら 教えて下さい。 宜しくお願いいたします。

  • スタンバイを選択することができません。

    Dell INSPIRON1545でWindowsXP SP3を使っています。 内蔵ハードディスクを新しいものに交換して、OSをインストールしたのですが、 スタート → 電源オプションを選んでスタンバイの状態にしようとしても、スタンバイが薄っすら表示されているだけになり選択することができませんでした。 これを通常の選べる状態にする方法があれば教えてください。 よろしくお願いします。

  • パソコンが起動しない

    質問させていただきます。 少し間違えて起動中に電源を落としてしまいました。 それで次に起動したときに 「ご迷惑おかけしております・・・・・」 というウィンドウズの警告文がでてきました。 これは前にも見たことがあったので気にすることなく 「通常起動」を押したのですが一度起動画面がでるもののまた同じ画面に戻ってしまいます。で起動を選択したりもしたのですがどれも同じでまた元の警告画面になってしまいます。 OSはwindowsXP sp2です。 よろしくお願いします。

  • 最小化されたTIFファイルが表示されない。

    デスクトップPCを使っているのですが、困っている事があります。 フアプリケーションを多く開くと、画面下部にグループ化されると思います。 通常、最小化されているファイル(フォルダ)を選択すると、ファイルが元の大きさに表示されますが、TIFファイルだけ表示されない現象が発生しました。 「右クリック⇒元のサイズに戻す」を選択すると、表示されます。(元の大きさ)に戻りますが、最小化されたファイルを選択すると、元の大きさで表示される。 このようなせっていは出来ないでしょうか? ちなみに他のPCでは、上記の動作が可能です。 OS:WindowsXP、SP3 宜しくお願いします。