zaman sonra kapanan form

[EKREM1661]

Arkadaşlar.. önce selamlar...!

Söyleyecek olduğum konu, sanki forumda işlenmiş gibi hatırlıyorum..Ancak arama yaparak bu bilgiye ulaşamadım..

Konu şu: UserForm; belli bir zaman sonra, diyelim ki 5 saniye sonra kapanacak.

Böyle bir makroya ihtiyacım oldu.. ilgilenebilirseniz, çok iyi olacak..

 

[Zeki Gürsoy]

Form Activate olayına,

Application.Ontime Now + Timeserial(0,0,5), "Kapat"

Modul içine,

Sub Kapat ( )
Unload Userform1
End Sub

olarak deneyin.

 

[EKREM1661]

Sayın anemos..! güzel olmuş..çok teşekkür ediyorum..
başarılarının devamını diliyorum..hoçşa kalın..

 

[EKREM1661]

Arkadaşlar..! bir değişiklik için yukarıdaki konuyu tekrar ele almak zorunda kaldım.

Malûmki, formun activate olayına atanan kod, aktif durumda iken çalışıyor..
Bu eylem düğme kontrolüne atanması için nasıl bir değişiklik yapmak gerekir.

Yani; form üzerinde bir düğmeye tıklayınca, 5 sn.sonra, UserForm1 kapanacak..

 

[Zeki Gürsoy]

Sorunuzun cevabını son satırda verdiniz.
Yani Form Activate den alıp butonun Click olayına yazmanız gerekir.

 

[EKREM1661]

hocam..o zaman yaptığım küçük bir uğraşıyı ekliyorum.. dosyayı açınca ne yapmak istediğimi anlıyacaksınız, sizden aldığım kodun işlevini, form üzerindeki slayt düğmesi altına atamak istedim, fakat olmadı..

 

[Zeki Gürsoy]

MultiPage kullandım, dosya boyutu birden arttı.
Dosyayı aşağıdaki linkten indirin.

http://rapidshare.com/files/83112232/Slayt.rar.html

 

[EKREM1661]

hocam..sizin tasarımınız biraz daha farklı olması, hoş olmakla birlikte bize ayrıca bir fikir vermiş oldu.
zahmette bulundunuz..elinize sağlık..herşey için teşekkürler...