- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
- Handles Button1.Click
- FadeOut(Me, 0.001)
- FadeIn(Me, 0.001)
- End Sub
- Public Sub FadeOut(ByVal FadeForm As Form, Optional ByVal speed As Double = 0.01,Optional ByVal disposeForm As Boolean = False)
- Dim i As Double
- For i = 1 To 0 Step -speed
- FadeForm.Opacity = i
- Next
- If disposeForm = True Then FadeForm.Dispose()
- End Sub
- Public Sub FadeIn(ByVal iForm As Form, Optional ByVal speed As Double = 0.01,Optional ByVal disposeForm As Boolean = False, Optional ByVal delay As Double = 0)
- Dim i As Double
- For i = 0 To 1 Step speed
- iForm.Opacity = i
- Next
- If disposeForm = True Then
- iForm.Dispose()
- End If
- End Sub
Tác giả: Nguyễn Trung Tín sưu tầm
Mô tả: Một hiệu ứng của Form trong VB.NET
Chúc các bạn vui...

Cần 1 Button.
Mã: Chọn hết