Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


40741 / 76732 ←次へ | 前へ→

【41082】Re:checkboxのサイズ
発言  Blue  - 06/7/28(金) 17:35 -

引用なし
パスワード
   ▼てっちゃん さん:
>ありがとうございます。もう一度説明させていただきますと、formにframeを貼り付け、その中にtextbox、checkboxが複数貼り付けてあるのですが、プロパティのzoomはframeを選択した時はあるのですが、checkboxを選択するとないです。frameのプロパティのzoomを変更すると、frameの中にあるtextbox、checkboxが全て拡大されてしまいます。checkboxのみ(四角い部分)を大きくしたいのです。

CheckBoxの左の四角の部分だけにFrameをおくのです。

┌Frame ─────────┐
│ ┌───────┐  │
│ │       │  │
│ └───────┘  │
│            │
│ □ CheckBox1     │
│            │
│ □ CheckBox2     │
│            │
└────────────┘

の場合


┌Frame ─────────┐
│ ┌───────┐  │
│ │       │  │
│ └───────┘  │
│┌─┐         │
││ │CheckBox1     │
│└─┘         │
│ □ CheckBox2     │
│            │
└────────────┘

のように 、すでにあるCheckBox1の四角の上にFrameを配置する。(四角が隠れるように)
FrameのCaptionを消して、そのFrameの上にCheckBoxを乗せる。
そのとき、CheckBoxのCaptionも消して四角だけにする。
そして、FrameのZoomを適当に設定し、最後にFrameのBorderStyleを
fmBorderStyleSingleにBorderColorを「ボタンの表面」に設定。

これで見た目だけは四角だけが大きくなったように見える。

最後に、かぶせたチェックボックスと連携しないといけないのでそのコードを
追加する。

既存のチェックボックスを CheckBox1
追加して四角だけのチェックボックスを CheckBox2 とすると
コードはこんな感じ

Private Sub CheckBox1_Click()
  CheckBox2.Value = CheckBox1.Value
End Sub

Private Sub CheckBox2_Click()
  CheckBox1.Value = CheckBox2.Value
  CheckBox1.SetFocus
End Sub

0 hits

【41043】checkboxのサイズ てっちゃん 06/7/28(金) 11:41 質問
【41045】Re:checkboxのサイズ Blue 06/7/28(金) 12:02 発言
【41078】Re:checkboxのサイズ てっちゃん 06/7/28(金) 17:08 質問
【41082】Re:checkboxのサイズ Blue 06/7/28(金) 17:35 発言
【41120】Re:checkboxのサイズ てっちゃん 06/7/31(月) 7:46 お礼

40741 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free