[分享]我的自制目录文件浏览窗

qq5000 · 发表于 2003-6-17 22:28

好是好，但想学学，却打不开，更不知 VBA 代码了？ (Windows XP & Office XP )

ldhyob · 发表于 2003-6-18 11:08

谢谢以上关注该帖的版友。关于查看代码的方式，可通过取消宏或在启动宏时按住shift键，前面xiaog兄已说啦！另外非常感谢xiaog兄给我的建议，即给文件列表增加具体信息的显示，故此次做了一次修改，抛弃了原先的listbox控件，启用了全新的listview控件，加入了图标，增加了"文件名称"、“文件大小”、“创建日期”等信息列显示，并支持用户点击列头的排序显示。如图示

欢迎大家试用并提宝贵意见及建议文档已在楼顶更新了下载链接。

[此贴子已经被作者于2003-6-18 11:09:16编辑过]

hxhgxy · 发表于 2003-6-18 11:18

兄弟，想问问你有什么不会做？

ldhyob · 发表于 2003-6-18 11:28

以下是引用hxhgxy在2003-6-18 11:18:00的发言： 兄弟，想问问你有什么不会做？

呵呵呵hxhgxy 兄别寒碜老弟了，[em08] 有个想法就想去实现...嘿嘿[em05]

井底之蛙 · 发表于 2003-6-18 22:07

真是佩服有个问题，在ListView1中只能点鼠标来切换图片，按下鼠标的上下方向键却不行，我把Private Sub ListView1_Click()中的代码复制到Private Sub ListView1_KeyPress过程中也不行，这是怎么回事？

ldhyob · 发表于 2003-6-18 23:53

谢谢井底之蛙的建议,当初在制作时的确未考虑使用键盘的光标键操作选择文件,现在再次修订,楼顶链接再次更新: Private Sub ListView1_KeyDown(KeyCode As Integer, ByVal Shift As Integer) On Error Resume Next If KeyCode = 40 Then '下光标键 If Me.ComboBox1.Value = "图形文件(*.jpg;*.bmp;*.wmf;*.gif)" Then Me.Image1.Picture = LoadPicture(currentpath & ListView1.ListItems(IIf(ListView1.SelectedItem.Index + 1 > ListView1.ListItems.Count, ListView1.SelectedItem.Index, ListView1.SelectedItem.Index + 1))) End If End If If KeyCode = 38 Then '上光标键 If Me.ComboBox1.Value = "图形文件(*.jpg;*.bmp;*.wmf;*.gif)" Then Me.Image1.Picture = LoadPicture(currentpath & ListView1.ListItems(IIf(ListView1.SelectedItem.Index - 1 < 0, ListView1.SelectedItem.Index, ListView1.SelectedItem.Index - 1))) End If End If End Sub

[此贴子已经被作者于2003-6-18 23:58:05编辑过]

Emily · 发表于 2003-6-19 05:47

繁體 WinMe OfficeXp 執行下有錯誤。

ldhyob · 发表于 2003-6-19 10:59

TO Emily: 从错误信息“程序呼叫或引数不正确”来猜测，有可能是自定义函数类型不匹配的原因，在appendlistview后调用参数前进行个类型转换试试。由于我这儿没有繁体版本，无法完成测试。

chenyongyue · 发表于 2003-6-19 12:19

我的是简体版excel2000,win98 我也有上述问题

ldhyob · 发表于 2003-6-19 12:43

本帖最后由 ExcelHome 于 2012-10-6 16:05 编辑

TO Emily AND chenyongyue: 非常感谢二位的测试，经检查，原来更新过的文档在WIN2000和WINXP下均运行正常，可是在WIN98下本人测试也出现了同样的问题，，很奇怪，居然在2000和XP中能够通过。现BUG已去除，楼顶文档已更新。

[此贴子已经被作者于2003-6-19 13:11:40编辑过]

		自动登录	找回密码
密码			免费注册