I'm a first semester CINT student and I'd like to add some "bling" to my final project. I want to add blinking text to my final forms clearform button. My code so far:
Private Sub orderForm_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
'disabling the animation on loading the form
Timer1.Enabled = False
End Sub
Private Sub clearButton_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles clearButton.Click
Dim Timer1 As Timer
Timer1 = Me.Timer1
Label10.Visible = False
Label10.Text = "Come Back Soon!" 'text to display on clearbtn_click
Timer1.Enabled = True 'starting the animation
Timer1.Interval = 400 'interval of the timer
If Label10.Visible = True Then 'checking whether it is visible
Label10.Visible = False 'if visible then, make it invisible
ElseIf Label10.Visible = False Then 'checking whether it is invisible
Label10.Visible = True 'if invisible then, make it visible
End If
'clears all list boxes and amount labels
Label2.Text = Nothing
memPurchLabel.Text = Nothing
equipListBox.Items.Clear()
equipLabel.Text = Nothing
apprlListBox.Items.Clear()
apparelLabel.Text = Nothing
subTotalLabel.Text = Nothing
taxLabel.Text = Nothing
totalLabel.Text = Nothing
End Sub
This is my first post. Thanks for any help.