選択したコマンドボックスで指定したテキストボックスの背景色を変えたいのですが、原理がわかりません。よろしくお願いします。
例;コマンド0(標題:赤)とコマンド1(標題;青)とラベル2とラベル3があるとします。
まず、ラベルのどちらかをクリックすると境界線スタイルの色が変わり、次にコマンドボックスを押すと、選択したラベルの背景色が赤か青に変わるようにしたいのです。
ラベルには半角スペースを入れて形が見えるようにしておき、境界線はクリック時に
Me!ラベル2.BorderColor=vbRed
などとすればとりあえず、色は変わる事はわかりました。その後どうすればよいのでしょうか?
ちなみに実際にはコマンドボタンが5個くらいでラベルは30位で作るつもりです。サイトや本屋も探したつもりですが意外とないのですね・・・。よろしくお願いします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんなんで、どうでしょう??
------------------------------------------------
Private Sub コマンド0_Click()
'適当な変数を用意してラベル2の背景色を設定
'ラベル2の背景色「赤」を設定
strlabl2BackColorRed = RGB(255, 0, 0)
Me.ラベル2.BackColor = strlbl2BackColRed
End Sub
Private Sub ラベル2_Click()
'適当な変数を用意してラベル2の境界線を設定
'ラベル2の境界線「青」を設定
strlbl2BorderColBlue = RGB(0, 0, 255)
Me.ラベル2.BorderColor = strlabl2BorderColBlue
End Sub
------------------------------------------------
予め、フォームをデザインされるときに、オブジェクトのプロパティでデフォルトの「背景色」、「境界線色」を設定しておいた方が良いです。
また、同様にデフォルトの「背景色」、「境界線色」に戻す処理も忘れずに。。。
因みに、Accessのヘルプで、「キーワード」に「BackColor」等を入力すれば、出てきますが・・・。
参考URL:http://www.gihyo.co.jp/books/syoseki.php/4-7741- …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ゆるやかでぃべーと タイムマシンを破壊すべきか。
これはディベートの論題だと仮定したうえでの回答お願いします。あなたは、その末にタイムマシンを壊してしまうのか、使い道を探すのかどうかを考えてもらいたいです。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
アクセスVBAのMe!と[ ]
Access(アクセス)
-
-
4
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
5
Accessの桁区切りについて教えてください。
Access(アクセス)
-
6
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
7
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
8
アクセスで『0の値以外』を表示する方法
Access(アクセス)
-
9
Access 複数フォームを開き、画面の最上面にしたいフォームをコント
その他(データベース)
-
10
Access サブフォームでの選択行の取得
その他(データベース)
-
11
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
12
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
13
角丸四角形を描きたい
Excel(エクセル)
-
14
選択したチェックボックスのみチェックを入れたいのですが
その他(データベース)
-
15
パラメータが少なすぎます。1を指定して下さい。""
Excel(エクセル)
-
16
[Access]帳票フォームにて連続する非連結コントロールに個々の値を入れるには
Access(アクセス)
-
17
サブフォームの行ごとにコンボボックスの表示項目を変更する方法が知りたいです
Visual Basic(VBA)
-
18
Accessのサブフォームから値を参照する方法について
その他(データベース)
-
19
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
20
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
oracle spool SJIS → UTF-8
-
Windows版 pg_dumpの結果をログ...
-
SQL: insert/importコマンドの違い
-
アクセスのフォームで10件づつ...
-
shellからpostgresqlへの変数の...
-
CSVファイルをBULK INSERTでSQL...
-
postgreSQL、pg_dumpのオプショ...
-
Query OK, 0 rows affected
-
psql でのエラー出力について
-
ディスク上のサイズの乖離が大...
-
Windows上のPostgreSQLの完全削...
-
改行がはいったデータでエラー?
-
新規作成したPostgresqlデータ...
-
PostgreSQLの再インストールに...
-
pg_dumpでデータの引越し
-
ACCESSのフォームだけを起動す...
-
PostgresSQLの環境設定について
-
リコーimagioneo630 エラーs...
-
PL/pgSQL 引数の数
-
マインクラフトエラー
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
oracle spool SJIS → UTF-8
-
Windows版 pg_dumpの結果をログ...
-
Query OK, 0 rows affected
-
tar.gzファイルのリストアについて
-
ACCESS VBA;コマンドボックス...
-
shellからpostgresqlへの変数の...
-
psql でのエラー出力について
-
CSVファイルをBULK INSERTでSQL...
-
ファイルに記述されている複数...
-
SQL+Plusの訂正
-
Oracle / UNIX ファイルコマン...
-
OSQLの起動について
-
SQL: insert/importコマンドの違い
-
date型に空白を入れるとエラー...
-
PostgresSQLのテーブルを他のサ...
-
SQLサーバのジョブにてVisualBa...
-
teraterm上でsqlplusにログイン...
-
コマンドと関数の違い
-
アクセスのフォームで10件づつ...
-
postgreSQL、pg_dumpのオプショ...
おすすめ情報