【Access】トグルボタンのベベル効果を設定する

トグルボタンのベベル効果の設定です。

ベベル効果は次の表のとおりとなっています。

値	効果
0	なし
1	円
2	額縁風
3	交差
4	クールスラント
5	角度
6	ソフトラウンド
7	浮き上がり
8	スロープ
9	切り込み
10	スケール
11	ハードエッジ
12	アールデコ

実際のイメージは次のような感じになります。

0 なし

1 2	Me.toggle1.Bevel = 0 Me.toggle1.Caption = "なし"

1 円

1 2	Me.toggle1.Bevel = 1 Me.toggle1.Caption = "円"

2 額縁風

1 2	Me.toggle1.Bevel = 2 Me.toggle1.Caption = "額縁風"

3 交差

1 2	Me.toggle1.Bevel = 3 Me.toggle1.Caption = "交差"

4 クール スラント

1 2	Me.toggle1.Bevel = 4 Me.toggle1.Caption = "クールスラント"

5 角度

1 2	Me.toggle1.Bevel = 5 Me.toggle1.Caption = "角度"

6 ソフト ラウンド

1 2	Me.toggle1.Bevel = 6 Me.toggle1.Caption = "ソフトラウンド"

7 浮き上がり

1 2	Me.toggle1.Bevel = 7 Me.toggle1.Caption = "浮き上がり"

8 スロープ

1 2	Me.toggle1.Bevel = 8 Me.toggle1.Caption = "スロープ"

9 切り込み

1 2	Me.toggle1.Bevel = 9 Me.toggle1.Caption = "切り込み"

10 スケール

1 2	Me.toggle1.Bevel = 10 Me.toggle1.Caption = "スケール"

11 ハード エッジ

1 2	Me.toggle1.Bevel = 11 Me.toggle1.Caption = "ハードエッジ"

12 アール デコ

1 2	Me.toggle1.Bevel = 12 Me.toggle1.Caption = "アールデコ"

＜関連記事＞
【Access】トグルボタンのオン・オフのときの表示を変える

スポンサーリンク

https://hosopro.blogspot.com/2017/11/access-vba-toggle-button-bevel.html 【Access】トグルボタンのベベル効果を設定する