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
加好友 
发短信
Post By：2016/8/18 9:21:00 [显示全部帖子]
