|
▼てっちゃん さん:
>ありがとうございます。もう一度説明させていただきますと、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
|
|