' 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 2015