VB6更改表单上每个控件的颜色

Question

我试图改变旧的VB6应用程序的颜色主题(让它看起来更现代!).

有人能告诉我如何在不对每个控件(标签,按钮,框架等)执行操作的情况下更改表单上每个控件的背景颜色.

我有大约50个表单,都包含这样的控件,并且在代码中为每个表单手动执行此操作需要一个年龄!

我也愿意就如何为VB6应用程序设计皮肤/主题提供更好的建议和想法？

提前致谢

Answer 1

.frm文件只是标准的ANSI文本文件.控件的背景颜色属性如下所示: -

BackColor       =   &H80000005&

(注意以上是系统颜色,但您可以使用较低的3个字节并保留高字节0来指定RGB颜色).

像Label这样的控件看起来像这样: -

Begin VB.Label Label1 
  Caption         =   "Hello:"
  Height          =   285
  Left            =   90
  TabIndex        =   3
  Top             =   480
  Width           =   1305
End

因此,通过解析.frm文件并插入(或替换)BackColor属性行,可以通过词汇方式完成该任务.

编辑:

MarkJ在评论中发布的有用链接: 表格描述属性

Answer 2

你可以为每个人做一个,并消除你不想要的控制.

Dim frmThing as Form    
Dim ctlThing as Control

For Each frmThing In Forms
  frmThing.BackColor = vbYellow
  For Each ctlThing In frmThing.Controls
    If (TypeOf ctlThing Is TextBox) Or _
    (TypeOf ctlThing Is CheckBox) Or _
    (TypeOf ctlThing Is ComboBox) Then
      ctlThing.BackColor = vbYellow
    End If
  Next
Next