| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 781 人关注过本帖
标题:关于实现字体颜色连续替换!!!
只看楼主 加入收藏
寂静
Rank: 1
等 级:新手上路
帖 子: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
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
太简单了吧。

天津网站建设 http://www./
2005-05-23 08:34
in羊羊
Rank: 1
等 级:新手上路
帖 子:144
专家分:0
注 册:2005-4-17
收藏
得分:0 
应该加个中间变量吧
你的问题实际就是把a,b数值调换问题吧?
2005-05-23 11:16
寂静
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2004-10-16
收藏
得分:0 
.....
指点指点一下!!!!

帮帮忙~~~

--------------------------------------------------------- [glow=255,green,2]______[/glow] [glow=255,blue,2]—————[/glow]
2005-05-23 19:18
anycall628
Rank: 1
等 级:新手上路
帖 子:222
专家分:0
注 册:2005-2-18
收藏
得分:0 
c是中间变量

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

爱生活,爱编程。
2005-05-23 19:33
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分: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
Rank: 1
等 级:新手上路
帖 子:84
专家分:0
注 册:2005-3-10
收藏
得分:0 
在时间控件里面执行不就可以了,指定好interval属性的刷新时间
2005-05-25 18:07
快速回复:关于实现字体颜色连续替换!!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023702 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved