userformda saat stop ediyor

[cems]

http://s6.dosya.tc/server8/8w28zk/AYP.rar.html

Çalışma üzerinde sürekli altta kalacak olan bir userform ve bunun üzerine açılan ikinci userformda da multipage üzerinde işleri bölmeyi ve bu şekilde en az sayida userform kullanmayı düşündüm .

Anaform üzerinde şifre 1234 girilerek tuşa basıldığında ;
önce msgbox gelmekte , bunda "tamam" a basıldığında
userform2 açılmakta, aynı anda anaform üzerindeki saat tarih dışında herşey saklanmakta.

SORUN : msgbox ve userform2 açık olduğunda anaform üzerinde görünen saat duruyor.

Userform2 alttaki tuş ile kapatıldığında saat çalışmaya devam ediyor. Bu saatin her zaman
çalışması için kodlarda ne yapmak doğru olur ?

 

[Korhan Ayhan]

UserForm2 nesnesinin kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Private Sub UserForm_Activate()
    UserForm1.Label2.Caption = Format(Now, " d mmmm yyyy dddd ")
    Do
        UserForm1.Label3 = Time
        DoEvents
    Loop
End Sub

 

[cems]

UserForm2 nesnesinin kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Sayın Korhan Ayhan ,

Bu uygulama ile saat çalışmaya devam etti .
Yardımınız için çok teşekkür ederim .

Fikir ricası : Bu uygulamadan anladığım eğer doğru ise altta kalan nesneler işlevinde pasifleşiyor , dolayısı ile
üstte çalışacak olan nesnede uygulama aynı yerde çalışacak şekilde aktifleştiriliyor.. Bu durumda , gelecekte
benzer uygulamalarda alttaki nesnenin değil üstte olan nesnenin çalıştıracağını düşünmek gerekli .. Mi ?