Formunuzun havası olsun, efektli form açılışları
" Formunuza tek satır kod ile açılış ve kapanış efektleri ekleyebilirsiniz. "
Burada vereceğim kodlarla ile formunuzuna açılış ve kapanış efektleri ekleyebilirsiniz.
Şimdi bu kodları nasıl kullanacağız, ona bakalım.
* Aslında ben zaten gerekli tüm açıklamayı kodların içine yazdım ancak yine de burada bir açıklama yapayım.
1. Formunuza (adı Form1 olsun ) sadece 1 adet timer ekleyin. (adı Timer1 olsun )
2. Kodların kullanımı çok basittir. Tek satır kod! ---> efekt_adi parametreler
Gelelim efektlere ve kullanım şekillerine,
-
FORM AÇILIŞLARI
-
Sağa Aç (Form Açılışı )
Kullanımı: SagaAc 5000, 5
5 milisaniyede bir formu +50 uzatır. (5000’e kadar. )
Buradaki 5 milisaniyeyi ve 5000’i değiştirebilirsiniz.
-
Aşağıya Aç (Form Açlışı )
Kullanımı: AsagiyaAc 5000, 5
5 milisaniyede bir formu asağıya doğru uzatır. (5000 olana kadar. )
Buradaki 5 milisaniyeyi ve 5000’i değiştirebilirsiniz.
-
Köşeye Aç (Form Açılışı )
Kullanımı: KoseyeAc 5000, 4000, 5
5 milisaniyede bir formu büyütür. (5000x4000 olana kadar. )
Buradaki 5 milisaniyeyi, 5000’i ve 4000’i değiştirebilirsiniz.
-
FORM AÇILIŞARININ DAHA KOLAY 2. VERSİYONLARI
-
Buradaki kolaylık, formunuza efektli açılış eklerken 3000’le 4000’le
istediğiniz ayarı tutturmak zor oluyorsa siz sadece formu istediğiniz
büyüklüğe getirin, kodu yazın ve açılış hızını ayarlayın ve böylece
otomatik olarak ayarladığınız büyüklüğe doğru form efektli bir şekilde
açılacaktır. Daha kolay bir yöntem değil mi?
-
Sağa Aç 2 (Form Açılışı )
Kullanımı: SagaAc2 5
Formunuzu ilk önce boyutlandırın ve bu kod otomatik olarak
formu anında küçücük yapar ve sonra eski haline doğru büyütür.
Buradaki 5 milisaniyeyi değiştirebilirsiniz.
-
Aşağıya Aç 2 (Form Açılışı )
Kullanımı: AsagiyaAc2 5
Formunuzu ilk önce boyutlandırın ve bu kod otomatik olarak
formu anında küçücük yapar ve sonra eski haline doğru büyütür.
Buradaki 5 milisaniyeyi değiştirebilirsiniz.
-
Köşeye Aç 2 (Form Açılışı )
Kullanımı: KoseyeAc2 5
Formunuzu ilk önce boyutlandırın ve bu kod otomatik olarak
formu anında küçücük yapar ve sonra eski haline doğru büyütür.
Buradaki 5 milisaniyeyi değiştirebilirsiniz.
-
FORM KAPANIŞLARI
-
Sola Kapa (Form Kapanışı )
Kullanımı: SolaKapa 5
5 milisaniyede bir formu sola doğru küçültür.
Buradaki 5 milisaniyeyi değiştirebilirsiniz.
-
Aşağıya Kapat (Form Kapanışı )
Kullanımı: AsagiyaKapa 5
5 milisaniyede bir formu yukarı doğru küçültür.
Buradaki 5 milisaniyeyi değiştirebilirsiniz.
YUKARIDAKİ BAZI KOMUTLARIN DAHA KOLAY 2. VERSİYONLARI
-
Köşeden Kapat (Form Kapanışı )
Kullanımı: KosedenKapat 5
5 milisaniyede bir formu küçültür.
Buradaki 5 milisaniyeyi değiştirebilirsiniz.
-
KOMUTLARI ÖZETLERSEK
-
Milisaniye olarak 5 ve boyut olarak 5000 kabul edelim.
* Açılışlar
SagaAc 5000, 5
AsagiyaAc 5000, 5
KoseyeAc 5000, 4000, 5
* Boyutsuz Açılışlar
SagaAc2 5
AsagiyaAc2 5
KoseyeAc2 5
* Kapanışlar
SolaKapa 5
AsagiyaKapa 5
KosedenKapat 5
SON OLARAK
Şimdi aşağıdaki kodları forma aynen kopyala/yapıştır yapalım. Hadi kolay gelsin!
’******************** - KOD BAŞLANGICI - ********************
’Bu kodların tamamını Furkan Omay yazmıştır.
’Formunuza sadece bir timer ekleyin ve
’Form_Load olayına istediğiniz bir efektin komutunu yazınız.
’Bu kodlarla birçok form’a açılış ve kapanış
’efekti ekleyebilirsiniz.
’Hız olarak 1-100 girmeniz uygun olacaktır.
’Not: Timer ve Form adını değiştirecekseniz,
’kodlarda da gerekli düzenlemeyi yapınız.
’Kullanabileceğiniz efektkerin tam listesi aşağıda!
’********************EFEKT LİSTESİ********************
’Sağa Aç (Form Açılışı )
’Kullanımı: SagaAc 5000, 5
’5 milisaniyede bir formu +50 uzatır. (5000’e kadar. )
’Buradaki 5 milisaniyeyi ve 5000’i değiştirebilirsiniz.
’-
’Sola Kapa (Form Kapanışı )
’Kullanımı: SolaKapa 5
’5 milisaniyede bir formu sola doğru küçültür.
’Buradaki 5 milisaniyeyi değiştirebilirsiniz.
’-
’Köşeye Aç (Form Açılışı )
’Kullanımı: KoseyeAc 5000, 4000, 5
’5 milisaniyede bir formu büyütür. (5000x4000 olana kadar. )
’Buradaki 5 milisaniyeyi, 5000’i ve 4000’i değiştirebilirsiniz.
’-
’Köşeden Kapat (Form Kapanışı )
’Kullanımı: KosedenKapat 5
’5 milisaniyede bir formu küçültür.
’Buradaki 5 milisaniyeyi değiştirebilirsiniz.
’-
’Aşağıya Aç (Form Açlışı )
’Kullanımı: AsagiyaAc 5000, 5
’5 milisaniyede bir formu asağıya doğru uzatır. (5000 olana kadar. )
’Buradaki 5 milisaniyeyi ve 5000’i değiştirebilirsiniz.
’-
’Aşağıya Kapat (Form Kapanışı )
’Kullanımı: AsagiyaKapa 5
’5 milisaniyede bir formu yukarı doğru küçültür.
’Buradaki 5 milisaniyeyi değiştirebilirsiniz.
’YUKARIDAKİ BAZI KOMUTLARIN DAHA KOLAY 2. VERSİYONLARI
’-
’Köşeye Aç 2 (Form Açılışı )
’Kullanımı: KoseyeAc2 5
’Formunuzu ilk önce boyutlandırın ve bu kod otomatik olarak
’formu anında küçücük yapar ve sonra eski haline doğru büyütür.
’Buradaki 5 milisaniyeyi değiştirebilirsiniz.
’-
’Sağa Aç 2 (Form Açılışı )
’Kullanımı: SagaAc2 5
’Formunuzu ilk önce boyutlandırın ve bu kod otomatik olarak
’formu anında küçücük yapar ve sonra eski haline doğru büyütür.
’Buradaki 5 milisaniyeyi değiştirebilirsiniz.
’-
’Aşağıya Aç 2 (Form Açılışı )
’Kullanımı: AsagiyaAc2 5
’Formunuzu ilk önce boyutlandırın ve bu kod otomatik olarak
’formu anında küçücük yapar ve sonra eski haline doğru büyütür.
’Buradaki 5 milisaniyeyi değiştirebilirsiniz.
’-
’********************EFEKT LİSTESİ SONU********************
Public yapilacak, limit, limit2, eski, eski2 As Integer
Public Sub SagaAc(Ne_Kadar As Long, Hiz As Integer )
Timer1.Interval = Hiz
yapilacak = 1
limit = Ne_Kadar
Form1.Width = 1
Timer1.Enabled = True
End Sub
Public Sub SolaKapa(Hiz As Integer )
Timer1.Interval = Hiz
yapilacak = 2
Timer1.Enabled = True
End Sub
Public Sub KoseyeAc(Ne_Kadar_Asagi As Long, Ne_Kadar_Saga As Long, Hiz As Integer )
Timer1.Interval = Hiz
yapilacak = 3
limit = Ne_Kadar_Asagi
limit2 = Ne_Kadar_Saga
Form1.Width = 1
Form1.Height = 1
Timer1.Enabled = True
End Sub
Public Sub KosedenKapat(Hiz As Integer )
Timer1.Interval = Hiz
yapilacak = 4
Timer1.Enabled = True
End Sub
Public Sub KoseyeAc2(Hiz As Integer )
Timer1.Interval = Hiz
yapilacak = 3
limit = Form1.Height
limit2 = Form1.Width
Form1.Height = 1
Form1.Width = 1
Timer1.Enabled = True
End Sub
Public Sub SagaAc2(Hiz As Integer )
Timer1.Interval = Hiz
yapilacak = 1
limit = Form1.Width
Form1.Width = 1
Timer1.Enabled = True
End Sub
Public Sub AsagiyaAc(Nereye_Kadar As Integer, Hiz As Integer )
Timer1.Interval = Hiz
yapilacak = 5
limit = Nereye_Kadar
Form1.Height = 1
Timer1.Enabled = True
End Sub
Public Sub AsagiyaAc2(Hiz As Integer )
Timer1.Interval = Hiz
yapilacak = 5
limit = Form1.Height
Form1.Height = 1
Timer1.Enabled = True
End Sub
Public Sub AsagiyaKapa(Hiz As Integer )
Timer1.Interval = Hiz
yapilacak = 6
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer( )
Select Case yapilacak
Case Is = 1
If Form1.Width < limit Then
Form1.Width = Math.Round(Form1.Width + 50 )
Else
yapilacak = 0
Timer1.Enabled = False
End If
Case Is = 2
eski = Form1.Width
If Form1.Width > 5 Then
Form1.Width = Math.Round(Form1.Width - 50 )
Else
End
End If
If Form1.Width = eski Then
End
End If
Case Is = 3
If Form1.Height < limit Then
Form1.Height = Math.Round(Form1.Height + 50 )
Else
If Form1.Width >= limit2 Then
Timer1.Enabled = False
End If
End If
If Form1.Width < limit2 Then
Form1.Width = Math.Round(Form1.Width + 50 )
Else
If Form1.Height >= limit Then
Timer1.Enabled = False
End If
End If
Case Is = 4
eski = Form1.Width
eski2 = Form1.Height
If Form1.Width > 5 Then
Form1.Width = Math.Round(Form1.Width - 50 )
Else
If Form1.Height <= 5 Then End
End If
If Form1.Height > 5 Then
Form1.Height = Math.Round(Form1.Height - 50 )
Else
If Form1.Width <= 5 Then End
End If
If Form1.Width = eski And Form1.Height = eski2 Then
End
End If
Case Is = 5
If Form1.Height < limit Then
Form1.Height = Math.Round(Form1.Height + 50 )
Else
Timer1.Enabled = False
End If
Case Is = 6
eski = Form1.Height
If Form1.Height > 5 Then
Form1.Height = Math.Round(Form1.Height - 50 )
Else
End
End If
If Form1.Height = eski Then
End
End If
Case Else
yapilacak = 0
Timer1.Enabled = False
End Select
End Sub
" Formunuza tek satır kod ile açılış ve kapanış efektleri ekleyebilirsiniz. "
Burada vereceğim kodlarla ile formunuzuna açılış ve kapanış efektleri ekleyebilirsiniz.
Şimdi bu kodları nasıl kullanacağız, ona bakalım.
* Aslında ben zaten gerekli tüm açıklamayı kodların içine yazdım ancak yine de burada bir açıklama yapayım.
1. Formunuza (adı Form1 olsun ) sadece 1 adet timer ekleyin. (adı Timer1 olsun )
2. Kodların kullanımı çok basittir. Tek satır kod! ---> efekt_adi parametreler
Gelelim efektlere ve kullanım şekillerine,
-
FORM AÇILIŞLARI
-
Sağa Aç (Form Açılışı )
Kullanımı: SagaAc 5000, 5
5 milisaniyede bir formu +50 uzatır. (5000’e kadar. )
Buradaki 5 milisaniyeyi ve 5000’i değiştirebilirsiniz.
-
Aşağıya Aç (Form Açlışı )
Kullanımı: AsagiyaAc 5000, 5
5 milisaniyede bir formu asağıya doğru uzatır. (5000 olana kadar. )
Buradaki 5 milisaniyeyi ve 5000’i değiştirebilirsiniz.
-
Köşeye Aç (Form Açılışı )
Kullanımı: KoseyeAc 5000, 4000, 5
5 milisaniyede bir formu büyütür. (5000x4000 olana kadar. )
Buradaki 5 milisaniyeyi, 5000’i ve 4000’i değiştirebilirsiniz.
-
FORM AÇILIŞARININ DAHA KOLAY 2. VERSİYONLARI
-
Buradaki kolaylık, formunuza efektli açılış eklerken 3000’le 4000’le
istediğiniz ayarı tutturmak zor oluyorsa siz sadece formu istediğiniz
büyüklüğe getirin, kodu yazın ve açılış hızını ayarlayın ve böylece
otomatik olarak ayarladığınız büyüklüğe doğru form efektli bir şekilde
açılacaktır. Daha kolay bir yöntem değil mi?
-
Sağa Aç 2 (Form Açılışı )
Kullanımı: SagaAc2 5
Formunuzu ilk önce boyutlandırın ve bu kod otomatik olarak
formu anında küçücük yapar ve sonra eski haline doğru büyütür.
Buradaki 5 milisaniyeyi değiştirebilirsiniz.
-
Aşağıya Aç 2 (Form Açılışı )
Kullanımı: AsagiyaAc2 5
Formunuzu ilk önce boyutlandırın ve bu kod otomatik olarak
formu anında küçücük yapar ve sonra eski haline doğru büyütür.
Buradaki 5 milisaniyeyi değiştirebilirsiniz.
-
Köşeye Aç 2 (Form Açılışı )
Kullanımı: KoseyeAc2 5
Formunuzu ilk önce boyutlandırın ve bu kod otomatik olarak
formu anında küçücük yapar ve sonra eski haline doğru büyütür.
Buradaki 5 milisaniyeyi değiştirebilirsiniz.
-
FORM KAPANIŞLARI
-
Sola Kapa (Form Kapanışı )
Kullanımı: SolaKapa 5
5 milisaniyede bir formu sola doğru küçültür.
Buradaki 5 milisaniyeyi değiştirebilirsiniz.
-
Aşağıya Kapat (Form Kapanışı )
Kullanımı: AsagiyaKapa 5
5 milisaniyede bir formu yukarı doğru küçültür.
Buradaki 5 milisaniyeyi değiştirebilirsiniz.
YUKARIDAKİ BAZI KOMUTLARIN DAHA KOLAY 2. VERSİYONLARI
-
Köşeden Kapat (Form Kapanışı )
Kullanımı: KosedenKapat 5
5 milisaniyede bir formu küçültür.
Buradaki 5 milisaniyeyi değiştirebilirsiniz.
-
KOMUTLARI ÖZETLERSEK
-
Milisaniye olarak 5 ve boyut olarak 5000 kabul edelim.
* Açılışlar
SagaAc 5000, 5
AsagiyaAc 5000, 5
KoseyeAc 5000, 4000, 5
* Boyutsuz Açılışlar
SagaAc2 5
AsagiyaAc2 5
KoseyeAc2 5
* Kapanışlar
SolaKapa 5
AsagiyaKapa 5
KosedenKapat 5
SON OLARAK
Şimdi aşağıdaki kodları forma aynen kopyala/yapıştır yapalım. Hadi kolay gelsin!
’******************** - KOD BAŞLANGICI - ********************
’Bu kodların tamamını Furkan Omay yazmıştır.
’Formunuza sadece bir timer ekleyin ve
’Form_Load olayına istediğiniz bir efektin komutunu yazınız.
’Bu kodlarla birçok form’a açılış ve kapanış
’efekti ekleyebilirsiniz.
’Hız olarak 1-100 girmeniz uygun olacaktır.
’Not: Timer ve Form adını değiştirecekseniz,
’kodlarda da gerekli düzenlemeyi yapınız.
’Kullanabileceğiniz efektkerin tam listesi aşağıda!
’********************EFEKT LİSTESİ********************
’Sağa Aç (Form Açılışı )
’Kullanımı: SagaAc 5000, 5
’5 milisaniyede bir formu +50 uzatır. (5000’e kadar. )
’Buradaki 5 milisaniyeyi ve 5000’i değiştirebilirsiniz.
’-
’Sola Kapa (Form Kapanışı )
’Kullanımı: SolaKapa 5
’5 milisaniyede bir formu sola doğru küçültür.
’Buradaki 5 milisaniyeyi değiştirebilirsiniz.
’-
’Köşeye Aç (Form Açılışı )
’Kullanımı: KoseyeAc 5000, 4000, 5
’5 milisaniyede bir formu büyütür. (5000x4000 olana kadar. )
’Buradaki 5 milisaniyeyi, 5000’i ve 4000’i değiştirebilirsiniz.
’-
’Köşeden Kapat (Form Kapanışı )
’Kullanımı: KosedenKapat 5
’5 milisaniyede bir formu küçültür.
’Buradaki 5 milisaniyeyi değiştirebilirsiniz.
’-
’Aşağıya Aç (Form Açlışı )
’Kullanımı: AsagiyaAc 5000, 5
’5 milisaniyede bir formu asağıya doğru uzatır. (5000 olana kadar. )
’Buradaki 5 milisaniyeyi ve 5000’i değiştirebilirsiniz.
’-
’Aşağıya Kapat (Form Kapanışı )
’Kullanımı: AsagiyaKapa 5
’5 milisaniyede bir formu yukarı doğru küçültür.
’Buradaki 5 milisaniyeyi değiştirebilirsiniz.
’YUKARIDAKİ BAZI KOMUTLARIN DAHA KOLAY 2. VERSİYONLARI
’-
’Köşeye Aç 2 (Form Açılışı )
’Kullanımı: KoseyeAc2 5
’Formunuzu ilk önce boyutlandırın ve bu kod otomatik olarak
’formu anında küçücük yapar ve sonra eski haline doğru büyütür.
’Buradaki 5 milisaniyeyi değiştirebilirsiniz.
’-
’Sağa Aç 2 (Form Açılışı )
’Kullanımı: SagaAc2 5
’Formunuzu ilk önce boyutlandırın ve bu kod otomatik olarak
’formu anında küçücük yapar ve sonra eski haline doğru büyütür.
’Buradaki 5 milisaniyeyi değiştirebilirsiniz.
’-
’Aşağıya Aç 2 (Form Açılışı )
’Kullanımı: AsagiyaAc2 5
’Formunuzu ilk önce boyutlandırın ve bu kod otomatik olarak
’formu anında küçücük yapar ve sonra eski haline doğru büyütür.
’Buradaki 5 milisaniyeyi değiştirebilirsiniz.
’-
’********************EFEKT LİSTESİ SONU********************
Public yapilacak, limit, limit2, eski, eski2 As Integer
Public Sub SagaAc(Ne_Kadar As Long, Hiz As Integer )
Timer1.Interval = Hiz
yapilacak = 1
limit = Ne_Kadar
Form1.Width = 1
Timer1.Enabled = True
End Sub
Public Sub SolaKapa(Hiz As Integer )
Timer1.Interval = Hiz
yapilacak = 2
Timer1.Enabled = True
End Sub
Public Sub KoseyeAc(Ne_Kadar_Asagi As Long, Ne_Kadar_Saga As Long, Hiz As Integer )
Timer1.Interval = Hiz
yapilacak = 3
limit = Ne_Kadar_Asagi
limit2 = Ne_Kadar_Saga
Form1.Width = 1
Form1.Height = 1
Timer1.Enabled = True
End Sub
Public Sub KosedenKapat(Hiz As Integer )
Timer1.Interval = Hiz
yapilacak = 4
Timer1.Enabled = True
End Sub
Public Sub KoseyeAc2(Hiz As Integer )
Timer1.Interval = Hiz
yapilacak = 3
limit = Form1.Height
limit2 = Form1.Width
Form1.Height = 1
Form1.Width = 1
Timer1.Enabled = True
End Sub
Public Sub SagaAc2(Hiz As Integer )
Timer1.Interval = Hiz
yapilacak = 1
limit = Form1.Width
Form1.Width = 1
Timer1.Enabled = True
End Sub
Public Sub AsagiyaAc(Nereye_Kadar As Integer, Hiz As Integer )
Timer1.Interval = Hiz
yapilacak = 5
limit = Nereye_Kadar
Form1.Height = 1
Timer1.Enabled = True
End Sub
Public Sub AsagiyaAc2(Hiz As Integer )
Timer1.Interval = Hiz
yapilacak = 5
limit = Form1.Height
Form1.Height = 1
Timer1.Enabled = True
End Sub
Public Sub AsagiyaKapa(Hiz As Integer )
Timer1.Interval = Hiz
yapilacak = 6
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer( )
Select Case yapilacak
Case Is = 1
If Form1.Width < limit Then
Form1.Width = Math.Round(Form1.Width + 50 )
Else
yapilacak = 0
Timer1.Enabled = False
End If
Case Is = 2
eski = Form1.Width
If Form1.Width > 5 Then
Form1.Width = Math.Round(Form1.Width - 50 )
Else
End
End If
If Form1.Width = eski Then
End
End If
Case Is = 3
If Form1.Height < limit Then
Form1.Height = Math.Round(Form1.Height + 50 )
Else
If Form1.Width >= limit2 Then
Timer1.Enabled = False
End If
End If
If Form1.Width < limit2 Then
Form1.Width = Math.Round(Form1.Width + 50 )
Else
If Form1.Height >= limit Then
Timer1.Enabled = False
End If
End If
Case Is = 4
eski = Form1.Width
eski2 = Form1.Height
If Form1.Width > 5 Then
Form1.Width = Math.Round(Form1.Width - 50 )
Else
If Form1.Height <= 5 Then End
End If
If Form1.Height > 5 Then
Form1.Height = Math.Round(Form1.Height - 50 )
Else
If Form1.Width <= 5 Then End
End If
If Form1.Width = eski And Form1.Height = eski2 Then
End
End If
Case Is = 5
If Form1.Height < limit Then
Form1.Height = Math.Round(Form1.Height + 50 )
Else
Timer1.Enabled = False
End If
Case Is = 6
eski = Form1.Height
If Form1.Height > 5 Then
Form1.Height = Math.Round(Form1.Height - 50 )
Else
End
End If
If Form1.Height = eski Then
End
End If
Case Else
yapilacak = 0
Timer1.Enabled = False
End Select
End Sub
