這是一個很好的做法。選擇「宏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