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
|