- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
'Öncelikle StandartExe projesi oluşturun ve projenize form1 isimli bir form eklemeniz yeterli
'Buradan itibaren Formumuza yapıştırın
'formun General Declarations'ına yazılacak
Option Explicit
'Buradan itibaren sabitleri tanımlıyoruz
Const AW_HOR_POSITIVE = &H1
Const AW_HOR_NEGATIVE = &H2
Const AW_VER_POSITIVE = &H4
Const AW_VER_NEGATIVE = &H8
Const AW_CENTER = &H10
Const AW_HIDE = &H10000
Const AW_ACTIVATE = &H20000
Const AW_SLIDE = &H40000
Const AW_BLEND = &H80000
'Burada ise kullanacağımız windows apisini yazıyoruz
Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean
'Buradan itibaren Formun Load ve Unload olayına yazılacak.
Private Sub Form_Load()
Me.AutoRedraw = True
Me.Cls
Me.Print "B.ZAGOR"
Me.Print "Formu Kapat Bakalım"
End Sub
Private Sub Form_Unload(Cancel As Integer)
AnimateWindow Me.hwnd, 200, AW_VER_POSITIVE Or AW_HOR_NEGATIVE Or AW_HIDE
'form unload edildi
Set Form1 = Nothing
End Sub
'Buradan itibaren Formumuza yapıştırın
'formun General Declarations'ına yazılacak
Option Explicit
'Buradan itibaren sabitleri tanımlıyoruz
Const AW_HOR_POSITIVE = &H1
Const AW_HOR_NEGATIVE = &H2
Const AW_VER_POSITIVE = &H4
Const AW_VER_NEGATIVE = &H8
Const AW_CENTER = &H10
Const AW_HIDE = &H10000
Const AW_ACTIVATE = &H20000
Const AW_SLIDE = &H40000
Const AW_BLEND = &H80000
'Burada ise kullanacağımız windows apisini yazıyoruz
Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean
'Buradan itibaren Formun Load ve Unload olayına yazılacak.
Private Sub Form_Load()
Me.AutoRedraw = True
Me.Cls
Me.Print "B.ZAGOR"
Me.Print "Formu Kapat Bakalım"
End Sub
Private Sub Form_Unload(Cancel As Integer)
AnimateWindow Me.hwnd, 200, AW_VER_POSITIVE Or AW_HOR_NEGATIVE Or AW_HIDE
'form unload edildi
Set Form1 = Nothing
End Sub