Select Case user.name Case "开发者","管理员" Case "XXX" Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1") fm.DeleteCommand.Enabled = False fm.ClearCommand.Enabled = False Case Else Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1") fm.DeleteCommand.Enabled = False fm.ClearCommand.Enabled = False fm.AddCommand.Enabled = False End Select