一段生成属性的宏。

执行此宏后会弹出一个Form，在两个TextBox里输入类型和名称，会自动在编辑区中自动添加

         private   int  typeid;

         public   int  Typeid
         {
            get {return this.typeid;}
            set {this.typeid = value;}
        }

这样的property，完整的宏如下，超级郁闷为什么宏不能用C#写。

     Sub PropertyGenerator() Sub PropertyGenerator()

        Dim form As Form

        form = New Form

        form.TopMost = True

        form.Controls.Add(New TextBox)
        form.Controls.Add(New TextBox)

        form.Controls(0).Text = "type"
        form.Controls(1).Text = "name"
        form.Controls(0).Dock = DockStyle.Bottom
        form.Controls(1).Dock = DockStyle.Bottom

        form.ShowDialog()

        Dim type As String
        Dim name As String
        Dim capitaledName As String

        type = form.Controls(0).Text
        name = form.Controls(1).Text
        capitaledName = Char.ToUpper(name.Chars(0)) & name.Substring(1)

        form = Nothing

        DTE.ActiveDocument.Selection.Text = "private " & type & " " & name & ";"
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "public " & type & " " & capitaledName & ""
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "{"
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "get {return this." & name & ";}"
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "set {this." & name & " = value;}"
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "}"
        DTE.ActiveDocument.Selection.NewLine()

    End Sub

         Dim  line  As   String

         With  DTE.ActiveDocument.Selection
            line  =  .Text
         End   With

         Dim  parts  As   String ()

        parts  =  line. Split ( "   " )

         If   Not  parts.Length  =   3   Then
             Exit Sub
         End   If

         Dim  type  As   String
         Dim  name  As   String
         Dim  capitaledName  As   String

        type  =  parts( 1 )
        name  =  parts( 2 ). Replace ( " ; " ,  "" )
        capitaledName  =   Char .ToUpper(name.Chars( 0 ))  &  name.Substring( 1 )

        DTE.ActiveDocument.Selection.Text  =   " private  "   &  type  &   "   "   &  name  &   " ;"
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text  =   " public  "   &  type  &   "   "   &  capitaledName  &   " "
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text  =   " {"
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text  =   " get {return this. "   &  name  &   " ;}"
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text  =   " set {this. "   &  name  &   "  = value;}"
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text  =   " }"
        DTE.ActiveDocument.Selection.NewLine()

转载于:https://www.cnblogs.com/runmin/archive/2004/10/10/50502.html