feature(): Add MethodNameNotMeaningful inspection to vb.net

Author: Wolfgang Janz

CleanCode/src/CleanCode/CleanCode.csproj

@@ -176,6 +176,7 @@
     <Compile Include="Features\HollowNames\HollowNamesCheckVb.cs" />
     <Compile Include="Features\HollowNames\HollowTypeNameHighlighting.cs" />
     <Compile Include="Features\HollowNames\HollowNamesCheck.cs" />
+    <Compile Include="Features\MethodNameNotMeaningful\MethodNameNotMeaningfulCheckVb.cs" />
     <Compile Include="Features\MethodNameNotMeaningful\MethodNameNotMeaningfulHighlighting.cs" />
     <Compile Include="Features\MethodNameNotMeaningful\MethodNameNotMeaningfulCheck.cs" />
     <Compile Include="Features\MethodTooLong\MethodTooLongCheckVb.cs" />

CleanCode/src/CleanCode/Features/MethodNameNotMeaningful/MethodNameNotMeaningfulCheckVb.cs

@@ -0,0 +1,33 @@
+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.MethodNameNotMeaningful
+{
+    [ElementProblemAnalyzer(typeof(IMethodDeclaration), HighlightingTypes = new []
+    {
+        typeof(MethodNameNotMeaningfulHighlighting)
+    })]
+    public class MethodNameNotMeaningfulCheckVb : ElementProblemAnalyzer<IMethodDeclaration>
+    {
+        protected override void Run(IMethodDeclaration element, ElementProblemAnalyzerData data, IHighlightingConsumer consumer)
+        {
+            if (element.Name == null)
+                return;
+
+            var minimumMethodNameLength = data.SettingsStore.GetValue((CleanCodeSettings s) => s.MinimumMeaningfulMethodNameLength);
+
+            var name = element.Name.GetText();
+            var methodNameLength = name.Length;
+            if (methodNameLength < minimumMethodNameLength)
+            {
+                var documentRange = element.GetNameDocumentRange();
+                var highlighting = new MethodNameNotMeaningfulHighlighting(documentRange);
+                consumer.AddHighlighting(highlighting);
+            }
+        }
+    }
+}

CleanCode/src/CleanCode/Features/MethodNameNotMeaningful/MethodNameNotMeaningfulHighlighting.cs

@@ -4,6 +4,7 @@
 using JetBrains.DocumentModel;
 using JetBrains.ReSharper.Feature.Services.Daemon;
 using JetBrains.ReSharper.Psi.CSharp;
+using JetBrains.ReSharper.Psi.VB;
 
 [assembly: RegisterConfigurableSeverity(MethodNameNotMeaningfulHighlighting.SeverityID, null, 
     CleanCodeHighlightingGroupIds.CleanCode, "Method name not meaningful",
@@ -12,7 +13,7 @@
 
 namespace CleanCode.Features.MethodNameNotMeaningful
 {
-    [ConfigurableSeverityHighlighting(SeverityID, CSharpLanguage.Name)]
+    [ConfigurableSeverityHighlighting(SeverityID, CSharpLanguage.Name + "," + VBLanguage.Name)]
     public class MethodNameNotMeaningfulHighlighting : IHighlighting
     {
         internal const string SeverityID = "MethodNameNotMeaningful";