以文本方式查看主题

-  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窗体做如图浏览的窗口?

 

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150422135416.jpg
图片点击可在新窗口打开查看

 

哪有参考的?


--  作者: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