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

tjahz · 发表于 2003-7-10 15:44

例如：打开后选择D：盘，在文件列表中双击任一文件，返回的是“c:\.... ” ，应该是"D:\..."才对啊。在ImageCombo1_Click()中增加一行即可。 Private Sub ImageCombo1_Click() Dim fs, f1, dc, InputData Dim ss2, ss As String Dim i As Integer On Error Resume Next For i = 1 To ImageCombo1.ComboItems.Count If ImageCombo1.ComboItems.Item(i).Selected Then ss = ImageCombo1.ComboItems.Item(i) qu = VBA.Left(ImageCombo1.ComboItems.Item(i), 1) & ":\" currentpath = qu ' 增加的内容 End If Next i

songls · 发表于 2003-7-10 17:53

vba密码? zhaoshong@163.net 谢谢!

rqdmy · 发表于 2003-7-17 12:23

VBA密码？谢谢你 hebrqj@mail.grain.gov.cn

dnl · 发表于 2003-7-17 21:10

我尻!

recentday · 发表于 2003-7-21 10:20

为什么不能查看sheet1,sheet2,sheet3??????????????????/

ldhyob · 发表于 2003-7-21 10:25

以下是引用recentday在2003-7-21 10:20:00的发言： 为什么不能查看sheet1,sheet2,sheet3??????????????????/

因为仅是窗体演示,所以就隐藏了工作表的显示了.

antgao · 发表于 2003-7-21 14:04

对呀，源代码加了密的，共享一下3.

ldhyob · 发表于 2003-7-21 14:08

以下是引用antgao在2003-7-21 14:04:00的发言： 对呀，源代码加了密的，共享一下3.

只是有一口令:ldhyob

JL · 发表于 2003-7-23 05:44

可否提供阅览该VBA的口令

spicemodel · 发表于 2003-8-20 15:57

ldhyob版主: 我用了下你的目录文件浏览窗，觉得挺有想象力的。你能不能把其中的listview控件用Grid 或spreadsheet控件来替换，让我们再学习一下Grid (DataGrid/DBGrid)和spreadsheet控件的用法？多谢了！

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