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

代码语言

代码分类

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

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


	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)