Color
 
设置与控制台输出和文本图形输出一起使用的显示前景/背景颜色

语法

Declare Function Color ( ByVal foreground As Integer , ByVal background As Integer ) As Integer

用法

Color [foreground ] [, background ]
result = Color [( [foreground ] [, background ] )]

参数

foreground
前景色设置
background
背景颜色设置

返回值

返回包含低位字中当前前景色的32位Integer和高位字中的当前背景颜色。（在hi / truecolor模式下，只返回前景色，占用整个32位。）
可以在设置新颜色值的同时检索旧颜色值。

说明

Color语句设置当前前景和/或背景颜色。当您未指定颜色时，Circle，Draw，Line （图形），Cls，Paint，Print，PReset和PSet均使用此函数设置的最后一个颜色，如适用。Color接受的颜色值取决于当前的图形模式。

模式含义
1前景是屏幕颜色（范围0-15）。背景是要使用的模拟CGA调色板：0（绿色，红色和棕色），1（青色，品红色和白色），2（与0相同，但具有明亮的颜色）或3（与1相同但与亮颜色）
2, 11foreground是当前调色板中的颜色索引（范围为0-1）。背景是当前调色板中的颜色索引（范围0-1）。
7, 8foreground是当前调色板中的颜色索引（范围0-15）。背景是当前调色板中的屏幕颜色索引（范围0-15）。
9foreground是当前调色板中的颜色索引（范围0-63）。背景是当前调色板中的屏幕颜色索引（范围0-63）。
12foreground是当前调色板中的颜色索引（范围0-15）。背景是当前调色板中的颜色索引（范围0-15）。
13以上foreground是当前调色板中的颜色索引（范围0-255）。背景是当前调色板中的颜色索引（范围0-255）。


如果您使用的颜色深度高于8bpp，则前景和背景是&hAARRGGBB 形式的直接RGB颜色值，其中AA ，RR ，GG 和BB 是alpha，红色，绿色和蓝色组件范围为&h00 - &hFF（0 - 255，十进制）。在hi / truecolor模式下，您可以使用RGB或RGBA宏来获取有效的颜色值。
输入Screen模式时，会自动设置默认调色板.

例子

'将320x240设置为32bpp颜色深度
Screen 14, 32

'设置橙色前景和深蓝色背景颜色
Color RGB(255, 128, 0), RGB(0, 0, 64)

'将屏幕清理为背景颜色
Cls                     

'打印“Hello World！”在屏幕的中间
Locate 15, 14
Print "你好，世界！"

Sleep


Dim c As UInteger

'检索当前颜色值
c = Color()

'使用LOWORD和HIWORD从c提取颜色值
Print "控制台颜色："
Print "前景：" & LoWord(c)
Print "背景：" & HiWord(c)


与QB差别

  • QB不支持直接颜色模式。
  • 没有边框参数。

参考