下面的代碼允許我在打開和關閉時淡入淡出,這正是我想要的。不過,我希望我的表單在淡出開始之前保持10秒鐘。我正在努力完成該部分。設置時間後關閉表格
這是我到目前爲止有:
Public Class frmDefinitions
Private Sub Button1_Click(sender As Object, e As EventArgs) _
Handles Button1.Click
tmr_out.Enabled = True
End Sub
Private Sub frmDefinitions_Load(sender As Object, e As EventArgs) _
Handles MyBase.Load
Me.Opacity = 100
tmr_in.Enabled = True
End Sub
Private Sub tmr_in_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles tmr_in.Tick
Me.Opacity += 0.05
If Me.Opacity = 1 Then
tmr_in.Enabled = False
End If
End Sub
Private Sub tmr_out_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles tmr_out.Tick
Me.Opacity -= 0.05
If Me.Opacity = 0 Then
tmr_out.Enabled = False
Me.Close()
End If
End Sub
End Class
你試過用計時器嗎?並且計時器滴答的事件處理程序將開始您的淡入淡出過程。 –
我試着用兩個計時器,但我沒有成功。我一定是做錯了,加載後它仍然淡出。 –
爲什麼你要將初始不透明度設置爲100,如果你不想淡入表單?不透明度的初始值是不是0? – Jaska