none
FxCop RRS feed

  • Question

  • Bonjour, je dois créer des règles FxCop(1.30) pour l'assurance qualité du Ministère du Revenu, je ne suis pas capable de charger mes règles, ceci est seulement un petit projet, j'ai environ 25 autres règles dans un autre projet dont la moitié son codé et elle ne marche toute pas avec la même erreur. Il serait grandement apprécié d'avoir une réponse le plus tôt possible, si vous croyez que je serais mieux d'écrire sur MSDN anglais faite moi signe en faite j'ai été redirigé ici.

      ->  La référence d'objet n'est pas définie à une instance d'un objet.

     

    Code Snippet

    Imports System.Reflection

    Imports Microsoft.Tools.FxCop.Sdk

    Imports Microsoft.Cci

    Imports System

    Imports System.Text

    Imports Microsoft.Tools.FxCop.Sdk.Introspection

    Imports Microsoft.Tools.FxCop.Sdk.RuleResourceReader

    <CLSCOMPLIANT(< FONT>False)> _

    Public NotInheritable Class AttributDebuteParA

    Inherits ClasseBase

    Public Sub New()

    MyBase.New("AttributDebuteParA")

    End Sub

    Public Overloads Function Check(ByVal _monAssembly As [Assembly]) As Problem()

    Dim mesProblemes(3) As Problem

    Dim mesMethodes As Method

    Dim oType, oTypes() As Type

    oTypes = _monAssembly.GetTypes()

    Dim oAttrib, oAttribs() As Attribute

    oAttribs = Attribute.GetCustomAttributes(_monAssembly)

    For Each oType In oTypes

    If oType.MemberType = MemberTypes.Method Then

    If (oType.Name.StartsWith("a")) Then

    mesProblemes(1) = (New Problem(MyBase.GetResolution(), MessageLevel.Warning, 99, oType.Name))

    End If

    End If

    Next

    For Each oAttrib In oAttribs

    If (oAttrib.GetType.Name.StartsWith("a")) Then

    mesProblemes(1) = (New Problem(MyBase.GetResolution(), MessageLevel.Warning, 99, oAttrib.GetType.Name))

    End If

    Next

    Return mesProblemes

    End Function

    End Class

     

     

     

    Code Snippet

    Imports System.Reflection

    Imports Microsoft.Tools.FxCop.Sdk

    Imports Microsoft.Cci

    Imports Microsoft.Tools.FxCop.Sdk.Introspection

    <CLSCompliant(False)> _

    Public MustInherit Class ClasseBase

    Inherits BaseIntrospectionRule

    Protected Sub New(ByVal name As String)

    MyBase.New(name, "ProjetQualite.AssuranceQualiteRules", GetType(ClasseBase).Assembly)

    End Sub

    End Class

     

     

     

    jeudi 10 avril 2008 20:30

Toutes les réponses