David,
Thanks for the response. The actual issue I am working through is a splash
screen.
I have a component library that has a base form and a splash screen form.
All my application forms derive from the custom form, which now has two
additional methods, (ShowWait, HideWait). These methods will be used
primarly for long running processes called by the custom form, however, the
derived form could make use of it as well.
In VB'03 is was working great, my problem is in VB'05. The splash screen is
supposed to fade in and out over time while it is displayed. I encountered
two issues from the conversion.
VB05 is a bit more persnickety about calling UI components from the
wrong thread.
1. I do not have access to doevents. Since control libraries do not have
access to the My namespace, I have been exploring
Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase. I
haven't found a way to associate my ExecutingAssembly with my library.
I'm not sure why you need doEvents here, but it can be found at
System.Windows.Forms.Application.DoEvents().
Of course, it needs to be called from the UI thread.
Threading.Thread.Sleep doesn't seem to do the job, of cource that could be a
result of my second issue.
2. Accessing the splash screens form methods and properties cause:
a. System.Threading.ThreadAbortException
b. System.ArgumentException
c. System.InvalidOperationException
d. System.Transactions Critical at
System.Windows.Forms.Control.SetVisibleCore(Boolean value)
What I have going on is a do...while loop that is calling the fade routine
when the splash screen is visible.
Seems like a timer would be more appropriate. In fact, the Forms.Timer
component will even handle calling you on the correct thread.
public sub DoFading
do while not done
call Fade
loop
me.hide()
me.close()
end sub
private sub Fade
dim fadedirection as fadetypes
if me.opacity <= 0 then
fadedirection = fadetypes.up
elseif me.opacity >= 1 then
fadedirection = fadetypes.down
end if
select case fadedirection
case fadetypes.up
me.opacity += pintStepping
case else
me.opacity -= pintStepping
end select
end sub
I changed my call to fade to Me.Invoke(New
Windows.Forms.MethodInvoker(AddressOf Fade))
as well as the logic to hide and close the form
I don't know what I am doing wrong, but it is not behaving like it used to.
It's hard to tell from this snippet. I'm not even sure the threading is
the error here is from the UI thread issues (usually you get an
InvalidOperationException when that happens). One trick I like to do
for these types of problems is have the form methods handle their own
invoke requirements, like...
Private Sub Fade()
If Me.InvokeRequired Then
Me.Invoke(New MethodInvoker(AddressOf Fade))
Exit Sub
End If
' Do the real work