首页 > 代码库 > tmp
tmp
Imports System Imports System.IO Imports EnvDTE Imports EnvDTE80 Imports EnvDTE90 Imports System.Diagnostics Public Module ModuleListShortCut Public Sub ListShortcutsInHTML() ‘Declare a StreamWriter Dim sw As System.IO.StreamWriter sw = New StreamWriter("d:\\demo\\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 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><td align=""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
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。