更改控件的背景颜色

时间:2012-10-31 14:55:41

标签: vba ms-access ms-access-2010

此问题与我之前的问题here

有关

摘要:我使用了访问97制作的表单,主题没有对它们起作用。因为,我更改了每个控件的Theme属性,现在我可以在它们上应用主题。

它适用于字体。正如您所看到的,字体随着主题的变化而变化,就像在2010年访问2010中所做的那样。

enter image description here enter image description here

但是我不能让标签和命令按钮的背景颜色像真正的访问2010表单那样工作。

我更改了backcolorBackThemeColorIndex属性,但是当我更改主题时颜色保持不变。我错过了另一处房产吗? Here's MSDN列表

这是我脚本中所有属性的列表。

myControl.HoverThemeColorIndex = 1
myControl.HoverTint = 100
myControl.HoverForeThemeColorIndex = 1
myControl.HoverForeTint = 100
myControl.HoverShade = 100

myControl.PressedForeThemeColorIndex = 1
myControl.PressedForeTint = 100
myControl.PressedShade = 100
myControl.PressedThemeColorIndex = 1
myControl.PressedTint = 100
myControl.UseTheme = 1 

myControl.ForeThemeColorIndex = 1
myControl.BackThemeColorIndex = 1
myControl.BackColor = RGB(250, 100, 100)
myControl.BackTint = 100
myControl.BackShade = 100

myControl.BorderThemeColorIndex = 0
myControl.BorderTint = 50
myControl.BorderShade = 100

myControl.ThemeFontIndex = 1
myControl.ForeThemeColorIndex = 0
myControl.ForeTint = 75
myControl.ForeShade = 100

myControl.GridlineThemeColorIndex = 1
myControl.GridlineTint = 100
myControl.GridlineShade = 65

谢谢

1 个答案:

答案 0 :(得分:0)

尝试将Gradient属性更改为12

例如

myControl.Gradient = 12

或者,您可以创建新表单并插入按钮,然后复制按钮并将其临时粘贴到其他表单上,并使用Painter格式复制属性。