Solved

First time my app hits an exception there is a long pause before it resumes

Posted on 2004-08-11
5
275 Views
Last Modified: 2010-04-23
Hi,

Im trapping an error with the usall

Try
      '//Code
Catch EX As Exception
      '// Code
End Try

but when running my app, the first time I get an exception there is a long pause at the "Catch EX As Exception" before it resume's then after that the Exception is caught really fast an the appication flows smoothly?

?? Any Ideas ??

The delay still occurs even if I specify the error type with

Catch ex As System.ObjectDisposedException
0
Comment
Question by:emub
  • 3
  • 2
5 Comments
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 11774587
I think that has to do with the JIT (Just In Time)  compiler, the first time it is used it hasn't been cached yet.

Regarding your problem, I know this is related to the solution I gave in a previous thread.
Just a thought you don't have to use a collection, if you set owner property each "child" window to me
you can use the me.ownedforms to check which are active

so when you create

      Dim oNewForm As New frmDisplayRecord(iRecordToOpen)
      oNewForm.StartPosition = FormStartPosition.CenterScreen
      oNewForm.TopMost = True
      oNewForm.Owner = Me  <---  ADD this line
      oNewForm.Focus()
      frmMain.oFormCollection.Add(oNewForm)

you can use

        Dim oForm2 As Form
        For Each oForm2 In Me.OwnedForms
              oform2.activate
              .. or oform2.whatever
        Next


if you do it this way you won't have to catch the error
0
 

Author Comment

by:emub
ID: 11774963
Hi, Sorry you Lost me a little there,  I remembe I as testing the relivant for to see if it was still active before I tied to bring it to focus?
0
 

Author Comment

by:emub
ID: 11774992
You saing I remove the whole collections thing? And just use the .OwnedForms array to keep track of all the forms I have open?  If so I presume once a use closes a form its automatically removed from the Parent.OwnedForms array?
0
 
LVL 25

Accepted Solution

by:
RonaldBiemans earned 500 total points
ID: 11775058
Yes it is emub

so

sorry if I wasn't clear

For Each oForm In frmMain.ownedforms
      If oForm.Tag = iRecordToOpen Then
           oForm.BringToFront()
           oForm.activate
           bLoadNewForm = False
           Exit For
      End If
Next
0
 

Author Comment

by:emub
ID: 11775414
Yea there worked great, the actual amount of coding for the Form management was much less that my orginal idea.

thx
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

Article by: Kraeven
Introduction Remote Share is a simple remote sharing tool, enabling you to see, add and remove remote or local shares. The application is written in VB.NET targeting the .NET framework 2.0. The source code and the compiled programs have been in…
The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (http://www.ecb.europa.eu/stats/exch…
I designed this idea while studying technology in the classroom.  This is a semester long project.  Students are asked to take photographs on a specific topic which they find meaningful, it can be a place or situation such as travel or homelessness.…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

914 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

15 Experts available now in Live!

Get 1:1 Help Now