added ctor snippet for VB and fixed VB-specific issues in the InsertCtor*-logic

src/AddIns/DisplayBindings/AvalonEdit.AddIn/Src/Snippets/SnippetManager.cs

@@ -219,6 +219,14 @@ End If",
 End While",
 						Keyword = "While"
 					},
+					new CodeSnippet {
+						Name = "ctor",
+						Description = "Constructor",
+						Text = @"Public Sub New(${anchor:parameterList})
+	${refactoring:ctor}
+End Sub",
+						Keyword = "Sub"
+					},
 					new CodeSnippet {
 						Name = "Select",
 						Description = "Select statement",

src/AddIns/Misc/SharpRefactoring/Project/Src/Gui/InsertCtorDialog.xaml.cs

@@ -80,7 +80,7 @@ namespace SharpRefactoring.Gui
 							new ThrowStatement(
 								new ObjectCreateExpression(
 									new TypeReference("ArgumentOutOfRangeException"),
-									new List<Expression>() { new PrimitiveExpression(w.ParameterName, '"' + w.ParameterName + '"'), new IdentifierExpression(w.ParameterName), new BinaryOperatorExpression(new PrimitiveExpression("Value must be between "), BinaryOperatorType.Add, new BinaryOperatorExpression(new IdentifierExpression("lower"), BinaryOperatorType.Add, new BinaryOperatorExpression(new PrimitiveExpression(" and "), BinaryOperatorType.Add, new IdentifierExpression("upper")))) }
+									new List<Expression>() { new PrimitiveExpression(w.ParameterName, '"' + w.ParameterName + '"'), new IdentifierExpression(w.ParameterName), new BinaryOperatorExpression(new PrimitiveExpression("Value must be between "), BinaryOperatorType.Concat, new BinaryOperatorExpression(new IdentifierExpression("lower"), BinaryOperatorType.Concat, new BinaryOperatorExpression(new PrimitiveExpression(" and "), BinaryOperatorType.Concat, new IdentifierExpression("upper")))) }
 								)
 							)
 						)

src/AddIns/Misc/SharpRefactoring/Project/Src/InsertCtorSnippetRefactoring.cs

@@ -70,14 +70,17 @@ namespace SharpRefactoring
 		{
 			int i = 0;
 			
-			foreach (var f in sourceClass.Fields.Where(field => !field.IsConst && field.IsStatic == sourceClass.IsStatic)) {
+			foreach (var f in sourceClass.Fields.Where(field => !field.IsConst
+			                                           && field.IsStatic == sourceClass.IsStatic
+			                                           && field.ReturnType != null)) {
 				yield return new PropertyOrFieldWrapper(f) { Index = i, IsSelected = true };
 				i++;
 			}
 			
 			foreach (var p in sourceClass.Properties.Where(prop => prop.CanSet && !prop.IsIndexer
 			                                               && PropertyRefactoringMenuBuilder.IsAutomaticProperty(prop)
-			                                               && prop.IsStatic == sourceClass.IsStatic)) {
+			                                               && prop.IsStatic == sourceClass.IsStatic
+			                                               && prop.ReturnType != null)) {
 				yield return new PropertyOrFieldWrapper(p) { Index = i, IsSelected = true };
 				i++;
 			}