VB编辑器格式之代码颜色修改
 前言
 ❤很多IDE都可以把背景色改为黑色，不同类型代码可以修改为其他不同颜色，比如Eclipse和Qt Creator，连有些文本编辑器，比如Notepad++，UltaEdit，都有这个功能。其实VB的IDE也有这个功能，只是麻烦一点，要自己一个一个去设置，请看下面效果图。
 
 第一章 上图的设置方法
 ❤“工具——选项——编辑器格式”，下面就可以设置代码颜色了
 
 
 照着上面设置，就可以出来最开始的效果图了。
 
第二章 代码颜色各文本解释
 ❤解释一下各文本的含义
 1.标准文本：可以理解为常量吧。比如数字常量1,3,5.9；字符串常量“name”,“age”；符号常量±*/，()，&等。
 2.选定文本：用鼠标拖动，连续选中一块区域的文本。有时候只想看这段代码，用鼠标连续拖动，就可以把这段代码区别出来了。
 3.语法错误文本：这个简单，写代码时，VB会自检语法，如果错误会报错。
 4.执行点文本：调试时，每执行一条代码时的文本。
 5.断点文本：打了断点的文本。
 6.注释文本：用’ 或者 Rem注释的文本
 7.密码文本：可以理解为VB的关键字，比如Public，Private，Dim ， As，Single，Long，Select，Case，If，Else，End If等等。
 8.标识符文本：就是我们定义的变量名，过程名，函数名，控件名等等。
 9.书签文本：工具栏中有一个小旗帜，点击它就可以在光标所在代码行前面添加（或者删除）一个书签，在不同的位置插入书签，可以快速的在书签之间切换，让我们切换代码的时候非常方便，不过重新打开软件时书签都没有了（这点做得不好）。
 10调用返回文本：这个不知道是什么，有时间再去看看。

 
 

  


 
 
 

  程序源码：
 
 
 
 
  

   Dim A(5) As String
  
 
  

   

  
 
  

   Private Sub Combo1_click()
  
 
  

       A(5) = Combo1.Text
  
 
  

   End Sub
  
 
  

   

  
 
  

   Private Sub Command1_Click()
  
 
  

       CB A(5), Form1
  
 
  

   End Sub
  
 
  

   

  
 
  

   Private Sub Form_Load()
  
 
  

       Dim i As Integer
  
 
  

       A(1) = "红色"
  
 
  

       A(2) = "黑色"
  
 
  

       A(3) = "黄色"
  
 
  

       A(4) = "蓝色"
  
 
  

       For i = 1 To 4
  
 
  

           Combo1.AddItem A(i)
  
 
  

       Next i
  
 
  

   End Sub
  
 
  

   

  
 
  

   Sub CB(Ys As String, Co As Object)
  
 
  

       If TypeOf Co Is Form Then
  
 
  

           Select Case Ys
  
 
  

               Case "红色"
  
 
  

                   Co.BackColor = RGB(255, 0, 0)
  
 
  

               Case "黄色"
  
 
  

                   Co.BackColor = RGB(255, 255, 0)
  
 
  

               Case "绿色"
  
 
  

                   Co.BackColor = RGB(0, 255, 0)
  
 
  

               Case "蓝色"
  
 
  

                   Co.BackColor = RGB(0, 0, 255)
  
 
  

               Case Else
  
 
  

                   MsgBox "无颜色，请选择", vbOKOnly, "提示"
  
 
  

           End Select
  
 
  

       End If
  
 
  

   End Sub
  
 
 
 

颜色常数


颜色
常数 值 描述 
vbBlack &H0 黑色 
vbRed &HFF 红色 
vbGreen &HFF00 绿色 
vbYellow &HFFFF 黄色 
vbBlue &HFF0000 兰色 
vbMagenta &HFF00FF 洋红 
vbCyan &HFFFF00 青色 
vbWhite &HFFFFFF 白色 


