Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创] FileManager 底部的”管理“命令，不能隐藏


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

主题：[原创] FileManager 底部的”管理“命令，不能隐藏
美女呀，离线，留言给我吧！
水墨青花
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：196 积分：1667 威望：0 精华：0 注册：2019/3/1 11:38:00 		[原创] FileManager 底部的”管理“命令，不能隐藏  发帖心情 Post By：2019/8/4 22:23:00 [只看该作者]

FileManager 下方的 管理命令，用下面的命令隐藏后，仍然可见。
ManagerCommand.Visible = False

只能用 
ManagerCommand.Enabled = False
来将其disable。

能否帮助确认是否为软件的bug? 十分谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107133 积分：544908 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/4 22:35:00 [只看该作者]

我测试没有问题，上传实例说明

 回到顶部
美女呀，离线，留言给我吧！
水墨青花
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：196 积分：1667 威望：0 精华：0 注册：2019/3/1 11:38:00 		  发帖心情 Post By：2019/8/5 21:37:00 [只看该作者]

您好：

FileManager1 在form的上部，控制FileManager的命令是否可见如下：UserGroup “录入” 的 界面，始终显示 管理 命令，只能将其 Disable 掉。截屏见附件。
图片点击可在新窗口打开查看此主题相关图片如下：filemanager.jpg
图片点击可在新窗口打开查看
......
Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1")
Select Case User.Group
  Case ""
    fm.AddCommand.Visible = True
    fm.DeleteCommand.Visible = True
    fm.OpenCommand.Visible = True
    m.AddFolderCommand.Visible = True
    fm.ManagerCommand.Visible = True
    fm.ManagerCommand.Enabled = True
    fm.ConnectCommand.Visible = False
    fm.ClearCommand.Visible = False
    fm.SaveAsCommand.Visible = False
    ftp.RenameEnabled = True    
    ftp.UpLoadEnabled = True    
    ftp.MakerDirEnabled = True    
    ftp.DeleteEnabled = True
    ftp.DownLoadEnabled = True
  Case "录入"
    fm.OpenCommand.Visible = True
    fm.AddCommand.Visible = True
    fm.DeleteCommand.Visible = False
    fm.AddFolderCommand.Visible = True
    fm.ClearCommand.Visible = False
    fm.ManagerCommand.Visible = False
    fm.ManagerCommand.Enabled = False
    fm.SaveAsCommand.Visible = False
    fm.ConnectCommand.Visible = False
    ftp.RenameEnabled = True    
    ftp.UpLoadEnabled = True    
    ftp.MakerDirEnabled = True    
    ftp.DeleteEnabled =False '禁用删除文件按钮
    ftp.DownLoadEnabled = False  
  Case Else
    fm.OpenCommand.Visible = True
    fm.ManagerCommand.Visible = False
    fm.ManagerCommand.Enabled = False
    fm.AddCommand.Visible = False
    fm.DeleteCommand.Visible = False
    fm.ClearCommand.Visible = False
    fm.AddFolderCommand.Visible = False
    fm.SaveAsCommand.Visible = False
    fm.ConnectCommand.Visible = False
    ftp.RenameEnabled = False
    ftp.UpLoadEnabled = False   
    ftp.MakerDirEnabled = False
    ftp.DeleteEnabled =False '禁用删除文件按钮
    ftp.DownLoadEnabled = False
End Select
fm.FTPclient = ftp
 回到顶部
美女呀，离线，留言给我吧！
水墨青花
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：196 积分：1667 威望：0 精华：0 注册：2019/3/1 11:38:00 		  发帖心情 Post By：2019/8/5 21:48:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：filemanager2.jpg
图片点击可在新窗口打开查看
这是其他两个UserGroup的界面截图，一个是希望Visible的，一个也是不希望 Visible的。
图片点击可在新窗口打开查看此主题相关图片如下：filemanager1.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107133 积分：544908 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/5 22:31:00 [只看该作者]


[此贴子已经被作者于2019/8/5 22:33:22编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107133 积分：544908 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/5 22:34:00 [只看该作者]

调换一下代码位置

Dim ftp As new FTPClient
Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1")
fm.FTPclient = ftp
Select Case User.Group
  Case ""
……
 回到顶部
美女呀，离线，留言给我吧！
水墨青花
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：196 积分：1667 威望：0 精华：0 注册：2019/3/1 11:38:00 		  发帖心情 Post By：2019/8/6 20:55:00 [只看该作者]

谢谢！完美！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询