Private Function GetClassElement() As CodeClass2 StartPoint.CreateEditPoint().SmartFormat(endOfSignature) ' and 1 sad hack - appears to be no way to programmatically add the :base() calls without using direct string manipulationДim startPoint As TextPoint = ctor.GetStartPoint()Дim endOfSignature As EditPoint = startPoint.CreateEditPoint() ' if there are no other ctors, put this one at the topДim ctor As CodeFunction2 = classInfo.AddFunction(classInfo.Name, vsCMFunction.vsCMFunctionConstructor, vsCMTypeRef.vsCMTypeRefVoid, position, parentConstructor.Access)ДЇor Each parameter As CodeParameter2 In parentConstructor.ParametersД¬tor.AddParameter(parameter.Name, parameter.Type, -1) ' note that passing zero as the position (put the ctor first) caused some problems when we were adding ctors to classes that already had ctorsДim ctors As (Of CodeFunction2) = GetConstructors(classInfo) ' highly inefficient hack to position the ctor where I want it (after the last ctor in the class, if there is another ctor ' adds a constructor to the current class, based upon the parentConstructor that is passed in Private Sub StubConstructor(ByVal classInfo As CodeClass2, ByVal parentConstructor As CodeFunction2) If Then Continue ForДЇor count As Integer = 1 To ' return null if no match is found, otherwise returns first matchДЇor Each func As CodeFunction In functions ' given a function (searchFunction), searches a list of functions where the function signatures (not necessarily the names) match Private Function MatchingSignatureExists(ByVal searchFunction As CodeFunction2, ByVal functions As (Of CodeFunction2)) As Boolean If func.FunctionKind = vsCMFunction.vsCMFunctionConstructor Then filter out just the function members, and then of the functions, grab just the ctors

' members collection has all class members. ' return a list of all of the constructors in the specified classДim result As (Of CodeFunction2) = New (Of CodeFunction2)ДЇor Each member As CodeElement2 In classInfo.Members Private Function GetConstructors(ByVal classInfo As CodeClass2) As (Of CodeFunction2) ' note: a dictionary could be more efficient, but I doubt most classes will have more than 4 or 5 ctors. ' we only want to create ctor stubs for ctors that are missing If Not MatchingSignatureExists(constructor, childConstructors) Then 'setting up an undo context - one ctrl+z undoes everythingДTE.UndoContext.Open('StubConstructorsContext', False)Дim parentInfo As CodeClass2 = (1)Дim childConstructors As (Of CodeFunction2) = GetConstructors(classInfo)Дim parentConstructors As (Of CodeFunction2) = GetConstructors(parentInfo)ДЇor Each constructor As CodeFunction2 In parentConstructors Make sure that this file, and any file containing parent classes compiles and try again') Show('No parent class was found for this class. Make sure that this file compiles and try again.', 'Error') Show('No class was found surrounding the cursor. 'adds stubs for all of the constructors in the current class's base classДim selection As TextSelection = Дim classInfo As CodeClass2 = GetClassElement()

Resharper 9 visual studio 2013