C# -> VB: Convert enums with explicit base type - fixes #207

Author: GrahamTheCoder

ICSharpCode.CodeConverter/VB/NodesVisitor.cs

@@ -263,7 +263,8 @@ public override VisualBasicSyntaxNode VisitInterfaceDeclaration(CSS.InterfaceDec
         public override VisualBasicSyntaxNode VisitEnumDeclaration(CSS.EnumDeclarationSyntax node)
         {
             var members = node.Members.Select(m => (StatementSyntax)m.Accept(TriviaConvertingVisitor));
-            var baseType = (TypeSyntax)node.BaseList?.Types.Single().Accept(TriviaConvertingVisitor);
+            var baseType = (TypeSyntax)node.BaseList?
+                .Types.OfType<CSS.SimpleBaseTypeSyntax>().Single().Type.Accept(TriviaConvertingVisitor);
             return SyntaxFactory.EnumBlock(
                 SyntaxFactory.EnumStatement(
                     SyntaxFactory.List(node.AttributeLists.Select(a => (AttributeListSyntax)a.Accept(TriviaConvertingVisitor))), CommonConversions.ConvertModifiers(node.Modifiers), CommonConversions.ConvertIdentifier(node.Identifier),

Tests/VB/NamespaceLevelTests.cs

@@ -144,6 +144,18 @@ public void TestEnum()
 End Enum");
         }
 
+        [Fact]
+        public void TestEnumWithExplicitBaseType()
+        {
+            TestConversionCSharpToVisualBasic(
+    @"public enum ExceptionResource : byte
+{
+    Argument_ImplementIComparable
+}", @"Public Enum ExceptionResource As Byte
+    Argument_ImplementIComparable
+End Enum");
+        }
+
         [Fact]
         public void TestClassInheritanceList()
         {