Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>This seem to be what you want.</p> <p><a href="http://blog.dotsmart.net/2008/05/20/converting-visual-studio-2003-winforms-to-visual-studio-20052008-partial-classes/" rel="noreferrer">Converting Visual Studio 2003 WinForms to Visual Studio 2005/2008 partial classes </a> :</p> <blockquote> <p>NET 2.0 introduced partial classes which enables “.designer” files in Visual Studio 2005 and later. That is, all of the visual designer-generated code (control declarations, the InitializeComponent method, etc) can be kept in a file separate from your regular code. When you open up a .NET 1.x Visual Studio 2003 WinForms project up in Visual Studio 2005/2008 it will upgrade your project to .NET 2.0 just fine, but unfortunately it doesn’t migrate your WinForms classes over to the new “.designer” project structure. </p> <p>Initially I thought this would be a job for a DXCore plug-in (the free framework upon which CodeRush is built) as it provides plug-ins with an object model of the code which could be used to grab all the right members and move them over into a designer file. Before I looked into this though I checked what the options were for simply implementing it as a Visual Studio Macro. I was fully expecting to have to use a regular expression to grep the code file to perform the task, but was pleasantly surprised to find that the Visual Studio extensibility API in available to macros provides a code model (based on the .NET CodeDom I presume) which you can traverse to inspect and manipulate the underlying code. So, here’s what the resulting “ExtractWinFormsDesignerFile” macro does:</p> <ul> <li>Locates the first class in the selected project item (DTE.SelectedItems.Item(1).ProjectItem) by traversing the ProjectItem.FileCodeModel.CodeElements</li> <li>Extracts the InitializeComponent and Dispose methods from the class by traversing CodeClass.Members</li> <li>Extracts all control fields: that is, all fields whose type derives from System.Windows.Forms.Control or System.ComponentModel.Container or whose type name starts with System.Windows.Forms</li> <li>Puts all the extracted code into a new “FormName.Designer.cs” file. </li> </ul> <p>This is currently C# only – it could easily be converted to generated VB.NET code or adapted use the FileCodeModel properly and perhaps create the code in an language-agnostic way when generating the designer file. I took a shortcut in just generating the designer file as a string and writing it directly to a file. </p> <p>To “install”: <a href="http://dl.dropbox.com/u/483850/dotsmart.net-files/ExtractWinFormsDesignerFile.txt" rel="noreferrer">download the macro text</a> :</p> </blockquote> <pre><code> ' ------------------------------------------------------------------------- ' Extract WinForms Designer File Visual Studio 2005/2008 Macro ' ------------------------------------------------------------------------- ' Extracts the InitializeComponent() and Dispose() methods and control ' field delarations from a .NET 1.x VS 2003 project into a VS 2005/8 ' style .NET 2.0 partial class in a *.Designer.cs file. (Currently C# ' only) ' ' To use: ' * Copy the methods below into a Visual Studio Macro Module (use ' ALT+F11 to show the Macro editor) ' * Select a Windows Form in the Solution Explorer ' * Run the macro by showing the Macro Explorer (ALT+F8) and double ' clicking the 'ExtractWinFormsDesignerFile' macro. ' * You will then be prompted to manually make the Form class partial: ' i.e. change "public class MyForm : Form" ' to ' "public partial class MyForm : Form" ' ' Duncan Smart, InfoBasis, 2007 ' ------------------------------------------------------------------------- Sub ExtractWinFormsDesignerFile() Dim item As ProjectItem = DTE.SelectedItems.Item(1).ProjectItem Dim fileName As String = item.FileNames(1) Dim dir As String = System.IO.Path.GetDirectoryName(fileName) Dim bareName As String = System.IO.Path.GetFileNameWithoutExtension(fileName) Dim newItemPath As String = dir &amp; "\" &amp; bareName &amp; ".Designer.cs" Dim codeClass As CodeClass = findClass(item.FileCodeModel.CodeElements) Dim namespaceName As String = codeClass.Namespace.FullName On Error Resume Next ' Forgive me :-) Dim initComponentText As String = extractMember(codeClass.Members.Item("InitializeComponent")) Dim disposeText As String = extractMember(codeClass.Members.Item("Dispose")) Dim fieldDecls As String = extractWinFormsFields(codeClass) On Error GoTo 0 System.IO.File.WriteAllText(newItemPath, "" _ &amp; "using System;" &amp; vbCrLf _ &amp; "using System.Windows.Forms;" &amp; vbCrLf _ &amp; "using System.Drawing;" &amp; vbCrLf _ &amp; "using System.ComponentModel;" &amp; vbCrLf _ &amp; "using System.Collections;" &amp; vbCrLf _ &amp; "" &amp; vbCrLf _ &amp; "namespace " &amp; namespaceName &amp; vbCrLf _ &amp; "{" &amp; vbCrLf _ &amp; " public partial class " &amp; codeClass.Name &amp; vbCrLf _ &amp; " {" &amp; vbCrLf _ &amp; " #region Windows Form Designer generated code" &amp; vbCrLf _ &amp; " " &amp; fieldDecls &amp; vbCrLf _ &amp; " " &amp; initComponentText &amp; vbCrLf _ &amp; " #endregion" &amp; vbCrLf &amp; vbCrLf _ &amp; " " &amp; disposeText &amp; vbCrLf _ &amp; " }" &amp; vbCrLf _ &amp; "}" &amp; vbCrLf _ ) Dim newProjItem As ProjectItem = item.ProjectItems.AddFromFile(newItemPath) On Error Resume Next newProjItem.Open() DTE.ExecuteCommand("Edit.FormatDocument") On Error GoTo 0 MsgBox("TODO: change your class from:" + vbCrLf + _ " ""public class " + codeClass.FullName + " : Form""" + vbCrLf + _ "to:" + _ " ""public partial class " + codeClass.FullName + " : Form""") End Sub Function findClass(ByVal items As System.Collections.IEnumerable) As CodeClass For Each codeEl As CodeElement In items If codeEl.Kind = vsCMElement.vsCMElementClass Then Return codeEl ElseIf codeEl.Children.Count &gt; 0 Then Dim cls As CodeClass = findClass(codeEl.Children) If cls IsNot Nothing Then Return findClass(codeEl.Children) End If End If Next Return Nothing End Function Function extractWinFormsFields(ByVal codeClass As CodeClass) As String Dim fieldsCode As New System.Text.StringBuilder For Each member As CodeElement In codeClass.Members If member.Kind = vsCMElement.vsCMElementVariable Then Dim field As CodeVariable = member If field.Type.TypeKind &lt;&gt; vsCMTypeRef.vsCMTypeRefArray Then Dim fieldType As CodeType = field.Type.CodeType Dim isControl As Boolean = fieldType.Namespace.FullName.StartsWith("System.Windows.Forms") _ OrElse fieldType.IsDerivedFrom("System.Windows.Forms.Control") _ OrElse fieldType.IsDerivedFrom("System.ComponentModel.Container") If isControl Then fieldsCode.AppendLine(extractMember(field)) End If End If End If Next Return fieldsCode.ToString() End Function Function extractMember(ByVal memberElement As CodeElement) As String Dim memberStart As EditPoint = memberElement.GetStartPoint().CreateEditPoint() Dim memberText As String = String.Empty memberText += memberStart.GetText(memberElement.GetEndPoint()) memberStart.Delete(memberElement.GetEndPoint()) Return memberText End Function </code></pre> <blockquote> <p>and copy the methods into a Visual Studio Macro Module (use ALT+F11 to show the Macro editor).<br> To use:</p> <ul> <li>Select a Windows Form in the Solution Explorer</li> <li>Run the macro by showing the Macro Explorer (ALT+F8) and double-clicking the ‘ExtractWinFormsDesignerFile’ macro. (Obviously you can hook the macro up to a toolbar button if you like.)</li> <li>You will then be prompted to manually make the Form class partial (another bit I was too lazy to work out how to get the macro to do): i.e. change public class MyForm : Form to public partial class MyForm : Form</li> </ul> </blockquote>
    singulars
    1. This table or related slice is empty.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. VO
      singulars
      1. This table or related slice is empty.
    2. VO
      singulars
      1. This table or related slice is empty.
    3. VO
      singulars
      1. This table or related slice is empty.
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload