[[20100614174812]]　『マルチページの見出し』（とんとん）　ページの最後に飛ぶ

『マルチページの見出し』（とんとん）

 　マルチページを使ったユーザーフォームを作ろうとしているのですが、ページを
 切り替えたとき、今どのページが開いているのかがちょっと見づらいと思います。

 　例えば、「４月」「５月」「６月」などのページを作ったとき、アクティブな
 ページの見出しが浮き上がるように表示されるのですが、この差がよく見ないと
 わかりにくいのです。

 　アクティブなページの見出しの文字の色を変えるとか、文字を大きくするとかして、
 見やすくする方法はないでしょうか。

 アクティブページのタブの幅を大きくするというのは、
 '===============================================================
 Private frontpg As Long
 Const Wide = 4
 '================================================================
 Private Sub MultiPage1_Change()
    With MultiPage1
       With .Pages(frontpg)
          .Caption = Trim(.Caption)
       End With
       frontpg = .Value
       With .Pages(frontpg)
          .Caption = String(Wide, "　") & .Caption & String(Wide, "　")
       End With
    End With
 End Sub
 '================================================================
 Private Sub UserForm_Initialize()
    With MultiPage1
       frontpg = .Value
       With .Pages(frontpg)
          .Caption = String(Wide, "　") & .Caption & String(Wide, " ")
       End With
    End With
 End Sub

 マルチページのオブジェクト名が　　MultiPage1　の時の例です。

 色は、全ページ共通だしねえ！！

 ichinose

 ichinose さん、ありがとうございます。返事が遅くなりました。

 早速やってみました。タブが広がるので、区別はしやすくなったと思います。
 とりあえず、このやり方をやってみようと思います。

 アクティブなページのタブの色や、見出し文字の色を変えたり、文字の大きさを
 変えたりする方法がありましたら、またよろしくお願いします。

 （とんとん）

 とんとんです。
 ichinose さんの回答で Caption プロパティというのを教えてもらい、それをヒントに
 次のようにしてみました。

 '----------------------------------------------------------
 Private frontpg As Long

 Private Sub UserForm_Initialize()
    With MultiPage1
       frontpg = .Value
       With .Pages(frontpg)
          .Caption = "　★" & .Caption & "★　"
       End With
    End With

    NEN = MultiPage1.Value + 1      '学年の取得

 End Sub

 '---------------------------------------------------------

 Private Sub MultiPage1_Change()
    With MultiPage1
       With .Pages(frontpg)
          .Caption = Mid(.Caption, 3, Len(.Caption) - 4)
       End With
       frontpg = .Value
       With .Pages(frontpg)
          .Caption = "　★" & .Caption & "★　"
       End With
    End With
 End Sub

 '---------------------------------------------------------

 アクティブなページのキャプションが ★★ ではさまれる（　★４月★　のようになる）ので、
 だいぶ見やすくなりました。

 ichinose さん、ありがとうございました。

 （とんとん）

コメント返信：

[ 一覧(最新更新順) ]

[[20100614174812]] 『マルチページの見出し』（とんとん） ページの最後に飛ぶ

[[20100614174812]]　『マルチページの見出し』（とんとん）　ページの最後に飛ぶ