在VS 2008文本编辑器中缩放文本的宏或其他任何内容

时间:2010-09-21 11:40:20

标签: visual-studio-2008 macros

在VS 2008文本编辑器中缩放文本的宏或其他任何内容。

1 个答案:

答案 0 :(得分:0)

我之前在博客上发表过这样的话:Most Important Macro for Presenters当然,2010年有内置功能,但这适用于2008年

' Increases the font size used within the editor.
Public Sub IncreaseTextEditorFontSize()
   Dim textEditorFontsAndColors As Properties
   textEditorFontsAndColors = DTE.Properties("FontsAndColors", "TextEditor")
   textEditorFontsAndColors.Item("FontSize").Value += fontSizeIncrement
End Sub

' Decreases the font size used within the editor.
Public Sub DecreaseTextEditorFontSize()
   Dim textEditorFontsAndColors As Properties
   Dim fontSize As [Property]

   textEditorFontsAndColors = DTE.Properties("FontsAndColors", "TextEditor")
   fontSize = textEditorFontsAndColors.Item("FontSize")

   If fontSize.Value >= minimumSupportedEditorSize Then
       fontSize.Value -= fontSizeIncrement
   End If
End Sub