VB开发日志:做按钮时顺便做的颜色调整工具

做按钮时顺便做的颜色调整工具,

想调整按钮颜色的,可以用这个工具.

代码中的cDefault.CLS中的

Public Sub checkdsbutton(m_ColorScheme As buttonsty)

为改颜色的地方

每个CASE就是一组颜色:

如:

      Case dsblue
          bancolor = RGB(161, 189, 207)
          HCol1 = RGB(146, 193, 217)
          HCol2 = RGB(78, 153, 200)
          HCol3 = RGB(170, 209, 230)
          HCol4 = RGB(125, 185, 223)
          HCol5 = RGB(170, 209, 230)
          HCol6 = RGB(101, 164, 215)
          FCol1 = RGB(225, 247, 255)
          FCol2 = RGB(255, 255, 255)
          FCol3 = RGB(211, 235, 246)
          FCol4 = RGB(160, 216, 251)
          FCol5 = RGB(163, 203, 223)
          FCol6 = RGB(78, 149, 205)

就是定义蓝色颜色的,其它也一样.

程序下载:

https://files.cnblogs.com/starwork/调色.rar