这是一个很好的做法。选择“宏IDE ......”,然后打开“EnvironmentEvents”并添加以下“自动生成的代码”区域之后:
Sub handleColorSettings() Handles SolutionEvents.opened, DocumentEvents.documentopening
Dim myColor As UInt32
myColor = &HC0FFFF
Try
myColor = UInt32.Parse(IO.File.ReadAllText(DTE.Solution.FullName & ".bgcolor.txt"), Globalization.NumberStyles.AllowHexSpecifier)
Catch ex As Exception
End Try
CType(DTE.Properties("FontsAndColors", "TextEditor").Item("FontsAndColorsItems").Object, EnvDTE.FontsAndColorsItems).Item("Plain Text").Background = myColor
End Sub
任何时候,一个项目被打开,或文件是项目内打开,系统将查找名称为“(fullSolutionName).bgcolor.txt”的文件。如果例如解决方案是“myThing.sln”,则使用的文件将是“myThing.sln.bgcolor.txt”。如果找到这样的文件并且它包含有效的十六进制数字,那么将用作背景颜色。否则,将使用默认颜色(上面的& hC0FFFF,但很容易更改)。
顺便说一句,我曾经感谢你让我走上正确的道路吗? – supercat 2013-04-17 14:52:45