系统颜色
常数 值 描述 
vbScrollBars &H80000000 滚动条颜色 
vbDesktop &H80000001 桌面颜色 
vbActiveTitleBar &H80000002 活动窗口标题栏颜色 
vbInactiveTitleBar &H80000003 非活动窗口标题栏颜色 
vbMenuBar &H80000004 菜单背景颜色 
vbWindowBackground &H80000005 窗口背景颜色 
vbWindowFrame &H80000006 窗口框架颜色 
vbMenuText &H80000007 菜单上文字的颜色 
vbWindowText &H80000008 窗口内文字的颜色 
vbTitleBarText &H80000009 标题，尺寸框和滚动箭头内文字的颜色 
vbActiveBorder &H8000000A 活动窗口边框的颜色 
vbInactiveBorder &H8000000B 非活动窗口边框的颜色 
vbApplicationWorkspace &H8000000C 多文档界面 (MDI) 应用程序的背景颜色 
vbHighlight &H8000000D 控件内选中项的背景颜色 
vbHighlightText &H8000000E 控件内选中项的文字颜色 
vbButtonFace &H8000000F 绘在命令按钮正面的颜色 
vbButtonShadow &H80000010 绘在命令按钮边缘的颜色 
vbGrayText &H80000011 变灰的（无效的）文字 
vbButtonText &H80000012 揿压按钮上文字的颜色 
vbInactiveCaptionText &H80000013 非活动标题内文字的颜色 
vb3DHighlight &H80000014 三维显示元素的高亮颜色 
vb3DDKShadow &H80000015 三维显示元素的最暗阴影颜色 
vb3DLight &H80000016 低于 vb3Dhighlight 的 三维次高亮颜色 
vb3DFace &H8000000F 文字表面的颜色 
vb3DShadow  &H80000010 文字阴影的颜色 
vbInfoText &H80000017 提示窗内文字的颜色 
vbInfoBackground &H80000018 提示窗内背景的颜色
 
 
 
  
vbScrollBars
0x80000000
滚动条颜色
vbDesktop
0x80000001
桌面颜色
vbActiveTitleBar
0x80000002
活动窗口的标题栏颜色
vbInactiveTitleBar
0x80000003
非活动窗口的标题栏颜色
vbMenuBar
0x80000004
菜单背景色
vbWindowBackground
0x80000005
窗口背景色
vbWindowFrame
0x80000006
窗口框架颜色
vbMenuText
0x80000007
菜单文本颜色
vbWindowText
0x80000008
窗口文本颜色
vbTitleBarText
0x80000009
标题、调整框和滚动箭头的文本颜色
vbActiveBorder
0x8000000A
活动窗口边框颜色
vbInactiveBorder
0x8000000B
非活动窗口边框颜色
vbApplicationWorkspace
0x8000000C
多文档界面 (MDI) 应用程序的背景色
vbHighlight
0x8000000D
控件中选中项目的背景色
vbHighlightText
0x8000000E
控件中选中项目的文本颜色
vbButtonFace
0x8000000F
命令按钮表面阴影颜色
vbButtonShadow
0x80000010
命令按钮边缘阴影颜色
vbGrayText
0x80000011
灰色（无效）文本
vbButtonText
0x80000012
下压按钮文本颜色
vbInactiveCaptionText
0x80000013
非活动标题文本颜色
vb3DHighlight
0x80000014
3-D 显示元素的突出显示颜色
vb3DDKShadow
0x80000015
3-D 显示元素的最深阴影颜色
vb3DLight
0x80000016
vb3Dhighlight 之外最亮的 3-D 颜色 
vbInfoText
0x80000017
工具提示文本颜色
vbInfoBackground
0x80000018
工具提示背景色
 
 
 
 
 
 
RGB(red, green, blue)

RGB 函数的语法含有以下这些命名参数：

部分 描述 
red 必要参数；Variant (Integer)。数值范围从 0 到 255，表示颜色的红色成份。 
green 必要参数；Variant (Integer)。数值范围从 0 到 255，表示颜色的绿色成份。 
blue 必要参数；Variant (Integer)。数值范围从 0 到 255，表示颜色的兰色成份。 


说明

可以接受颜色说明的应用程序的方法和属性期望这个说明是一个代表 RGB 颜色值的数值。一个 RGB 颜色值指定红、绿、蓝三原色的相对亮度，生成一个用于显示的特定颜色。

传给 RGB 的任何参数的值，如果超过 255，会被当作 255。

下面的表格显示一些常见的标准颜色，以及这些颜色的红、绿、蓝三原色的成份：

颜色 红色值 绿色值 兰色值 
黑色 0 0 0 
兰色 0 0 255 
绿色 0 255 0 
青色 0 255 255 
红色 255 0 0 
洋红色 255 0 255 
黄色 255 255 0 
白色 255 255 255

Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting If e.Value.ToString = "未处理" Then e.CellStyle.ForeColor = Color.Red End If If e.Value.ToString = "已处理" Then e.CellStyle.ForeColor = Color.LimeGreen End If If e.Value.ToString = "处理中" Then e.CellStyle.ForeColor = Color.OrangeRed End If End Sub