Question

求解VB，字体颜色定时变化 单击“启动”按钮，标签的字体颜色开始循环变化，依次为：红橙黄绿青蓝紫单

求解VB，字体颜色定时变化
单击“启动”按钮，标签的字体颜色开始循环变化，依次为：红橙黄绿青蓝紫单击按钮，标签字体颜色停止变换

Answer 1

新建窗口，拖入 lable 控件 和timer控件

双击 窗口， 代码如下：
dim ntime as integer = 3000 '毫秒

dim ColorIndex as Integer =0
Dim Colors（7） as color

sub form1_load( ......)

lable1.caption="你看我7种颜色变换” '假设是VB6，因为我没有VB6,
Colors(0) = Color.Red

Colors(1) = Color.Orange
Colors(2) = Color.Yellow
Colors(3) = Color.Green
Colors(4) = Color.Cyan
Colors(5) = Color.Blue
Colors(6) = Color.Purple
end sub

双击TIMER控件如下代码
sub timer1_tick(....)
lable1.forecolor =colors(ColorIndex )
ColorIndex =ColorIndex +1
if ColorIndex >=6 then ColorIndex =0
end sub

大致就是这样

追问

请问你会不会用QBcolor函数来表示七种颜色，用Qbcolor(i)来完成，用i=i+1编写

追答

QBColor （）

返回一个 Long，用来表示所对应颜色值的 RGB 颜色码。

QBColor(color) 必要的 color 参数是一个界于 0 到 15 的整型。

设置值color 参数有以下这些设置:
值 颜色 值 颜色
0 黑色 8 灰色
1 蓝色 9 亮蓝色
2 绿色 10 淡绿色
3 青色 11 亮青色
4 红色 12 亮红色
5 洋红色 13 亮洋红色
6 黄色 14 亮黄色
7 白色 15 亮白色

qbcolor函数 你做不出 橙色 也没有紫色。

追问

上述七种颜色变为0~6所代表七种，请问有办法做到吗？求助

追答

双击TIMER控件如下代码
sub timer1_tick(....)
lable1.forecolor = QBColor(ColorIndex )
ColorIndex =ColorIndex +1
if ColorIndex >=6 then ColorIndex =0
end sub
直接引用不行么？我没有VB了，只有.net 没办法测试。