Solved

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

Posted on 2003-10-31
9
5,950 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
Comment Utility
 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
Comment Utility
Or you can just use this command:

Thread.Sleep(5000)
0
 
LVL 2

Expert Comment

by:CuSo4
Comment Utility
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
How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

 
LVL 48

Assisted Solution

by:Mikal613
Mikal613 earned 100 total points
Comment Utility
0
 
LVL 19

Assisted Solution

by:Desp
Desp earned 100 total points
Comment Utility

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
Comment Utility
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
Comment Utility
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

Free Trending Threat Insights Every Day

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

Entering a date in Microsoft Access can be tricky. A typo can cause month and day to be shuffled, entering the day only causes an error, as does entering, say, day 31 in June. This article shows how an inputmask supported by code can help the user a…
This is about my first experience with programming Arduino.
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 fifth video of the Xpdf series, we discuss and demonstrate the PDFdetach utility, which is able to list and, more importantly, extract attachments that are embedded in PDF files. It does this via a command line interface, making it suitable …

771 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

10 Experts available now in Live!

Get 1:1 Help Now