Foxtable(狐表) → 用户栏目 → 专家坐堂 → FileManager控件选择时，怎么过过滤扩展名?


  共有2261人关注过本帖树形打印复制链接

主题：FileManager控件选择时，怎么过过滤扩展名?
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/3/17 8:49:00 [显示全部帖子]

1、自己做文件管理器，通过GetFileList获取文件列表，然后自己过滤

2、如果是高级开发版用户可以可看这个
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/3/17 10:02:00 [显示全部帖子]

仔细看2楼的帮助，如果是第一种用法，就不能使用FileManager控件了，这个控件所有的方法都要自己写代码实现

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/3/17 10:48:00 [显示全部帖子]


 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/3/17 14:06:00 [显示全部帖子]


 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/3/17 14:33:00 [显示全部帖子]

不需要判断窗口是否打开
For Each Info() As String In e.Infos
    If Right(Info(0),3) = ".nc"  OrElse  Right(Info(0),4) = ".tap" OrElse Info(2) = "D"   Then '隐藏后缀名为rar的文件
    Else
        e.Remove(Info)
    End If
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/3/17 14:44:00 [显示全部帖子]

测试过再说行不行。FileManager、PictureViewer我测试没有问题

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/3/17 15:11:00 [显示全部帖子]

9楼的代码就是啊，具体想做什么，截图并文字描述说明。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/3/17 15:51:00 [显示全部帖子]

窗口afterload事件
Dim f As WinForm.FileManager = e.Form.Controls("FileManager1")
f.FTPclient.FTPName= "文件"

Dim p As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
p.FTPclient.FTPName= "图片"

ftp、BeforeListDetails事件
If e.FTPName = "文件"
    For Each Info() As String In e.Infos
        If Right(Info(0),4) = ".txt"  OrElse Info(2) = "D"   Then '只显示后缀名为txt的文件
        Else
            e.Remove(Info)
        End If
    Next
ElseIf e.FTPName = "图片"
    For Each Info() As String In e.Infos
        If Right(Info(0),4) = ".jpg" OrElse Info(2) = "D"   Then '只显示后缀名为jpg的文件
        Else
            e.Remove(Info)
        End If
    Next
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 5 次数据查询