Office中国论坛/Access中国论坛

标题: 紧急求助！！！！！！！ [打印本页]

作者: crazyboy1983 时间: 2002-12-26 06:03
标题: 紧急求助！！！！！！！
请问版主及其他各位网友：
我是一名access的初学者，我想请问一下：使一个标签可以逐渐变色或者是可变动，该如何操作？我知道可以用VB去编写，但遗憾的是我没学过VB，哪位朋友可以帮我啊？能够直接给我VB的原代码吗？我的邮箱是：freshboy713@sohu.com 电话：027---86796974在这里先谢谢大家了！！！
小晖

作者: zhengjialon 时间: 2003-1-1 01:40
笨小漆的：

试试看下面这段代码有没有用？
代码：
--------------------------------------------------------------------------------

For TextFontColor = vbBlack To vbWhite Step rgb(1, 1, 1) 　　Me.标签.ForeColor = TextFontColor 　　Me.Repaint Next

--------------------------------------------------------------------------------

'vbblack和vbwhite是系统常量，也就是从黑色到白色的长整型值
'Step rgb(1, 1, 1)是以一个灰度色阶为步长单位，这样可以控制每一个循环都变潜一点
'Me.Repaint从新在窗体上画出效果，不用这一句看不出效果。
'中间那个知道什么意思了吧，不多说了

作者: 大熊 时间: 2003-1-7 18:02
补充一下，也不知对不对：
1、好像放在计时器事件中效果更好，当然在这个循环中放入一个时间间隔函数也是一样效果。
2、RGB(1，1，1)可事先算出来其值，用常量代替，这样执行效果比较快，编码更有效率和科学。

作者: 搏金之歌 时间: 2003-1-24 20:10
我赞同用计数器。
这样不会造成闪动而不能作其他动作。
也不会变化速度过快或时间不可调。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)