您的位置:首页 > 其它

vs2008快捷键生成

2010-02-10 21:48 309 查看
Imports System


Imports EnvDTE


Imports EnvDTE80


Imports EnvDTE90


Imports System.Diagnostics


Imports System.IO


 


 


Public Module Module1


Public Sub ListShortcutsInHTML()


'Declare a StreamWriter


Dim sw As System.IO.StreamWriter


sw = New StreamWriter("d:\\Shortcuts.html")


 


'Write the beginning HTML


WriteHTMLStart(sw)


 


' Add a row for each keyboard shortcut


For Each c As Command In DTE.Commands


If c.Name <> "" Then


Dim bindings As System.Array


bindings = CType(c.Bindings, System.Array)


For i As Integer = 0 To bindings.Length - 1


sw.WriteLine("<tr>")


sw.WriteLine("<td>" + c.Name + "</td>")


sw.WriteLine("<td>" + bindings(i) + "</td>")


sw.WriteLine("</tr>")


Next




End If


Next




'Write the end HTML


WriteHTMLEnd(sw)


 


'Flush and close the stream


sw.Flush()


sw.Close()


 


End Sub




'Declare a StreamWriter




Public Sub WriteHTMLStart(ByVal sw As System.IO.StreamWriter)


sw.WriteLine("<html>")


sw.WriteLine("<head>")


sw.WriteLine("<title>")


 


sw.WriteLine("Visual Studio Keyboard Shortcuts")


sw.WriteLine("</title>")


sw.WriteLine("</head>")


 


sw.WriteLine("<body>")


sw.WriteLine("<h1>Visual Studio 2005 Keyboard Shortcuts</h1>")


sw.WriteLine("<font size=""2"" face=""Verdana"">")


sw.WriteLine("<table border=""1"">")


sw.WriteLine("<tr BGCOLOR=""#018FFF""><td align=""center""><b>Command</b></td><tdalign=""center""><b>Shortcut</b></td></tr>")


 


 


End Sub




Public Sub WriteHTMLEnd(ByVal sw As System.IO.StreamWriter)


sw.WriteLine("</table>")


sw.WriteLine("</font>")


sw.WriteLine("</body>")


sw.WriteLine("</html>")


End Sub




End Module






.codearea{ color:black; background-color:white; line-height:18px; border:1px solid #4f81bd; margin:0; width:auto !important; width:100%; overflow:auto; text-align:left; font-size:12px; font-family: "Courier New","Consolas","Fixedsys","BitStream Vera Sans Mono", courier,monospace,serif}
.codearea pre{ color:black; line-height:18px; padding:0 0 0 12px !important; margin:0em; background-color:#fff !important}
.linewrap pre{white-space:pre-wrap; white-space:-moz-pre-wrap; white-space:-pre-wrap; white-space:-o-pre-wrap; word-wrap:break-word; word-break:normal}
.codearea pre.alt{ background-color:#f7f7ff !important}
.codearea .lnum{color:#4f81bd;line-height:18px}


内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: