Fade-In Form

[Ivan Weiss]

Hey guys I am trying to fade in a form using the following code:

Public Class frmAbout
Inherits System.Windows. Forms.Form

Dim i As Integer 'Public Variable

#Region The Windows Form code...
Private Sub Timer1_Tick(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles Timer1.Tick
If i < 100 Then
i = i + 1
Me.Opacity = i / 100
Else
Timer1.Stop()
End If
End Sub
End Class

I tried adjusting my timer to various values (currently 500000 as I am
not sure what this number corresponds to) and my timer is started in my
form initialization code. Yet my form does not fade in, it kinda blinks
and just appears. In the function that creates the form I have:

Dim objAbout = New frmAbout()
objAbout.MdiPar ent = Me
objAbout.Show()

Any ideas on why my form is not fading in?
(THe opacity is set to 0 in the properties window in design view of the
form)

-Ivan

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[William Ryan]

Ivan:

I have an article over here
http://www.knowdotnet.com/testsite/a...s/opacity.html . It's in C# but it
should help. BTW, we are still proofing the grammar, but the code is
correct. HTH,

Bill
"Ivan Weiss" <iv*****@optonl ine.net> wrote in message
news:Of******** ******@TK2MSFTN GP11.phx.gbl...

Hey guys I am trying to fade in a form using the following code:

Public Class frmAbout
Inherits System.Windows. Forms.Form

Dim i As Integer 'Public Variable

#Region The Windows Form code...
Private Sub Timer1_Tick(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles Timer1.Tick
If i < 100 Then
i = i + 1
Me.Opacity = i / 100
Else
Timer1.Stop()
End If
End Sub
End Class

I tried adjusting my timer to various values (currently 500000 as I am
not sure what this number corresponds to) and my timer is started in my
form initialization code. Yet my form does not fade in, it kinda blinks
and just appears. In the function that creates the form I have:

Dim objAbout = New frmAbout()
objAbout.MdiPar ent = Me
objAbout.Show()

Any ideas on why my form is not fading in?
(THe opacity is set to 0 in the properties window in design view of the
form)

-Ivan

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[William Ryan]

Ivan:

Also, you may want to move the Sleep increment down to 70 or even 50
depending on how fast/slow your machine works, but this can defintiely do it
without flicker.

HTH,

Bill
"Ivan Weiss" <iv*****@optonl ine.net> wrote in message
news:Of******** ******@TK2MSFTN GP11.phx.gbl...

Hey guys I am trying to fade in a form using the following code:

Public Class frmAbout
Inherits System.Windows. Forms.Form

Dim i As Integer 'Public Variable

#Region The Windows Form code...
Private Sub Timer1_Tick(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles Timer1.Tick
If i < 100 Then
i = i + 1
Me.Opacity = i / 100
Else
Timer1.Stop()
End If
End Sub
End Class

I tried adjusting my timer to various values (currently 500000 as I am
not sure what this number corresponds to) and my timer is started in my
form initialization code. Yet my form does not fade in, it kinda blinks
and just appears. In the function that creates the form I have:

Dim objAbout = New frmAbout()
objAbout.MdiPar ent = Me
objAbout.Show()

Any ideas on why my form is not fading in?
(THe opacity is set to 0 in the properties window in design view of the
form)

-Ivan

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Ivan Weiss]

I tried inserting this code into my form_load and removing my other code
utilizing the timer:

Dim i As Double = 0.0

For i = 0.0 To i >= 1.0
Me.Opacity = i
i = i + 0.1
System.Threadin g.Thread.Sleep( 500)
Next
Me.Opacity = 1

However, it does the same thing. It kind of hesitates and than just
shows up, there is no fade in.

-Ivan

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[William Ryan]

Change the 500 to 50 for instance. It may be your video card isn't
processing it quickly. I've run this on quite a few machines and at 500
it's somewhat choppy but it's not that bad. At 100 it's pretty smooth and
at 70 it's the exact effect I want. If you go too low, it happens too
quickly. Too slow and it's choppy.

You may also want to play with the increment. I have it set at .1. but you
can change it to .05 for instance, or even .01 to fine tune it. If you use
a smaller increment though, don't use 500 for the thread, it'll be 10 times
as long at .01 and twice as long at .05. I'd move the sleep to 100 first,
if that doesn't do it, try 70, then maybe 50. If it's still choppy, go back
start at like 200 and play with the increment. It's going to be a matter of
playing with it, but remember that you may want to make it adjustable b/c
different video cards draw things at different speeds and the users may want
the ability to manipulate it themseleves.

One other thing.... Try adding a DoEvents in the loop. Normally I refrain
from this, but I'm thinking it may help in this case.

Let me know.

Bill
"Ivan Weiss" <iv*****@optonl ine.net> wrote in message
news:Of******** ********@TK2MSF TNGP10.phx.gbl. ..

I tried inserting this code into my form_load and removing my other code
utilizing the timer:

Dim i As Double = 0.0

For i = 0.0 To i >= 1.0
Me.Opacity = i
i = i + 0.1
System.Threadin g.Thread.Sleep( 500)
Next
Me.Opacity = 1

However, it does the same thing. It kind of hesitates and than just
shows up, there is no fade in.

-Ivan

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Ivan Weiss]

I think what is happening is that when I call the show method of the
About form from my menu (main MDI Form) it is running this code before
the form actually shows. I am not sure but I think that is what the
problem is.

The structure is:

User Clicks on Help-->About Menu Item
I create a new About form object and set its mdi parent to the main MDI
form.
I than call objAbout.Show()
the code to fade-in my form is in the frmAbout_Load event.

Maybe it is this structure that is giving me my trouble?

-Ivan

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Brian Henry]

