| ★トグルボタンで文字の書式設定 その２ | |||
ユーザーフォーム「frmトグルボタン」内の記述はこんな感じにしましたよ。 |
|||
Private Sub トグル太字_Click() If トグル太字 = True Then 'トグルボタンがＯＮの時は ラベル文字.Font.Bold = True '文字を太字にしなさい！ Else ラベル文字.Font.Bold = False '文字の太字を解除しなさい！ End If End Sub Private Sub トグル斜体_Click() If トグル斜体 = True Then ラベル文字.Font.Italic = True Else ラベル文字.Font.Italic = False End If End Sub Private Sub トグル下線_Click() If トグル下線 = True Then ラベル文字.Font.Underline = xlUnderlineStyleSingle Else ラベル文字.Font.Underline = False End If End Sub Private Sub トグル大文字_Click() If トグル大文字 = True Then ラベル文字.Font.Size = 18 Else ラベル文字.Font.Size = 9 End If End Sub Private Sub トグル赤色_Click() If トグル赤色 = True Then ラベル文字.ForeColor = RGB(255, 0, 0) Else ラベル文字.ForeColor = RGB(0, 0, 0) End If End Sub Private Sub トグル明朝_Click() If トグル明朝 = True Then ラベル文字.Font.Name = "ＭＳ Ｐ明朝" Else ラベル文字.Font.Name = "ＭＳ Ｐゴシック" End If End Sub |
|||
トグルボタンは、スイッチＯＮの時には「Ｔｒｕｅ」を使い、ＯＦＦの時には「Ｆａｌｓｅ」を使います。 上のプログラムでは、Ｉｆ構文を使って、 もしスイッチがＯＮの時は・・・・文字のプロパティを変更 もしスイッチがＯＦＦの時は・・・文字のプロパティを戻す というようにしました。 文字が、トグルボタンのいろいろな書式設定の変更で変化するのを確認して下さいね。 |
|||
トグルボタン太字がＯＮの時！  トグルボタン太字がＯＦＦの時！  こんな感じで全部ＯＮにすると  こうなれば出来上がりです。 |
|||
| トグルボタンは以上で終わりです。 フォーム上でツールバーのようなものを作るときにはとても役立つコントロールですよ。 いろいろ使ってやって下さいね。 |
|||
|
|||