animasyonlu form açılışı

[karaayhan]

bir örnekte gördüm arkadaş modülü göndeceğini söyledi günler geçti ama
hâlâ göndermedi. Bu konu hakkında bilgisi olan varsa lütfen esirgemesin.
Ortadan genişleyerek açılıyor önce beyaz bir alan gibi form boyutunu bulunca tam olarak açılıyor.
Çok şık güzel bir tasarım ....

 

[karaayhan]

53 kez bakılmış ama kimse oralı bile olmamış neyse bundan vazgeçtim formun animasyonlu açılması kimseyi ilgilendirmiyor demek ki.
daha öncede benzer bir soruya cevap alamamıştım.
güzel bir arayüz nasıl olur diye sormuştum
aslında işlevsellik önemli ama programlarımız gözede hitap etse hiç fena olmaz yani :?

 

[modalı]

Sayın karaayhan,

Daha önce herhalde soru gözümden kaçtı.

İyiki hapşırıkla :kafa: tekrar gündeme geldi. Denemedim ama aşağıdaki kod belki işinize yarar.(VB kodu da ondan)

'(General)(Declaration)

Const AW_HOR_POSITIVE = &H1             ' Soldan sağa

Const AW_HOR_NEGATIVE = &H2                         ' Sağdan sola

Const AW_VER_POSITIVE = &H4                          ' Yukarıdan aşağıya

Const AW_VER_NEGATIVE = &H8                         ' Aşağıdan yukarıya

Const AW_CENTER = &H10                       ' Merkeze

Const AW_HIDE = &H10000                      ' Sakla

 

Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, _

                           ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean

 

Private Sub Form_Load()

         Me.AutoRedraw = True

         Me.Print "Unload me"

End Sub

 

Private Sub Form_Unload(Cancel As Integer)

         AnimateWindow Me.hwnd, 200, AW_CENTER Or AW_HIDE

         Set Form1 = Nothing

End Sub

İyi çalışmalar

 

[karaayhan]

Evet sayın modalı soru buna benzer bir cevap arıyor ama bu hata veriyor
bi gayret access için olanı bulalım bence çok güzel olacak....
size mail alarak yapılmış bir örnek atayım tabi mde malesef :agla:

 

[modalı]

Sayın karaayhan,

Stephan Leban ın bir çalışmasını buldum ama bende çalışmadı içindeki class modülü olmasına raşmen tanımıyor. Her neyse bir de siz deneyin

iyi çalışmalar :hey:

 

[Haluk]

Aynı siteden indirdim, Office2000 ile bir problem olmadı ...

 

[modalı]

Haluk bey,

Ne yazık ki Access 2002 SP3 de açılmıyor hata veriyor. Ben de anlayamadım. Class Modülü görmüyor. Run Time err 5 hatası veriyor. Debug layınca Class Modülün çağrıldığı satırı gösteriyor.
Çözümü varsa rica edeyim.

Şimdiden teşekkür ederim.

İyi çalışmalar

 

[Haluk]

Sn. modalı, hata konusu hakkında inanın hiçbir fikrim yok.

Office2000 ile çalışıp da, 2002 ile çalışmaması ilginç bir durum.

Bir de bunu deneyin isterseniz, ClassModule kullanılmamış ...

Kaynak: http://www.fabalou.com/Access/Forms/formshrinker.asp

 

[modalı]

Sayın Haluk bey

Çok teşekkür ediyorum.

İyi çalışmalar

 

[karaayhan]

Bu çalışmayı indirdim form kapanmasına örnek daha önce de indirip görmüştüm bu çalışmayı,

Benim sorum form açılışı ve gördüğüm örnek'te merkezden büyüyerek açılan bir form du bunun modülü varmış ama ne? prg yapan kişiyle görüştüm bana göndereceğini söyledi ama henüz bir cevap alamadım.(Umudumu kestim ve buraya sordum soruyu)

Bahse konu örnek aşağıdaki linkte;


Kolay gelsin :yazici:

http://www.erkoz.com/teknik2005.htm