EXCEL VBA:使用相关调色板颜色

2015-04-13 12:11 阅读 127 次 评论关闭

当为  色显示设计时,有些颜色可能会出现抖动。这可能使文本或其他的图形元素难于辨认。通过指定一个相关调色板颜色,Visual Basic 能够在以更高的颜色深度精确地显示颜色的同时,显示 256 色中某种指定颜色的最近似的非抖动颜色。

要强制 Visual Basic 对一个给定的属性使用最近似的单色而不是抖动的颜色,可以在该颜色属性的高位字节放置一个 2,例如,要强制一个窗体的背景色为纯浅橙色,可以使用下面的代码:

Private Function PaletteRGB(RGB As Long) As Long
 PaletteRGB = &H02000000 Or RGB
End Function

如果在设计时设置下面的属性:

Form1.BackColor = &H00C0E0FF&    '抖动的浅橙色

并且添加下列代码到 Form_Click 事件中:

Private Sub Form_Click()
   Form1.BackColor = PaletteRGB(Form1.BackColor)
End Sub

在运行时单击该窗体,其背景色将改变为单色而不是抖动的阴影。现在,它所使用的是来自于 halftone 调色板的最近似的颜色。如果系统运行的颜色深度高于  色,可能就看不到这种效果。

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:EXCEL VBA:使用相关调色板颜色 | 猎微网

评论已关闭!