New to vb.net and need a little help.

[doomsday123]

Ok well im making a splash screen and I want it to fade in when opened. What I have so far is.

Private Sub FadeInTimer_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles FadeInTimer.Tick
If Me.Opacity = 0% Then
Opacity += 0.01
End If
End Sub

What I want it to do is detect that the opacity of the form is 0% and then raise it to 100% with the timer. I can get it to work without the IF but when I add the if it wont detect that the opacity of the form is at 0% so it doesnt raise the opacity. Maybe i am putting in the wrong opacity value for 0%. if someone could help me it would be great. Thanks.

[TLord]

Your code doesn't work because it checks the opacity value on every tick. The opacity value is raised only when it is 0.00, so it will work only on the first tick.

You should use something like this:

If Me.Opacity < 1 then
  Me.Opacity += 0.01
Else
  FadeTimer.Enabled = False
End If

because when the opacity is 1 (100%) the timer isn't needed anymore, disable it.

[doomsday123]

Ok cool thanks. Now that I got that working I want to make it to where after fades in it fades back out and the loops. Kinda like it is pulsing. Here is what I got.

Private Sub FadeInTimer_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles FadeInTimer.Tick
If Me.Opacity < 1 Then
FadeInTimer.Enabled = True
Opacity += 0.01
Else
FadeInTimer.Enabled = False
End If
End Sub

Private Sub CloseTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseTimer.Tick
If Me.Opacity = 1 Then
CloseTimer.Enabled = True
Opacity -= 0.01
Else
CloseTimer.Enabled = False
End If
End Sub

If you could help it would be great. Thanks.

[TLord]

Do I like to fail people?

This is my suggestion for a fade-out timer (I used the same algorithm as the fade-in timer...):

If Me.Opacity > 0 then
  Me.Opacity -= 0.01
Else
  FadeOutTimer.Enabled = False
End If

Let's just get one point clear: here you're dealing with time-dependent values, this makes using absolute values useless, you should use the range limitation ways (<, >, <= or >=).

[doomsday123]

Well I put that in my code and nothing. Ill show you all my code so maybe you can get a better idea of things. What I want it to do is to make the splash screen pulse in and out while the main app is loading.

Public Class FaderForm
    Inherits System.Windows.Forms.Form
 
 
#Region " Windows Form Designer generated code "
 
    Public Sub New()
        MyBase.New()
 
        'This call is required by the Windows Form Designer.
        InitializeComponent()
 
        'Add any initialization after the InitializeComponent() call
 
    End Sub
 
    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
 
    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents FadeInTimer As System.Windows.Forms.Timer
    Friend WithEvents CloseTimer As System.Windows.Forms.Timer
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(FaderForm))
        Me.FadeInTimer = New System.Windows.Forms.Timer(Me.components)
        Me.CloseTimer = New System.Windows.Forms.Timer(Me.components)
        '
        'FadeInTimer
        '
        Me.FadeInTimer.Enabled = True
        Me.FadeInTimer.Interval = 1
        '
        'CloseTimer
        '
        Me.CloseTimer.Interval = 1
        '
        'FaderForm
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = New System.Drawing.Size(542, 216)
        Me.ControlBox = False
        Me.Enabled = False
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "FaderForm"
        Me.Opacity = 0
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
 
    End Sub
 
#End Region
 
    Private Sub FadeInTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FadeInTimer.Tick
        If Me.Opacity < 1 Then
            FadeInTimer.Enabled = True
            Opacity += 0.01
        Else
            FadeInTimer.Enabled = False
        End If
    End Sub
 
    Private Sub CloseTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseTimer.Tick
        If Me.Opacity > 0 Then
            Me.Opacity -= 0.01
        Else
            CloseTimer.Enabled = False
        End If
    End Sub
 
 
    Private Sub FaderForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ShowInTaskbar = False
    End Sub
 
End Class

Hope this helps. Thanks

[SuperSparks]

You need to enable the fade-in timer from the form load event or the If Then statement will never be reached.

Then call the CloseTimer from the end of the Fade-in timer:

Private Sub FadeInTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FadeInTimer.Tick
        If Me.Opacity < 1 Then
            Opacity += 0.01
        Else
            FadeInTimer.Enabled = False
        End If
        CloseTimer.Enabled = True
    End Sub

[taxes]

Hi,

Try to make your thread titles relative to the question. Otherwise it becomes impossible to carry our a sensible search on it.

[doomsday123]

Ok well i put that code in and now nothing happens. The form wont even fade in. Here is what I have now.

Private Sub FadeInTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FadeInTimer.Tick
        If Me.Opacity < 1 Then
            Opacity += 0.01
        Else
            FadeInTimer.Enabled = False
        End If
        FadeOutTimer.Enabled = True
    End Sub
 
    Private Sub FadeOutTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FadeOutTimer.Tick
        If Me.Opacity > 0 Then
            Me.Opacity -= 0.01
        Else
            FadeOutTimer.Enabled = False
        End If
    End Sub

Did I do something wrong? I have FadeInTimer enabled and FadeOutTimer disabled.

[doomsday123]

Well im not sure if this will work but i have an idea. since i dont know the language completely yet I will put it in psuedacode. Here it goes.

Private Sub
     Check for Opacity
     If Opacity is less that 100% then
          Increase Opacity by 0.01 for each tick of the FadeInTimer
     End If
     Check for Opacity
     Once Opacity is greater than 0% then
     Disable FadeInTimer
     Enable FadeOutTimer
End Sub

Private Sub
     Check for Opacity
     If Opacity is greater than 0%
          Decrease Opacity by 0.01 for each tick of FadeOutTimer
     End If
     Check for Opacity
     Once Opacity is  less than 100% then
     Disable FadeOutTimer
     Enable FadeInTimer
End Sub

It is basically like a loop. If anyone can make this work you would be of much help. Thanks

[brown monkey]

hope my post helps

[doomsday123]

Awsome ! Thanks a ton Brown Monkey. Just 2 lines of modification and it worked like a charm ! Thanks again !