关于实现字体颜色连续替换!!! - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 关于实现字体颜色连续替换!!!

标题：关于实现字体颜色连续替换!!!

只看楼主

寂静

等　级：新手上路
帖　子：47
专家分：0
注　册：2004-10-16

楼主

问题点数：0 回复次数：6

关于实现字体颜色连续替换!!!

就是用控件数组~~
比如建立了4个label1(1)-label1(4)的标签框~~
要它们的的forecolor连续替换~~比如是label1(1)的forecolor赋给label1(2)
就这样赋值~~到了label1(4)再赋值给label1(1)
!!!!
这样怎实现呢?

请各位指点指点!!!

搜索更多相关主题的帖子: 字体　颜色　赋值　 forecolor　控件　

2005-05-22 21:12

griefforyou

等　级：贵宾
威　望：27
帖　子：3336
专家分：0
注　册：2004-4-15

第 2 楼

得分:0

太简单了吧。

天津网站建设 http://www./

2005-05-23 08:34

in羊羊

等　级：新手上路
帖　子：144
专家分：0
注　册：2005-4-17

第 3 楼

得分:0

应该加个中间变量吧
你的问题实际就是把a,b数值调换问题吧？

2005-05-23 11:16

寂静

等　级：新手上路
帖　子：47
专家分：0
注　册：2004-10-16

第 4 楼

得分:0

.....
指点指点一下!!!!

帮帮忙~~~

--------------------------------------------------------- [glow=255,green,2]______[/glow] [glow=255,blue,2]—————[/glow]

2005-05-23 19:18

anycall628

等　级：新手上路
帖　子：222
专家分：0
注　册：2005-2-18

第 5 楼

得分:0

c是中间变量

想调换a和b
c=a
a=b
b=c

爱生活，爱编程。

2005-05-23 19:33

griefforyou

等　级：贵宾
威　望：27
帖　子：3336
专家分：0
注　册：2004-4-15

第 6 楼

得分:0

Option Explicit

Private Sub Timer1_Timer() Dim i As Integer Dim lastColor As OLE_COLOR lastColor = Label1(0).BackColor For i = 0 To Label1.Count - 2 Label1(i).BackColor = Label1(i + 1).BackColor Next Label1(i).BackColor = lastColor End Sub

天津网站建设 http://www./

2005-05-23 23:52

huwenjie

等　级：新手上路
帖　子：84
专家分：0
注　册：2005-3-10

第 7 楼

得分:0

在时间控件里面执行不就可以了，指定好interval属性的刷新时间

2005-05-25 18:07