formumuz havalı olsun !

Aradığınız içerik sitemizde mevcut durumdadır buradan sitemize dönebilirsiniz !

Forum Başlıklarına gitmek için tıklayınız

Formumuz Havalı Olsun !

Formunuzun havası olsun, efektli form açılışları</STRoNG>
" 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

Kod Alanı:

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

Hosting Sponsorumuz - Noktahost internet hizmetleri