Question

求助各位大牛！关于VB.NET淡入淡出效果

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Timer2.Enabled <> True Then
Timer2.Enabled = True
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Me.Opacity < 1 Then
Me.Opacity += 0.01
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If Me.Opacity > 0 Then
Me.Opacity -= 0.01
Else
Me.Close()
End If
End Sub
End Class

淡入可以实现，但淡出效果实现不了，按了“退出”按钮后窗体就一直闪个不停。问题出在哪里呢？

Answer 1

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

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If Me.Opacity > 0 Then
Me.Opacity -= 0.01
Else
Me.Close()
End If
End Sub

Answer 2

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Timer1.Enabled = False
If Me.Opacity > 0 Then
Me.Opacity -= 0.01
Else
Me.Close()
End If
End Sub

Answer 3

你的代码里只有Timer2.Enabled = True
好像没有Timer2.Enabled = False
这样是不是timer控件始终是开着的？