● 概要 ●
オプショングループは、複数のチェックボックス、トグルボタン、オプションボタンをグループ化するために使用します。グループ化されたコントロールは、その中から1つしか選択することができなくなります。
オプショングループ内の各コントロールはOptionValueプロパティを持っています。
OptionValueプロパティには、コントロールごとに異なる数値を割り当てて使用します。
オプショングループのValueプロパティには、選択されたコントロールのOption Value値が設定されます。
次のコードは、ラベルのフォントを3つのオプションボタンの中から選択されたものに変更するものです。
● サンプル ●
Private Sub fraフォント_Click()
Select Case fraフォント.Value
Case 1
ラベル.FontName = "ＭＳ ゴシック"
Case 2
ラベル.FontName = "ＭＳ 明朝"
Case 3
ラベル.FontName = "Century"
End Select
End Sub
この例のOptionValue値は、［MS ゴシック］オプションボタンが1、［MS 明朝］オプションボタンが2、［Century］オプションボタンが3と設定されています。たとえ
ば、［Century］オプションボタンを選択すると、そのOptionValueプロパティ値である「3」が、オプショングループのValueプロパティに設定されます。
その結果、Select Caseステートメントにより、ラベルのフォントが「Century」に変わります。
なお、Valueプロパティを明示しないで、値を設定することもできます。
