- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教目录树代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=5235)
-- 发布时间：2009/12/1 21:55:00
-- 请教目录树代码
看表A窗口。用按钮管理EXCEL文档一没问题。我想用目录数管理EXCEL文档，参考帮助中节点代码始终不行，请指点。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2009/12/1 22:02:00
--
这样行不行？
将excel文件放到项目文件同一目录下（也可以建一个专用文件夹）
然后在窗口中插入一个ComboBox控件，比如名称为：ComboBox1
窗口：AfterLoad事件代码：
Dim s As String
For Each File As String In FileSys.GetFiles(ProjectPath)
if File.Contains("xls") Then
s = s & "|" & File
End If
Next
e.Form.Controls("ComboBox1").ComboList = s
再增加一个打开按钮，代码：
Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brw.Address = e.Form.Controls("ComboBox1").Value
-- 发布时间：2009/12/1 22:05:00
--
说明一下，楼上的代码是将excel放在项目目录。
如果放在其它目录自己改一下代码。
比如你在项目目录下建了个excel文件夹
For Each File As String In FileSys.GetFiles(ProjectPath)
将上面的代码改成：
For Each File As String In FileSys.GetFiles(ProjectPath & "excel\\")
-- 发布时间：2009/12/1 22:13:00
--
放在目录树中，没看出你文件的规律，如果路径是确定的，可以在NodeMouseDoubleClick事件中设置如下代码：
Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brw.Address = "f:\\精华资料\\结构用料\\" & e.Node.Text & ".xls"
-- 发布时间：2009/12/1 22:57:00
--
[此贴子已经被作者于2009-12-2 0:02:10编辑过]
-- 发布时间：2009/12/1 23:00:00
--
如果将EXCEL文件分类放进项目文件的不同的文件夹中(比如2个文件夹)代码如何呢?
另外word文件也能这样管理吗?
[此贴子已经被作者于2009-12-2 0:07:13编辑过]
-- 发布时间：2009/12/2 0:16:00
--
我很想用目录树管理EXCEL和WORD文档，这两个类文档分别放在项目文件的2个文件夹（EXCEL和WORD）中，目录树节点代码如何写
-- 发布时间：2009/12/2 2:14:00
--
\'窗口AfterLoad事件代码
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim s As String
For Each File As String In FileSys.GetFiles(ProjectPath & "excel\\")
if File.Contains("xls") Then
s = FileSys.GetName(File).Replace(".xls","")
tv.Nodes.Add(s,s)
End If
Next
\'目录树NodeMouseDoubleClick事件代码(也就是双击事件)
Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brw.Address = ProjectPath & "excel-:special:1:- & e.Node.Text & ".xls"
-- 发布时间：2009/12/2 2:16:00
--
Word在WebBrowser中显示我还没学会。
-- 发布时间：2009/12/2 2:20:00
--
上面的目录树双击代码乱码了，再发一次。
\'目录树NodeMouseDoubleClick事件代码(也就是双击事件)
Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brw.Address = ProjectPath & "excel\\" & e.Node.Text & ".xls"