宏（编写代码时实用的）

最新推荐文章于 2024-05-15 15:10:55 发布

安得权

最新推荐文章于 2024-05-15 15:10:55 发布

阅读量678

点赞数

分类专栏： [ 10 ] 未归档&正则表达式文章标签： envdte module string c

本文链接：https://blog.csdn.net/CsethCRM/article/details/6023454

版权

[ 10 ] 未归档&正则表达式专栏收录该内容

72 篇文章 0 订阅

订阅专栏

Public Module Normal

    'Ctrl +  小键盘 2

    Sub NetHelper_MethodHeader_Ctrl_2()
        DTE.ActiveDocument.Selection.Text = "///"
        DTE.ActiveDocument.Selection.LineDown()
        DTE.ActiveDocument.Selection.EndOfLine()
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "<remark>"
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.LineUp()
        DTE.ActiveDocument.Selection.EndOfLine()
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "<para/>Author   :  AnDequan"
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "<para/>Date     :  " + FormatDateTime(Date.Today, 2)
    End Sub

    'Ctrl +  小键盘 1
    Sub NetHelper_SingleLine_Ctrl_1()
        DTE.ActiveDocument.Selection.Text = "// []"
        DTE.ActiveDocument.Selection.CharLeft()
        DTE.ActiveDocument.Selection.Text = " "
        DTE.ActiveDocument.Selection.CharLeft()
        DTE.ActiveDocument.Selection.Text = " "
    End Sub

    'Alt + J

    Sub NetHelper_Javascript_Alt_J()
        DTE.ActiveDocument.Selection.Text = "<script language=""javascript"" type=""text/javascript"">"
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.LineUp()
        DTE.ActiveDocument.Selection.EndOfLine()
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Save()
    End Sub


    'Ctrl + 5
    Sub NetHelper_Table_Normal_Ctrl_5()
        DTE.ActiveDocument.Selection.Text = "<table class=""normal"" bordercolor=""#a0c6e5"" cellpadding="""""
        DTE.ActiveDocument.Selection.CharLeft()
        DTE.ActiveDocument.Selection.Text = "0"
        DTE.ActiveDocument.Selection.CharRight()
        DTE.ActiveDocument.Selection.Text = " cellspacing ="""""
        DTE.ActiveDocument.Selection.CharLeft()
        DTE.ActiveDocument.Selection.Text = "0"
        DTE.ActiveDocument.Selection.CharRight()
        DTE.ActiveDocument.Selection.Text = " border=""1"">"
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.LineUp()
        DTE.ActiveDocument.Selection.EndOfLine()
        DTE.ActiveDocument.Selection.NewLine()
    End Sub

    'Alt + 3

    Sub NetHelper_Table_Normal_tr_td_Ctrl_3()
        DTE.ActiveDocument.Selection.Text = "<tr>"
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.LineUp()
        DTE.ActiveDocument.Selection.EndOfLine()
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "<td>"
        DTE.ActiveDocument.Selection.CharLeft()
        DTE.ActiveDocument.Selection.Text = " class=""odd"""
        DTE.ActiveDocument.Selection.EndOfLine()
        DTE.ActiveDocument.Selection.Text = "<td>"
        DTE.ActiveDocument.Selection.CharLeft()
        DTE.ActiveDocument.Selection.Text = " class=""even"""
        DTE.ActiveDocument.Selection.StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstText)
        DTE.ActiveDocument.Selection.Indent()
    End Sub

    'Ctrl + 4
    Sub NetHelper_InputText_Ctrl_4()
        DTE.ActiveDocument.Selection.Text = "<input id=""txt"" type=""text"" runat=""server"">"
        DTE.ActiveDocument.Selection.CharLeft(False, 31)
    End Sub

    'Alt + B
    Sub NetHelper_InputButton_Alt_B()
        DTE.ActiveDocument.Selection.Text = "<asp:Button ID=""btn"" runat=""server"" Text="""" CssClass=""btn"">"
        DTE.ActiveDocument.Selection.CharLeft(False, 42)
    End Sub

    'Alt + E
    Sub NetHelper_Eval_Alt_E()
        DTE.ActiveDocument.Selection.Text = "<%#Eval()"
        DTE.ActiveDocument.Selection.CharLeft()
        DTE.ActiveDocument.Selection.Text = """"""
        DTE.ActiveDocument.Selection.CharLeft()
    End Sub

End Module