Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]FileManager 问题


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

主题：[求助]FileManager 问题
帅哥哟，离线，有人找我吗？
wangyinming
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：286 积分：2345 威望：0 精华：0 注册：2013/8/30 3:37:00 		[求助]FileManager 问题  发帖心情 Post By：2016/8/18 9:21:00 [只看该作者]

想让窗口中所有的FileManager控件（1~7），按用户组显示各命令。

一个一个写太麻烦了吧，有简化的办法吗？
Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1")
Dim fm2 As WinForm.FileManager = e.Form.Controls("FileManager2")
Dim fm3 As WinForm.FileManager = e.Form.Controls("FileManager3")
Dim fm4 As WinForm.FileManager = e.Form.Controls("FileManager4")
Dim fm5 As WinForm.FileManager = e.Form.Controls("FileManager6")
Dim fm6 As WinForm.FileManager = e.Form.Controls("FileManager7")


If User.Group = "查询" Then
    fm.DeleteCommand.Visible = False
    fm.ClearCommand.Visible = False
    fm.Addcommand.visible = False
    fm.AddFolderCommand.visible = False
    fm.SaveAsCommand.visible = False
    
    
Else
    If User.Group = "文件管理" Then
        fm.DeleteCommand.Visible = False
    Else
        
        If User.Group = "特定用户" Then
            fm.DeleteCommand.Visible = False
            fm.ClearCommand.Visible = False
            fm.Addcommand.visible = False
            fm.AddFolderCommand.visible = False
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/18 9:27:00 [只看该作者]

For i As Integer = 1 To 7
    Dim fm As WinForm.FileManager = e.Form.Controls("FileManager" & i)
    If User.Group = "查询" Then
        fm.DeleteCommand.Visible = False
        fm.ClearCommand.Visible = False
        fm.Addcommand.visible = False
        fm.AddFolderCommand.visible = False
        fm.SaveAsCommand.visible = False
       
       
    Else
        If User.Group = "文件管理" Then
            fm.DeleteCommand.Visible = False
        Else
           
            If User.Group = "特定用户" Then
                fm.DeleteCommand.Visible = False
                fm.ClearCommand.Visible = False
                fm.Addcommand.visible = False
                fm.AddFolderCommand.visible = False
            End If
        End If
    End If
next

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