Splash screen

  • Thread starter Thread starter xhenxhe
  • Start date Start date
Hi xhene,
Anyone know of any how-to's on creating splash screens?

Try this is a very simple one

I hope this helps?

Cor
\\\splash screen form2
ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = "High I Am Here"
timer1.Enabled = True
timer1.Interval = 25
Me.Opacity = 0
Me.Text = "Splash"
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles timer1.Tick
Me.Opacity += 0.01
If Me.Opacity = 1 Then
Me.Close()
End If
End Sub
////
\\\form1
Private Sub Form1_Load(ByVal sender _
As Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
Dim frm As New Form2
frm.ShowDialog()
frm.Dispose()
End Sub
///
 
* "Cor said:
Although because the leading sentence from Armin, I did found that one
nicer.

The message I referred to is IMO self-explaining enough...

;-)
 
Back
Top