ListView について (ID:100525)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

FRWさん  ありがとうございます。
ご指摘があり，Form_Loadを見直し所，ミスがあり修正したところ
エラーも出ずに動作いたしました．
本当に恥ずかしいミスです・・・
ミス内容は下記ソースを見て頂くとすぐわかると思いますが，私のForm_Load内処理は，Dir1.Path = App.Pathした後にサブクラスの定義をしてました．
Dir1.Path = App.Pathを実行すると，Dir1_Changeが走ってしまうので，サブクラスの定義前に実行するためエラーが出ていたようです．
ご指摘本当にありがとうございました．

'---------------------------------------------------------------------
'   機    能：画面ロード（イニシャル）
'---------------------------------------------------------------------
Private Sub Form_Load()
Dim DriVeName As Variant
Dim x As ColumnHeader
    '---------------------------------------------
    ' 二重起動を防ぐ
    '---------------------------------------------
    If App.PrevInstance Then
        MsgBox "すでに「" & App.Title & "」は起動されています。", vbExclamation
        End
    End If
                
    '---------------------------------------------
    '初期画面のイニシャル
    '---------------------------------------------
↓↓↓↓↓コメント解除すると，Dir1_Changeイベントが走ってしまう
'    Dir1.Path = App.Path
↑↑↑↑↑コメント解除すると，Dir1_Changeイベントが走ってしまう
    Label1.Caption = App.Path
    ListView1.ListItems.Clear

Set x = ListView1.ColumnHeaders.Add(, , "ファイル名", ListView1.Width / 3)
    Set x = ListView1.ColumnHeaders.Add(, , "サイズ", ListView1.Width / 5, 1)
    Set x = ListView1.ColumnHeaders.Add(, , "更新日時", ListView1.Width / 4, 1)
    ListView1.View = lvwReport
    Dir1_Change

End Sub

←解決時は質問者本人がここをチェックしてください。

戻る