DoEvents()

Q: I have a For-Next loop where intensive processing takes place. I would like the application to respond other events during execution of this code.

A: The method DoEvents() will handle this requirement. By placing a call to DoEvents at the top of the loop, this method will process all messages queued from the Operating System, including shutting down the application. Using the DoEvents() method requires a reference to System.Windows.Forms.dll. Furthermore, the DoEvents() method is found in the class System.Windows.Forms.Application.

Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click

Dim intCounter as Integer

For intCounter = 1 To 1000
DoEvents() 'located in System.Windows.Forms.Application
'Processing Procedure here
Next

End Sub

Comments

Mark Harr said…
DoEvents only works for Windows applications. Another option is to use the Thread.Sleep() method, under the System.Threading namespace. This can be used in all .Net projects.

I think this is actually closer to the old VB DoEvents method. I had read somewhere (the source escapes me at the moment) that the .Net DoEvents does not call Sleep method like was done in VB6 (and prior).
January 02, 2007 9:02 AM
Post a Comment

Popular posts from this blog

Using VB Script to display part of an IP address

Q: How can I use VB Script to display the first 3 octets in a TCP/IP address? A: Since IP addresses are not fixed length, you will have to count the number of separators before you can extract the octets. With that said, listed below is the sample VB Script code. strIP = inputbox("Enter an IP Address for testing to extract the first 3 Octets:") intLastDecimal = 1 For intCounter = 1 to 3 intLastDecimal = InStr(intLastDecimal, strIP, ".") + 1 Next iNewLength = intLastDecimal-2 strNewIP = Left(strIP, iNewLength ) MsgBox "strNewIP=" & strNewIP To run this code, simply copy and paste it into a flat file and name it with a .VBS extension. For more resources on VB Scripting, please visit the following links: http://msdn2.microsoft.com/en-us/library/3ca8tfek.aspx http://msdn2.microsoft.com/en-us/library/ms974570.aspx http://www.w3schools.com/vbscript/vbscript_ref_functions.asp
Read more

Working with double quotes (") in VB.Net

String manipulation in VB2005 is fairly simple. However, things can get a little tricky with the double quote character. How do you look for it in a string? How can you insert into a string? How do you remove it from a string? These are questions that may lead to confusion if you don't know what you're looking for. Ironically enough, in VB the double quote can also be used as an escape character when searching for it in a string. For example: Dim strTest As String strTest = """123""" 'Displays "123" (double quotes appear in the final result) strTest = """""123""" 'Displays ""123" (double quotes appear in the final result) strTest = "test\""test" 'Displays test\"test strTest = "test""test" 'Displays test"test In cases where you want to insert a double quote character, simply reference it unicode character designation, ch
Read more

Oct'18 Meeting Wrap-up

I would like to thank Guy Royse (DataRobot) for presenting "Machine Learning for Gamers" at the last meeting of the Cleveland C#/VB.Net User Group Listed below are the links for the presentation recording and events in area/region. Presentation Recording :  https://www.youtube.com/channel/UCU4ffaIzhsvMr_cCt9kjQMw Local Events Nov 6: ONSQL-Cleveland( https://www.meetup.com/Ohio-North-SQL-Server-User-Group-Cleveland/ ) Nov 21: Hudson SC ( https://www.meetup.com/Hudson-Software-Craftsmanship-Meetup/ )  Nov 29: Cleveland C#/VB.Net User Group( https://www.meetup.com/Cleveland-C-VB-Net-User-Group/ )  Regional Events Oct 19-21: SpaceApps Cleveland Hackathon ( https://2018.spaceappschallenge.org/locations/cleveland-oh/ ) Oct 20: Cleveland Medical Hackathon ( http://clevelandmedicalhackathon.com )  Oct 27: Columbus Code Camp ( https://columbuscodecamp.com/ )  Nov 3: NuGet Essentials ( https://www.eventbrite.com/e/nuget-essentials-tickets-48803794463 )
Read more