Basit ama, timerle dönergibi bir label

[EmirhanG]

dönen birşey yok ama.....

 

[Korhan Ayhan]

Selamlar,

Paylaşımınız için teşekkürler.

Dosyalarınızı eklerken 2003 versiyonu ve öncesini kullanan arkadaşlarımızıda düşünürseniz iyi olur. Bu şekilde dosyanızı fazla kişi inceleyemeyecektir.

Ayrıca ietimer.ocx eklenti dosyasınında sisteme eklenmesi ve tanıtılması gerekiyor. Bu tür detaylarıda belirtmenizde fayda var. Yoksa birçok arkadaşımızdan dosyayı açıyoruz fakat hata mesajı alıyoruz şeklinde mesajlar gelecektir.

 

[Ferhat Pazarçevirdi]

Userformun üzerindeki; ieTimer objesini kaldırın. References'den de kaldırın.

Userformdaki varolan bütün kodları silin ve aşağıdaki kodları, Userformun kod modülüne tekrar kopyalayın ve çalıştırın.

[COLOR=black]Dim bDondur As Boolean[/COLOR]
[COLOR=darkgreen]'----------------------------------[/COLOR]
Private Sub UserForm_Activate()
    bDondur = True
    Call Dondur
End Sub
[COLOR=darkgreen]'----------------------------------[/COLOR]
[COLOR=black]Sub Dondur()
    Dim bRes As Boolean
    Dim dSayac As Double
    Dim i As Long
    
    bRes = True
       
    DoEvents
    
    Do
        dSayac = Timer
        
        bRes = Not bRes
        
        Label20.Visible = bRes
        Label18.Visible = Not bRes
        
        Do: Loop While Timer - dSayac < 0.2
    
        DoEvents
    
    Loop While bDondur[/COLOR]
[COLOR=black]End Sub
[/COLOR]
[COLOR=darkgreen]'---------------------------------[/COLOR]
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    bDondur = False
End Sub