Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 源码示例

【Access示例】使标签闪烁并随机变更颜色以引人注意示例

时 间:2014-12-20 12:37:55
作 者:风行   ID:16058  城市:江阴
摘 要:使标签闪烁并随机变更颜色以引人注意示例
正 文:

点击下载此附件

 

'实现功能的主要代码如下----------------

'计时器触发事件,标签闪烁,字体颜色更改
Private Sub Form_Timer()
    Me.lab_闪烁.Visible = Not Me.lab_闪烁.Visible
    Me.lab_闪烁.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
    Debug.Print Me.lab_闪烁.ForeColor
End Sub

'更改计时器间隔属性,从而控制计时器触发事件的执行与否
Private Sub cmdFlicker_Click()
    If Me.TimerInterval Then
        Me.TimerInterval = 0
    Else
        Me.TimerInterval = 500
    End If

    If Me.TimerInterval = 0 Then
        Me.cmdFlicker.Caption = "闪烁"
    Else
        Me.cmdFlicker.Caption = "停止闪烁"
    End If
End Sub

 



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助