|
1) ListViewコントロールを貼り付け
2) オブジェクト名を「LIST」に変更
3) Top プロパティを 0 に変更
4) LISTの上で右クリックしてプロパティを表示
5) 全般の表示プロパティを、lvwReport に変更
6) 列見出しタブを選択
7) ファイル名、サイズ、更新日付を追加
8) ListView用にFileListBoxコントロールを貼り付け
9) オブジェクト名を「FLIST」に変更
10) FLIST を非表示に設定
|
|
|
' ******************************************************
' ローカルファイルリスト作成
' ******************************************************
Public Sub LoadListView(frm As Form)
Dim I As Long
Dim oFILE As FileListBox
Dim oLIST As ListView
Dim oITEM As ListItem
Set oFILE = frm.FLIST
Set oLIST = frm.LIST
oFILE.Path = CurDir()
oLIST.ListItems.Clear
For I = 0 To oFILE.ListCount - 1
Set oITEM = oLIST.ListItems.Add(, , oFILE.LIST(I))
oITEM.SubItems(1) = FileLen(oFILE.LIST(I))
oITEM.SubItems(2) = FileDateTime(oFILE.LIST(I))
Next I
End Sub
| |
|
|
ツリーのノードをクリックした時にファイルを表示する |
|
|
Private Sub TV_Click()
Dim oNode As Node
Set oNode = TV.SelectedItem
ChDir "\" & oNode.FullPath
LoadListView frmMain
End Sub
| |
|
|
|
|
Private Sub Form_Load()
Dim oITEM As Object
TV.Top = DRV.Height
TV.Width = DRV.Width
LIST.Left = DRV.Width
LIST.ListItems.Clear
ChDir "\"
TV.Nodes.Clear
LoadTreeView frmMain, 0
End Sub
Private Sub Form_Resize()
If WindowState <> 1 Then
TV.Height = frmMain.Height - DRV.Height - 700
LIST.Height = frmMain.Height - 700
LIST.Width = frmMain.Width - DRV.Width - 120
End If
End Sub
| |
|
|
|
|
Private Sub DRV_Change()
On Error GoTo ErrorMsg
ChDrive DRV.Drive
ChDir "\"
TV.Nodes.Clear
LoadTreeView frmMain, 0
LIST.ListItems.Clear
Exit Sub
ErrorMsg:
MsgBox Err.Description, vbOKOnly, "EPM"
End Sub
| |
|
|
|