Formun animasyonlu kapanması

[msalvarli]

Herkese selam,

Daha önce hatırlayamadığım bir örnek dosyada formun kapanırken animasyonlu kapandığını görmüştüm. Çok aradım ama bu örneği bulamadım. Bu animasyonlu form kapanırken yavaş yavaş küşçülerek kapanıyordu. Bende projemin kapalışına böyle bir animasyon eklemek istiyorum. Programı kapat dediğimde direkt kanması yerine animasyonlu bir biçimde kapanabilir. Mesela powerpointe slayt geçişlerinde fade out diye kullandığımız bir animasyon var. Ben bunun aynısını formun kapanışına uygulamak istiyorum.

Bu konuda bilgisi veya örneği olan bir arkadaş varsa ve eğer burada paylaşırsa sevinirim. teşekkürler.

 

[gulsum1]

İlk Önce Aşağıdaki kodu bir modül içine yapıştırın.

Option Compare Database
Option Explicit

Public Function ShrinkMe(frmname)
'Use this to shrink a form before you close or hide it.

Dim intFormHeight As Integer
Dim intFormWidth As Integer
Dim intSpeed As Integer

'Try the different values and watch the speed change.
'intSpeed = 100 ' Slow speed
intSpeed = 30 'Normal speed
'intSpeed = 10 'High Speed
'intSpeed = 100 * Rnd 'different speeds every time you call the function

'Assign the value of the interval that the form will shrink
intFormHeight = Forms(frmname).WindowHeight / intSpeed
intFormWidth = Forms(frmname).WindowWidth / intSpeed

'Loop through the shrinking process until the form height or width is less than the intSpeed
Do Until Forms(frmname).InsideHeight < intSpeed Or Forms(frmname).InsideWidth < intSpeed
Forms(frmname).InsideHeight = Forms(frmname).InsideHeight - intFormHeight
Forms(frmname).InsideWidth = Forms(frmname).InsideWidth - intFormWidth
Loop

'DoCmd.Close
'Forms(frmname).Visible = False 'to Hide the form (usually used on an OK button)

End Function

Public Function GrowMe(frmname)
Dim intFormHeight As Integer
Dim intFormWidth As Integer
Dim maxFormHeight As Integer
Dim maxFormWidth As Integer
Dim intSpeed2 As Integer

maxFormHeight = 15000
maxFormWidth = 15000

'Try the different values and watch the speed change.
'intSpeed2 = 100 ' Slow speed
intSpeed2 = 30 'Normal speed
'intSpeed2 = 10 'High Speed
'intSpeed2 = 100 * Rnd 'different speeds every time you call the function

'Assign the value of the interval
intFormHeight = maxFormHeight / intSpeed2
intFormWidth = maxFormWidth / intSpeed2

'Loop through the process until the form height or width is greater than a set value
If Forms(frmname).InsideHeight > maxFormHeight Or Forms(frmname).InsideWidth > maxFormWidth Then
MsgBox "Thats as big as it gets"
Exit Function
Else
Do Until Forms(frmname).InsideHeight > maxFormHeight Or Forms(frmname).InsideWidth > maxFormWidth
Forms(frmname).InsideHeight = Forms(frmname).InsideHeight + intFormHeight
Forms(frmname).InsideWidth = Forms(frmname).InsideWidth + intFormWidth
Loop
End If

End Function


Daha sonra yapman&#305;z gereken formunuzdaki &#231;&#305;k&#305;&#351; i&#231;in tan&#305;mlad&#305;&#287;&#305;n&#305;z butona a&#351;a&#287;&#305;daki kodu yazmak....

ShrinkMe (Me.Name)
DoCmd.Close


Hepsi Bu kadar&#8230;

 

[msalvarli]

ilginiz için önce teşekkür ederim. Dediklerinizi aynen uyguladım ama ekteki hata ile karşılaştım. Ayrıca benim hazırladığım programdaki çıkış butonuna tıkladığımda beni başka bir form'a götürüyor. (Kapanış bilgi formu gibi) Ve bu form otomatik olarak 7 sn sonra kendiliğinden kapanıyor. Acaba buradamı bir problemle karşılaşıyorum.

 

[gulsum1]

ShrinkMe (Me.Name)
bu k&#305;sm&#305; o 7 saniye sonra kapanan formun kapand&#305;&#287;&#305;nda olay&#305;na yaz

 

[msalvarli]

Orayada yazd&#305;m ama ayn&#305; hatay&#305; veriyor. &#214;rne&#287;i eklemeye &#231;al&#305;&#351;aca&#287;&#305;m. Dosya boyutu b&#252;y&#252;k oldu&#287;u i&#231;in biraz d&#252;zenlemem gerekiyor...

 

[msalvarli]

örnek dosyayı ekledim. Sayın gülsüm1 bir el atarsanız sevinirim...

 

[msalvarli]

Sanırım önceki mesajda ekleyememişim

 

[msalvarli]

sabahtan beri denemedi&#287;im yol kalmad&#305;. S&#252;rekli ayn&#305; hatay&#305; veriyor. Ambiguous name detected.

 

[msalvarli]

Bu sorunuma bi &#231;&#246;z&#252;m bulabilen yokmu acaba. Veya buna benzer form animasyonu?

 

[modalı]

Say&#305;n msalvarli,

Ayn&#305; isimde iki ayr&#305; fonksiyonunuz var. Bunlar &#231;ak&#305;&#351;&#305;yor.

iptanimla mod&#252;l&#252; ve Mod&#252;l1 mod&#252;l&#252;nde.

Birini ad&#305;n&#305; de&#287;i&#351;tirip &#246;yle kullan&#305;n.

&#304;yi &#231;al&#305;&#351;malar

 

[nihat53]

gulsum1 el&#305;ne sagl&#305;k tesekkurler

 

[mehmetdemiral]

))) Yaln&#305;z cevap veren modal&#305;, G&#252;ls&#252;m1 de&#287;il..

 

[msalvarli]

Say&#305;n modal&#305;,

Evet siz s&#246;yleyince fark ettim, kafam okadar bunalm&#305;&#351; ki demek nereye ne yap&#305;&#351;t&#305;rd&#305;m hi&#231; fark etmemi&#351;im.

Yanl&#305;z dedi&#287;iniz gibi yapt&#305;m ama bu sefer fonksiyon &#231;al&#305;&#351;mad&#305; veya &#231;al&#305;&#351;t&#305;ramad&#305;m Bi &#351;ekilde hallederim ben art&#305;k. Burada ger&#231;ekten daha &#246;ncede baz&#305; kar&#351;&#305;la&#351;t&#305;&#287;&#305;m sorunlar olmu&#351;tu. Burada verilen &#246;rneklerden olsun, c&#246;z&#252;mlenen sorulardan olsun bi &#351;ekilde yararlanarak bu sorunlar&#305; &#231;&#246;zm&#252;&#351;t&#252;m. Bu y&#252;zden yard&#305;mlar&#305;n&#305; esirgemeyen herkese &#231;ok te&#351;ekk&#252;r ederim.