| |
|
|
Sample Macro コントロール・マルチページ |
 |
|
|
|
11-1) マルチページの色を設定する |
 |
 |
'=========================================================================================
' ◆ユーザーフォームのコード◆
'-----------------------------------------------------------------------------------------
Private Sub UserForm_Initialize() '※1
MultiPage1.BackColor = RGB(256, 0, 0) '※2 背景色を設定する
End Sub
'=========================================================================================
＜コメント＞
※1 Initializeイベントは、ユーザーフォームが開かれたときに発生する
※2 BackColorプロパティ、ForeColorプロパティの値を設定して色を変える
|
11-2) 各ページのキャプションを設定する |
|
|
'=========================================================================================
' ◆ユーザーフォームのコード◆
'-----------------------------------------------------------------------------------------
Private Sub UserForm_Initialize() '※1
MultiPage1.Pages(0).Caption = "文化" 'ページ 0 のキャプションを設定
MultiPage1.Pages(1).Caption = "歴史" 'ページ 1 の 〃
End Sub
'=========================================================================================
＜コメント＞
※1 Initializeイベントは、ユーザーフォームが開かれたときに発生する
|
11-3) アクティブページを設定する |
|
|
'=========================================================================================
' ◆ユーザーフォームのコード◆
'-----------------------------------------------------------------------------------------
Private Sub UserForm_Initialize() '※1
MultiPage1.Value = 0 '※2 アクティブページを設定する
End Sub
'=========================================================================================
＜コメント＞
※1 Initializeイベントは､ユーザーフォームが開かれたときに発生する
※2 0 は1ページ目、最大値はページ数の合計から1を引いた数
|
