feature(): Add TooManyArguments inspection to vb.net

Author: Wolfgang Janz

CleanCode/src/CleanCode/CleanCode.csproj

@@ -184,6 +184,7 @@
       <SubType>Code</SubType>
     </Compile>
     <Compile Include="Features\TooManyDependencies\TooManyDependenciesCheck.cs" />
+    <Compile Include="Features\TooManyMethodArguments\TooManyMethodArgumentsCheckVb.cs" />
     <Compile Include="Features\TooManyMethodArguments\TooManyMethodArgumentsCheck.cs" />
     <Compile Include="Features\TooManyMethodArguments\TooManyArgumentsHighlighting.cs">
       <SubType>Code</SubType>

CleanCode/src/CleanCode/Features/TooManyMethodArguments/TooManyArgumentsHighlighting.cs

@@ -3,14 +3,15 @@
 using JetBrains.DocumentModel;
 using JetBrains.ReSharper.Feature.Services.Daemon;
 using JetBrains.ReSharper.Psi.CSharp;
+using JetBrains.ReSharper.Psi.VB;
 
 [assembly: RegisterConfigurableSeverity(TooManyArgumentsHighlighting.SeverityID, null, 
     CleanCodeHighlightingGroupIds.CleanCode, "Too many arguments", "Too many arguments passed to a method.",
     Severity.WARNING, false)]
 
 namespace CleanCode.Features.TooManyMethodArguments
 {
-    [ConfigurableSeverityHighlighting(SeverityID, CSharpLanguage.Name)]
+    [ConfigurableSeverityHighlighting(SeverityID, CSharpLanguage.Name + "," + VBLanguage.Name)]
     public class TooManyArgumentsHighlighting : IHighlighting
     {
         internal const string SeverityID = "TooManyArguments";

CleanCode/src/CleanCode/Features/TooManyMethodArguments/TooManyMethodArgumentsCheckVb.cs

@@ -0,0 +1,30 @@
+using CleanCode.Resources;
+using CleanCode.Settings;
+using JetBrains.Application.Settings;
+using JetBrains.ReSharper.Daemon.Stages.Dispatcher;
+using JetBrains.ReSharper.Feature.Services.Daemon;
+using JetBrains.ReSharper.Psi.VB.Tree;
+using JetBrains.ReSharper.Psi.Tree;
+
+namespace CleanCode.Features.TooManyMethodArguments
+{
+    [ElementProblemAnalyzer(typeof(IMethodDeclaration), HighlightingTypes = new []
+    {
+        typeof(TooManyArgumentsHighlighting)
+    })]
+    public class TooManyMethodArgumentsCheckVb : ElementProblemAnalyzer<IMethodDeclaration>
+    {
+        protected override void Run(IMethodDeclaration element, ElementProblemAnalyzerData data, IHighlightingConsumer consumer)
+        {
+            var maxParameters = data.SettingsStore.GetValue((CleanCodeSettings s) => s.MaximumMethodParameters);
+            var parameterDeclarations = element.ParameterDeclarations;
+
+            if (parameterDeclarations.Count > maxParameters)
+            {
+                var highlighting = new TooManyArgumentsHighlighting(Warnings.TooManyMethodArguments,
+                    element.GetNameDocumentRange());
+                consumer.AddHighlighting(highlighting);
+            }
+        }
+    }
+}