以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 怎样用FOXTABLE窗体做如图浏览的窗口? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67332) |
-- 作者:zgjmost -- 发布时间:2015/4/22 13:56:00 -- 怎样用FOXTABLE窗体做如图浏览的窗口? 怎样用FOXTABLE窗体做如图浏览的窗口?
哪有参考的? |
-- 作者:Bin -- 发布时间:2015/4/22 14:00:00 -- 1.用递归生成左边的路径目录树 2.用LIstVIew 显示右边的界面
|
-- 作者:Bin -- 发布时间:2015/4/22 14:03:00 -- 看这里 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=45629 |
-- 作者:qianqian1530 -- 发布时间:2015/4/22 14:10:00 -- 这个效果, 我已经做出来了... |
-- 作者:zgjmost -- 发布时间:2015/4/22 14:16:00 -- *******************-FTP链接-********************\' Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1") Dim ftp1 As New FtpClient Dim dls As List(of String) ftp1.Host="hl231083.happywinds.net" ftp1.Account = "hl231083" ftp1.Password = "L8QVedzj" dls = ftp1.GetDirList
\'*******************-返回当前目录下的全部子目录名开始-********************\' For Each dl As String In dls Dim nd As WinForm.TreeNode = tv.Nodes.Add(dl) For Each s As String In ftp1.GetDirList(dl) nd.Nodes.Add(s) Next Next
\'*******************-返回当前目录下的全部子目录名结束-********************\' e.Form.Controls("Label2").Visible=False e.Form.TimerEnabled=False |
-- 作者:zgjmost -- 发布时间:2015/4/22 14:19:00 -- 这个怎么修改到我的电脑上去? |
-- 作者:Bin -- 发布时间:2015/4/22 14:21:00 -- 获取本地文件夹和路径 参考 http://www.foxtable.com/help/topics/0331.htm |