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