我写了如下代码,但最后却没关掉(窗体已不可见,但任务栏上仍有显示),请高手指教!
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 10
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Opacity -= 0.005
If Me.Opacity <= 0.2 Then
Me.Close()
Timer1.Enabled = False
End If
End Sub
End Class