Form Ditutup Mengecil (Seperti Inbox Dalam Power Point)

Buka VB
Buatlah sebuah module (klik menu project >> add module >> OK)
Ketik koding berikut ini :

#If Win16 Then
Type RECT
Left As Integer
Top As Integer
Right As Integer
Bottom As Integer
End Type
#Else
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
#End If
#If Win16 Then
Declare Sub GetWindowRect Lib "User" (ByVal hwnd As _
Integer, lpRect As RECT)
Declare Function GetDC Lib "User" (ByVal hwnd As _
Integer) As Integer
Declare Function ReleaseDC Lib "User" (ByVal hwnd _
As Integer, ByVal hdc As Integer) As Integer
Declare Sub SetBkColor Lib "GDI" (ByVal hdc As _
Integer, ByVal crColor As Long)
Declare Sub Rectangle Lib "GDI" (ByVal hdc As _
Integer, ByVal X1 As Integer, ByVal Y1 As Integer, _
ByVal X2 As Integer, ByVal Y2 As Integer)
Declare Function CreateSolidBrush Lib "GDI" (ByVal _
crColor As Long) As Integer
Declare Function SelectObject Lib "GDI" (ByVal hdc _
As Integer, ByVal hObject As Integer) As Integer
Declare Sub DeleteObject Lib "GDI" (ByVal hObject As Integer)
#Else
Declare Function GetWindowRect Lib "user32" (ByVal _
hwnd As Long, lpRect As RECT) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As _
Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd _
As Long, ByVal hdc As Long) As Long
Declare Function SetBkColor Lib "gdi32" (ByVal hdc _
As Long, ByVal crColor As Long) As Long
Declare Function Rectangle Lib "gdi32" (ByVal hdc _
As Long, ByVal X1 As Long, ByVal Y1 As Long, _
ByVal X2 As Long, ByVal Y2 As Long) As Long

Declare Function CreateSolidBrush Lib "gdi32" _
(ByVal crColor As Long) As Long
Declare Function SelectObject Lib "user32" (ByVal _
hdc As Long, ByVal hObject As Long) As Long
Declare Function DeleteObject Lib "gdi32" (ByVal _
hObject As Long) As Long
#End If

Public Sub ImplodeForm(f As Form, Movement As Integer)
Dim myRect As RECT
Dim formWidth%, formHeight%, i%, x%, Y%, Cx%, Cy%
Dim TheScreen As Long
Dim Brush As Long
GetWindowRect f.hwnd, myRect
formWidth = (myRect.Right - myRect.Left)
formHeight = myRect.Bottom - myRect.Top
TheScreen = GetDC(0)
Brush = CreateSolidBrush(f.BackColor)
For i = Movement To 1 Step -1
Cx = formWidth * (i / Movement)
Cy = formHeight * (i / Movement)
x = myRect.Left + (formWidth - Cx) / 2
Y = myRect.Top + (formHeight - Cy) / 2
Rectangle TheScreen, x, Y, x + Cx, Y + Cy
Next i
x = ReleaseDC(0, TheScreen)
DeleteObject (Brush)
End Sub

Buka form
Ketik koding berikut ini
Private Sub Form_Unload(Cancel As Integer)
Call ImplodeForm(5000)
End Sub


RUN program
Tutup form
Lihat efeknya

Posted in: VB.NET