splash form

[menyki]

Pls look at below splash form display code sample. where in design view am i suppose to write the code. i have only splash_LoadByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load and Private Sub Timer1_Tick_3(ByVal sender As System.Object, ByVal e As System.EventArgs)
so where am i suppose to declare and write the below code

Private WithEvents myTimer1 As Timers.Timer
Dim myFrm as mainForm

2.Declare a function SetUpTimer() like this


Code: ( vb )

Public Sub SetUpTimer()
Try
myTimer1 = New Timers.Timer
With myTimer1
.AutoReset = False
.Interval = 3000
.Start()
End With
Catch obEx As Exception
Throw obEx
End Try
End Sub

3.In the Timer_Elapsed event write following code


Code: ( vb )

Me.Close()
myFrm = New mainForm
myFrm.ShowDialog()

4. In the Load event of Splash form call SetUpTimer()

Code: ( vb )

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SetUpTimer()
End Sub

[dip_developer]

Pls look at below splash form display code sample. where in design view am i suppose to write the code. i have only splash_LoadByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load and Private Sub Timer1_Tick_3(ByVal sender As System.Object, ByVal e As System.EventArgs)
so where am i suppose to declare and write the below code

Private WithEvents myTimer1 As Timers.Timer
Dim myFrm as mainForm

2.Declare a function SetUpTimer() like this


Code: ( vb )

Public Sub SetUpTimer()
Try
myTimer1 = New Timers.Timer
With myTimer1
.AutoReset = False
.Interval = 3000
.Start()
End With
Catch obEx As Exception
Throw obEx
End Try
End Sub

3.In the Timer_Elapsed event write following code


Code: ( vb )

Me.Close()
myFrm = New mainForm
myFrm.ShowDialog()

4. In the Load event of Splash form call SetUpTimer()

Code: ( vb )

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SetUpTimer()
End Sub

Dear menyki,
Dont you know where to declare the public variable in the code behind of a Form.??? Just look the following code section.....I am giving you the full code structure.....Youe code behind of splash form will look like

 
Public Class splash
Inherits System.Windows.Forms.Form
 
Private WithEvents myTimer1 As Timers.Timer
Dim myFrm As Form1
Private Sub splash_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SetUpTimer()
End Sub
Public Sub SetUpTimer()
Try
myTimer1 = New Timers.Timer
With myTimer1
.AutoReset = False
.Interval = 3000
.Start()
End With
Catch obEx As Exception
Throw obEx
End Try
End Sub
Public Sub myTimer1_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles myTimer1.Elapsed
Me.Close()
myFrm = New Form1
myFrm.ShowDialog()
End Sub
End Class