戻る    次へ

Cats運転者台帳システムのアイコン画像VBA Cats編

【1】VBAでマルチページ(MultiPage)コントロールにリストビュー(ListView)コントロールを貼り付けるとリストビューの枠がずれる対策

【対策1】この現象は最初にリストビューを表示したときのみ発生しますので、私が考えた方法はUserForm_Initializeで 下記のコードで各ページを巡回します。表示される前なので見た目には問題ありません。

For i = 0 To MultiPage1.Count - 1
  MultiPage1.Value = i
Next i
【対策2】これだけでは対策できないのは先頭の一覧タブに表示を戻したときにもずれる現象です。対策は以下のように 当該タブが選択されたときに基の位置138から139へ移動させて戻しました。見た目には問題ありません。
Private Sub MultiPage1_Change()

Select Case MultiPage1.Value
 case 0
  MultiPage1.Move 139
  MultiPage1.Move 138

  戻る    次へ

掲載情報

2009.1.20にフリーソフトであるGriffinEXCELテーブルとVBA2htmlが紹介された本が発売されました。この本のP99にHTML関連として紹介されています。