Solved

VB.NET How to Pause, Wait or Timer an Application for X seconds

Posted on 2003-10-31
9
5,976 Views
Last Modified: 2012-08-14
I need to be able to pause execution for 5 seconds, how-to
0
Comment
Question by:mkisow
9 Comments
 
LVL 7

Accepted Solution

by:
RBertora earned 100 total points
ID: 9657683
 Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)



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

Regards,
Rob Bertora
0
 
LVL 2

Assisted Solution

by:CuSo4
CuSo4 earned 100 total points
ID: 9658024
Or you can just use this command:

Thread.Sleep(5000)
0
 
LVL 2

Expert Comment

by:CuSo4
ID: 9658059
Oeps, I should heve add it, if you use Thread.Sleep(5000), you need to add the following statement before the rest of your code:

Imports System.Threading
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 48

Assisted Solution

by:Mikal613
Mikal613 earned 100 total points
ID: 9659186
0
 
LVL 19

Assisted Solution

by:Desp
Desp earned 100 total points
ID: 9662231

Also, it will be better to make the user aware that the application is paused.. to acheive this you can set the Cursor to an Hourglass. and then reset the default cursor after pausing your application... below is some code for this

' CODE BEFORE PAUSE.....
'............
Cursor = Cursors.WaitCursor     ' Show an hourglass Cursor
System.Threading.Thread.Sleep(5000) ' Wait for 5 seconds
Cursor = Cursors.Default ' restore normal cursor
'............
' CODE AFTER PAUSE.....
'
0
 
LVL 5

Assisted Solution

by:KeirGordon
KeirGordon earned 100 total points
ID: 10165717
You might do something more along the lines of

private sub Wait(howlong as integer)
 Cursor = Cursors.WaitCursor
 for x as integer = 0 to howlong*10
  System.Threading.Thread.Sleep(100)
  Application.DoEvents()
 next
 Cursor = Cursors.Default
end sub

.... I think if you just did a 5 second sleep your application would be completely unresponsive.... but with the DoEvents in the above version things will run a bit more smoothly.

I could be wrong ;)

--KG
0
 
LVL 5

Expert Comment

by:KeirGordon
ID: 10165729
Keep in mind the DoEvents takes a 'little' time.... so your 5 seconds might run more like 5.0000001 seconds.... if that matters.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
What is the compatible hibernate version for spring 4.3.1 10 75
nestparen challenge 4 72
Microsoft C++ code failing in executable that worked 9 85
Device same like our heart 12 75
This article will show, step by step, how to integrate R code into a R Sweave document
This is an explanation of a simple data model to help parse a JSON feed
In this fourth video of the Xpdf series, we discuss and demonstrate the PDFinfo utility, which retrieves the contents of a PDF's Info Dictionary, as well as some other information, including the page count. We show how to isolate the page count in a…
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

910 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now