VB中自动随机变色调色板代码

Private Sub Timer1_Timer()

Randomize

Form1.BackColor=Rgb(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))

End Sub

Private Sub Command1_Click()

unload Me

End If

'运行前,请添加一个计时器,设置Interval属性为100,和一个命令按钮

显示器可以被设置成16、256、64K、真彩色等显示模式，前两种模式需要调色板。在16或256色模式下，程序必须将想要显示的颜色正确地设置到调色板中，这样才能显示出预期的颜色。

      Windows是一个多任务 *** 作系统，可以同时运行多个程序。如果有几个程序都要设置调色板，就有可能产生冲突。为了避免这种冲突，Windows使用逻辑调色板来作为使用颜色的应用程序和系统调色板（物理调色板）之间的缓冲。

      在Windows中，应用程序是通过一个或多个逻辑调色板来使用系统调色板（物理调色板）。在256色系统调色板中，Windows保留了20种颜色作为静态颜色，这些颜色用作显示Windows界面，应用程序一般不能改变。缺省的系统调色板只包含这20种静态颜色，调色板的其它项为空。应用程序要想使用新的颜色，必须将包含有所需颜色的逻辑调色板实现到系统调色板中。在实现过程中，Windows首先将逻辑调色板中的项与系统调色板中的项作完全匹配，对于逻辑调色板中不能完全匹配的项，Windows将其加入到系统调色板的空白项中，系统调色板总共有236个空白项可供使用，若系统调色板已满，则Windows将逻辑调色板的剩余项匹配到系统调色板中尽可能接近的颜色上。

---