Skip to main content

Make a Splash!

 

I was sitting at home, when suddenly I got a request to write a splash form. So I wrote this. It  is fairly simple to implement.

Just add a Windows Form to a new Visual Basic Project.

Add a Timer Control to the Form, named ‘theTimer’

Now add two labels, one for a statement, other to show the countdown. I have named them lbl1 and tmrLabel.

Go to its code of the Form and copy and paste this down. I have assumed the form name to be ‘MainFrm’. Run it and you are good to go. All with a fade in and fade out animation. Simple yet efficient. And to the friend who requested, it was a pleasure. :)

'''<summary>
''' A simple Splash Screen with basic fade in and fade out animation
''' A Program by Sarthak Ganguly
''' </summary>
''' Released under GPLv3 License
Public Class MainFrm

   'Declaring an Enum with form status
    Enum formStatus
        formOpening
        formShowing
        formClosing
    End Enum


    Dim _formStatus As formStatus = formStatus.formOpening
  
'You can select the animation speed here( fade in and fade out)
    Dim animationSpeed As Double = 0.1
 
  'stayOn is a counter variable
    Dim stayOn As Integer = 0
  
'limit is the time duration for which the form is to remain open
    'Here limit is 30 seconds
    Dim limit As Integer = 300

    'The form closing Event is essential to close the form when the
    'fades out completely, that is when the opacity reaches 0
    Private Sub MainFrm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        If Me.Opacity = 0 Then
            theTimer.Dispose()
            Me.Dispose()
        End If

    End Sub

    'The Fade in Animation begins
    Private Sub MainFrm_Load(ByVal sender As Object, _
                             ByVal e As EventArgs) Handles Me.Load
        theTimer.Start()
        _formStatus = formStatus.formOpening

    End Sub

    'The Timer operations are done here
    Private Sub theTimer_Tick(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) Handles theTimer.Tick

        Try
            If _formStatus = formStatus.formOpening And Me.Opacity < 1 Then
                Me.Opacity += animationSpeed
                If Me.Opacity = 1 Then
                    theTimer.Enabled = False
                    Call ShowForm()
                End If
            ElseIf _formStatus = formStatus.formClosing And Me.Opacity > 0 Then
                Me.Opacity -= animationSpeed
                If Me.Opacity = 0 Then
                    theTimer.Dispose()
                    Me.Dispose()
                End If
            ElseIf _formStatus = formStatus.formShowing Then
                If stayOn < limit Then
                    stayOn += 1
                    tmrLabel.Text = CInt((limit - stayOn) / 10)
                Else
                    theTimer.Enabled = False
                    Call Form_close()
                End If
            Else
                theTimer.Enabled = False
            End If
        Catch ex As Exception
           
'There should not be any error, but still if there is
            'you'll know
            Console.WriteLine(ex.Message)
        End Try

    End Sub

    'Sends the formClosing status to the Timer
    Private Sub Form_close()
        _formStatus = formStatus.formClosing
        theTimer.Start()
    End Sub

    'Allows the timer to show the form for the duration
    'required
    Private Sub ShowForm()

        _formStatus = formStatus.formShowing
        theTimer.Enabled = True
        theTimer.Start()

    End Sub

End Class

You can get the compiled file from here

http://www.wikifortio.com/472019/SplashScreen.zip

I will also post it on sourceforge.net

Popular posts from this blog

Salesmen of God

Christian evangelicals are similar to parasites[1]. The similarities are simply astounding. Among all predatory religions, Evangelical Christianity has done, by far, the greatest harm to humankind[2]. Like leeches, the Evangelical sucks the lifeblood of an unchristian society till it descends either into chaos and incessant civil conflict or the relegation of the culture to the pages of history(Bowden, 1985). Even in the 21st century this unashamed activity continues(Bhosle, 2003).[3]
Evangelicals usually have a similar methodology when it comes to proselytization. Like parasites, the target is usually one belonging to the most vulnerable section of society. This does not necessarily mean that they try harvesting only the most down trodden of the society(Kelly, 2001). And most certainly, the objective is never the upliftment of the persons involved. The target groups may, for example, belong to ethnic minorities, refugees (both economic and political), caste groups, the poor and the si…

Ali The Kargil Boy

I met Ali in the Leh airport,he drove us in our hotel. The very next morning we went for sightseeing. He used to drive very fast. I repeatedly told him to drive slow, he followed for  a short time; again continued in his own speed.
On the way to Nubra valley the road was very stiff and the altitude was very high. As I was sick before our tour it was difficult for me to bear that fast ride.After coming back I complained our tour  operator for his driving and asked for another driver.




Our tour operator assured me that he would tell him to drive  comfortably.The next day Ali came drove the car and I enjoyed my entire remaining  trip.
Sometimes he used to push the accelerator and I just told "Ali.....ahista"...he became consous. We used to chat during this long drive. I asked him "How old are you Ali?he replied "22years mam."He told me "At the age of 16 I started driving without lisence,I used to drive big vehicles ,now I drive tourist cars during the seas…

When birds come home

It is mid March in Mumbai. It is supposed to be hot and humid. As it usually is all the year round with monsoon and December exceptions.
But it's cloudy today. To be fair, yesterday was also cloudy but today is dark. As dark as it usually is just before a downpour. It may rain and I don't have an umbrella with me. It's not that a change of weather is bad. I like rains. But the suddenness is rather strange.
I am not the only one confused with the weather change. The birds seem to be totally messed up by the onset of darkness. It was about 9 AM in the morning. The birds had just perched on the trees for their daily routine. The cloud came. They possibly understood that to be the beginning of the evening and end of day. Next thing I know, I see hundreds (yes, literally hundreds) of birds rushing back to their nests.
This is not a unique scene. I have seen this umpteen number of times in the monsoons. This is the first time I have noticed it in March (as far as I can remember) an…