Foxtable(狐表)用户栏目专家坐堂 → 多文件管理怎么按用户限制


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

主题:多文件管理怎么按用户限制

帅哥哟,离线,有人找我吗?
qwz405
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:5049 威望:0 精华:0 注册:2015/4/15 15:25:00
  发帖心情 Post By:2016/6/9 20:39:00 [显示全部帖子]

 Dim f1 As WinForm.FileManager = e.Form.Controls("file1")    '控制文件管理器各按键是否可见
    f1.AddCommand.Visible = True          '增加
    f1.AddFolderCommand.Visible = True    '目录
    f1.DeleteCommand.Visible = True       '删除
    f1.ClearCommand.Visible = True        '清除
    f1.OpenCommand.Visible = True         '打开
    f1.ManagerCommand.Visible = False     '管理
    f1.SaveAsCommand.Visible = True       '另存
    f1.ConnectCommand.Visible = True      '重连

 回到顶部
帅哥哟,离线,有人找我吗?
qwz405
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:5049 威望:0 精华:0 注册:2015/4/15 15:25:00
  发帖心情 Post By:2016/6/9 20:39:00 [显示全部帖子]

Dim p1 As WinForm.PictureViewer = e.Form.Controls("picture1")   '控制图片浏览器各按键是否可见
    p1.AddCommand.Visible = True         '增加
    p1.DeleteCommand.Visible = True      '删除
    p1.ClearCommand.Visible = True       '清除
    p1.OpenCommand.Visible = False       '打开
    p1.FullViewCommand.Visible = True    '全屏
    p1.ManagerCommand.Visible = False    '管理
    p1.SaveAsCommand.Visible = True      '另存
    p1.StretchCommand.Visible = True     '缩放
    p1.UpdateCommand.Visible = True      '更新
    p1.ConnectCommand.Visible = True     '重连


 回到顶部