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!

[Brian Henry]

just a little bug to that, the opacity only reaches .99 at the end, you
might want to make a better loop or set the opacity at the end of the fadein
sub to be 1..
also the step will change how much the fade does to, like .01 does 100
levels of fade, while .1 does only 10...
"Brian Henry" <[REMOVE-ME]br******@adelph ia.net> wrote in message
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..

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!

[Bernie Yaeger]

Hi Ivan,

That is the answer - I was having the same problem - simply do not set a
parent and the form will fade in just fine.

HTH,

Bernie Yaeger

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

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!

[Chris Dunaway]

On Sun, 14 Dec 2003 18:07:49 -0800, Ivan Weiss wrote:

For i = 0.0 To i >= 1.0

This syntax makes no sense to me. The i >= 1.0 clause will evaluate to a
boolean False. So you're really saying For i = 0.0 To False. That makes
no sense to me. Do you have Option Strict On?

Try this:

Dim i as Double

For i = 0.0 to 1.0 Step 0.01
Me.Opacity = i
System.Threadin g.Thread.Sleep( 500)
Next

Does that make any difference?

--
Chris

To send me an E-mail, remove the underscores and lunchmeat from my E-Mail
address.

[Brian Henry]

u know that works and all but it will never reach 1.0 ;) stepping by .01
will get you up to .99 then drop out... duno why exactly.. but it does...
look at the code i posted... it only getsup to 99% opacity when i tested it
many times... had to manually set it to 1.0 myself to get 100%
"Chris Dunaway" <dunawayc@_lunc hmeat_sbcglobal .net> wrote in message
news:1l******** *************** *****@40tude.ne t...

On Sun, 14 Dec 2003 18:07:49 -0800, Ivan Weiss wrote:

For i = 0.0 To i >= 1.0

This syntax makes no sense to me. The i >= 1.0 clause will evaluate to a
boolean False. So you're really saying For i = 0.0 To False. That makes
no sense to me. Do you have Option Strict On?

Try this:

Dim i as Double

For i = 0.0 to 1.0 Step 0.01
Me.Opacity = i
System.Threadin g.Thread.Sleep( 500)
Next

Does that make any difference?

--
Chris

To send me an E-mail, remove the underscores and lunchmeat from my E-Mail
address.

[Brian Henry]

u know that works and all but it will never reach 1.0 ;) stepping by .01
will get you up to .99 then drop out... duno why exactly.. but it does...
look at the code i posted... it only getsup to 99% opacity when i tested it
many times... had to manually set it to 1.0 myself to get 100%
"Chris Dunaway" <dunawayc@_lunc hmeat_sbcglobal .net> wrote in message
news:1l******** *************** *****@40tude.ne t...

On Sun, 14 Dec 2003 18:07:49 -0800, Ivan Weiss wrote:

For i = 0.0 To i >= 1.0

This syntax makes no sense to me. The i >= 1.0 clause will evaluate to a
boolean False. So you're really saying For i = 0.0 To False. That makes
no sense to me. Do you have Option Strict On?

Try this:

Dim i as Double

For i = 0.0 to 1.0 Step 0.01
Me.Opacity = i
System.Threadin g.Thread.Sleep( 500)
Next

Does that make any difference?

--
Chris

To send me an E-mail, remove the underscores and lunchmeat from my E-Mail
address.