Timer

[Edd1e]

Im trying to put a delay between the button click and the message box that pops up. Here is my code, please help me out with this.

Private Sub TimerFire()
Me.Timer1.Interval = 3000
Me.Timer1.Enabled = True
End Sub

Private Sub TimerStop()
Me.Timer1.Enabled = False
End Sub

Private Overloads Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TimerFire()
MsgBox("ok")
End Sub

[Pirate]

try this
[code]
Private Sub TimerFire()
Me.Timer1.Interval = 3000
Me.Timer1.Enabled = True
MsgBox("ok")
Me.Timer1.Enabled = False
End Sub


Private Overloads Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TimerFire()
[/Highlight]

[Edd1e]

Still does not work. There is no delay I cut and pasted the aforementioned code which looks like this now:

Private Sub TimerFire()
Me.Timer1.Interval = 3000
Me.Timer1.Enabled = True
MsgBox("ok")
Me.Timer1.Enabled = False
End Sub

Private Overloads Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TimerFire()
End Sub

[Pirate]

Sorry , I mean this way !

Private Sub TimerFire()
        Me.Timer1.Interval = 3000
        Me.Timer1.Enabled = True
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TimerFire()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        MsgBox("ok")
    End Sub

[Pirate]

stop your timer when you're done !

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
MsgBox("ok")
Me.Timer1.Enabled = False
End Sub

[Edd1e]

Thank you for your time. I really appreciate it. Heres another easier (my pov) delay method that I found elsewhere on this forum:

Private Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)

Private Overloads Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Sleep(1250)
MsgBox ("ok")
End Sub

[Pirate]

No problem .... You can do something alike with threadings . It has sleep , pause , resume methods .

[Redth]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        'Sleep for 3 seconds
        Threading.Thread.Sleep(3000)
 
        'Show MessageBox
        MessageBox.Show("Ok!")
End Sub

simple code, makes the thread the code is running in pause for 3 seconds.. which would make your program pause before showing a message box