依辰

首页 » VB语言 » 文字自动变色VB小程序源码

文字变色VB小程序

 

文字变色VB小程序

 

文字变色VB小程序

按顺序变成红、蓝、绿3中颜色,俗称变色

 

VB小程序源码如下:

Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Timer1.Enabled = True
Command1.Caption = "停止"
Else
Command1.Caption = "开始"
Timer1.Enabled = False
End If
End Sub
Private Sub Timer1_Timer()
If Label1.Caption = "红色" Then
Label1.Caption = "蓝色"
Label1.ForeColor = RGB(0, 0, 255)
Else
If Label1.Caption = "蓝色" Then
Label1.Caption = "绿色"
Label1.ForeColor = RGB(0, 255, 0)
Else
Label1.Caption = "红色"
Label1.ForeColor = RGB(255, 0, 0)
End If
End If
End Sub


文章如无特别注明均为原创! 作者: 中华软件库,依辰QQ:634800394 转载或复制请以 超链接形式 并注明出处 中华软件库-优质资源分享网
原文地址《 文字自动变色VB小程序源码》 发布于2019-11-15

评论

切换注册

登录

您也可以使用第三方帐号快捷登录

切换登录

注册