7453
社区成员
- 主页
...全文
请发表友善的回复…
发表回复
zhizlm 2008-01-05
Drive1.Drive=Dir1.Path；忽略驱动器改变
End Sub
双击目录列表框，输入以下代码：
Private Static Sub Dir1_Change()
File1.Path = Dir1.Path；关联文件列表框
If Right(Dir1.Path, 1) < > "\" Then
CurrentDir = Dir1.Path & "\"
Else
CurrentDir = Dir1.Path
End If；设置选定的目录名称
ListView1.ListItems.Clear；清除过期的列表项目
For Counter = 0 To File1.ListCount - 1
Fname = File1.List(Counter)
Set itmX = ListView1.ListItems.Add
(, , Fname);添加文件名
itmX.SubItems(1) = CStr(Counter + 1) + "/"
+ CStr(File1.ListCount)
itmX.SubItems(2) = CStr(FileLen(CurrentDir & Fname))
itmX.SmallIcon = 1
itmX.SubItems(3) = Format(FileDateTime(CurrentDir
& Fname), "HH:MM YYYY/MMMM/DD")
Next Counter；添加增强列表框的各个项目
Dir1.ToolTipText = "当前目录是:" & Dir1.Path；提示
End Sub
---- 通过以下代码取得鼠标单击增强列表框返回的项目名称：
Private Sub ListView1_ItemClick(ByVal Item As
MSComctlLib.ListItem)
allfname = Item;文件名
dname= CurrentDir& Item;完整的路径和文件名
sElectmain = ListView1.SelectedItem.Index;文件序号
End Sub
End Sub
双击目录列表框，输入以下代码：
Private Static Sub Dir1_Change()
File1.Path = Dir1.Path；关联文件列表框
If Right(Dir1.Path, 1) < > "\" Then
CurrentDir = Dir1.Path & "\"
Else
CurrentDir = Dir1.Path
End If；设置选定的目录名称
ListView1.ListItems.Clear；清除过期的列表项目
For Counter = 0 To File1.ListCount - 1
Fname = File1.List(Counter)
Set itmX = ListView1.ListItems.Add
(, , Fname);添加文件名
itmX.SubItems(1) = CStr(Counter + 1) + "/"
+ CStr(File1.ListCount)
itmX.SubItems(2) = CStr(FileLen(CurrentDir & Fname))
itmX.SmallIcon = 1
itmX.SubItems(3) = Format(FileDateTime(CurrentDir
& Fname), "HH:MM YYYY/MMMM/DD")
Next Counter；添加增强列表框的各个项目
Dir1.ToolTipText = "当前目录是:" & Dir1.Path；提示
End Sub
---- 通过以下代码取得鼠标单击增强列表框返回的项目名称：
Private Sub ListView1_ItemClick(ByVal Item As
MSComctlLib.ListItem)
allfname = Item;文件名
dname= CurrentDir& Item;完整的路径和文件名
sElectmain = ListView1.SelectedItem.Index;文件序号
End Sub