put an application.doe vents() in the loop, this causes all the events in the
queue to process... sometimes that holds up paining of forms if you dont do
it when its in a loop
"Ivan Weiss" <iv*****@optonl ine.net> wrote in message
news:Of******** ********@TK2MSF TNGP10.phx.gbl. ..

I tried inserting this code into my form_load and removing my other code
utilizing the timer:

Dim i As Double = 0.0

For i = 0.0 To i >= 1.0
Me.Opacity = i
i = i + 0.1
System.Threadin g.Thread.Sleep( 500)
Next
Me.Opacity = 1

However, it does the same thing. It kind of hesitates and than just
shows up, there is no fade in.

-Ivan

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Ivan Weiss]

I tried moving my code to the activated method after reading a reference
noticing that the form load method runs before the form is painted so
the code would be useless there.

No luck with the following code:

Maybe e-mailing you the actual code would help. I am so confused with
this problem.

Private Sub frmAbout_Activa ted(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Activate d
Dim i As Double = 0.0

While i < 1.0
'Application.Do Events()
Me.Opacity = i
i = i + 0.01
System.Threadin g.Thread.Sleep( 50)
End While
'Me.Opacity = 1
End Sub

-Ivan

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Brian Henry]

do somethign similar to this

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

Dim fadeThread As New System.Threadin g.Thread(Addres sOf fadeIn)

fadeThread.Star t()

End Sub

Public Sub fadeIn()

Application.DoE vents()

Me.Refresh()

For x As Double = 0 To 1.0 Step 0.01

Me.Opacity = x

System.Threadin g.Thread.Sleep( 50)

Next

End Sub

"Ivan Weiss" <iv*****@optonl ine.net> wrote in message
news:%2******** ********@TK2MSF TNGP12.phx.gbl. ..

I tried moving my code to the activated method after reading a reference
noticing that the form load method runs before the form is painted so
the code would be useless there.

No luck with the following code:

Maybe e-mailing you the actual code would help. I am so confused with
this problem.

Private Sub frmAbout_Activa ted(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Activate d
Dim i As Double = 0.0

While i < 1.0
'Application.Do Events()
Me.Opacity = i
i = i + 0.01
System.Threadin g.Thread.Sleep( 50)
End While
'Me.Opacity = 1
End Sub

-Ivan

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Brian Henry]

you will have to set the initial opacity to zero also, using a thread like
this makes the form usable while it fades in also... change the sleep time
to make it go faster also
"Ivan Weiss" <iv*****@optonl ine.net> wrote in message
news:%2******** ********@TK2MSF TNGP12.phx.gbl. ..

I tried moving my code to the activated method after reading a reference
noticing that the form load method runs before the form is painted so
the code would be useless there.

No luck with the following code:

Maybe e-mailing you the actual code would help. I am so confused with
this problem.

Private Sub frmAbout_Activa ted(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Activate d
Dim i As Double = 0.0

While i < 1.0
'Application.Do Events()
Me.Opacity = i
i = i + 0.01
System.Threadin g.Thread.Sleep( 50)
End While
'Me.Opacity = 1
End Sub

-Ivan

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!