VB七彩闪烁文字代码,VB.Net代码库,德仔网

代码语言

代码分类

【VB.Net】 VB七彩闪烁文字

作者:Dezai.CN / 发布于2013/6/18/ 832


	Option Explicit

	Private Sub Command2_Click()
	If Timer1.Enabled = True Then
	Timer1.Enabled = False
	Command2.Caption = "开始闪烁"
	Else
	Command2.Caption = "停止闪烁"
	Timer1.Enabled = True
	End If
	End Sub


	 Private Sub Timer1_Timer()
	 Chc Label1, 1, 3, 5, 8, 10, 12, 14
	 End Sub

	 Sub Chc(Cont As Control, Color1 As Integer, Color2 As Integer, Color3 As Integer, Color4 As Integer, Color5 As Integer, Color6 As Integer, Color7 As Integer)
	 If Val(Cont.Tag) = Color1 Then
	 Cont.Tag = Color2
	 ElseIf Val(Cont.Tag) = Color2 Then
	 Cont.Tag = Color3
	 ElseIf Val(Cont.Tag) = Color3 Then
	 Cont.Tag = Color4
	 ElseIf Val(Cont.Tag) = Color4 Then
	 Cont.Tag = Color5
	 ElseIf Val(Cont.Tag) = Color5 Then
	 Cont.Tag = Color6
	 ElseIf Val(Cont.Tag) = Color6 Then
	 Cont.Tag = Color7
	 ElseIf Val(Cont.Tag) = Color7 Then
	 Cont.Tag = Color1
	 Else
	 Cont.Tag = Color1
	 End If
	 Cont.ForeColor = QBColor(Cont.Tag)
	 End Sub

	 Private Sub Command1_Click()
	 Unload Me
	 End Sub

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　闪烁文字　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)