Question

我正在尝试更改旧VB6应用程序的颜色主题（让它看起来更现代！）。

有人可以告诉我如何在不对每个控件（标签，按钮，框架等）执行此操作的情况下更改窗体上每个控件的背景颜色。

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

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

提前致谢

Answer 1

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

BackColor       =   &H80000005&

（注意以上是系统颜色，但您可以使用较低的3个字节并保留高字节0来指定RGB颜色。）

这样的标签控件如下所示： -

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

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

修改

MarkJ评论中发布的有用链接：Form Description Properties

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

Answer 3

您可以在运行时通过循环Controls集合并设置每个的背景来完成此操作。这将使您可以灵活地更改主题。

您还可以处理源文件，解析控件并输入/更改所需的背景颜色。这种方法可能更多的工作，以减少奖励。

Answer 4

只是为了完整......

ssCheck没有BackColor属性，并且会使用上述方法产生错误

〜麦克〜

Answer 5

现在可以追溯到几年了，但是没有“透明”的背景色？

将所有标签设置为具有透明背景，您只需将表单颜色设置一次。

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

5 个答案: