Laman

Selasa, 19 Oktober 2010

Membuat Efek Form Mengecil

   Nah kita ketemu lagi di Rious Of RQ blog ini...., sekarang kita akana membahas bagaimana cara membuat efek Form ketika di Close  form akan ada efek mengecilnya...
   Pertama buka form (form apa saja yang penting form dari vb. 06).

   Lalu buatlah module (klik menu project >> add module >> OK), lalu masukan coding ini di module tersebut :




#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

lalu buka lagi form lalu masukan koding di bawah ini:

Private Sub Form_Unload(Cancel As Integer)
Call ImplodeForm(5000)
End Sub

0 komentar:

Posting Komentar