by Aaron Burling (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 29th October 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Executable that acts as screensaver that shows your text with different colors at an interval with a different color background each color
API Declarations
'Just add form with appropriate things i.e. labels...textboxes...command buttons
Dim textinput As String
VBcoders
Unload Me
End Sub
Private Sub Command1_Click()
textinput = Text1.Text
Label1.Caption = textinput
Text1.Visible = False
Command1.Visible = False
Label2.Visible = False
tmrtimer.Interval = 900
End Sub
Private Sub Form_Click()
Unload Me
End Sub
Private Sub Text1_click()
Text1.Text = ""
End Sub
Private Sub tmrtimer_Timer()
If Form1.BackColor = &H8000000F Then
Form1.BackColor = &HFF&
Label1.BackColor = &HFF&
Label1.ForeColor = &HFF00&
ElseIf Form1.BackColor = &HFF& Then
Form1.BackColor = &H80FF&
Label1.BackColor = &H80FF&
Label1.ForeColor = &HFFFF00
ElseIf Form1.BackColor = &H80FF& Then
Form1.BackColor = &HFFFF&
Label1.BackColor = &HFFFF&
Label1.ForeColor = &HFF0000
ElseIf Form1.BackColor = &HFFFF& Then
Form1.BackColor = &HFF00&
Label1.BackColor = &HFF00&
Label1.ForeColor = &HFF00FF
ElseIf Form1.BackColor = &HFF00& Then
Form1.BackColor = &HFFFF00
Label1.BackColor = &HFFFF00
Label1.ForeColor = &HFF&
ElseIf Form1.BackColor = &HFFFF00 Then
Form1.BackColor = &HFF0000
Label1.BackColor = &HFF0000
Label1.ForeColor = &H80FF&
ElseIf Form1.BackColor = &HFF0000 Then
Form1.BackColor = &HFF00FF
Label1.BackColor = &HFF00FF
Label1.ForeColor = &HFFFF&
ElseIf Form1.BackColor = &HFF00FF Then
Form1.BackColor = &HFF&
Label1.BackColor = &HFF&
Label1.ForeColor = &HFF00&
End If
End Sub
No comments have been posted about Executable that acts as screensaver that shows your text with different colors at an interval with . Why not be the first to post a comment about Executable that acts as screensaver that shows your text with different colors at an interval with .