Bir tane form ekliyorum ve üzerine bir tane metin kutusu yerleştiriyorum. İsim olarak txtSure belirledim.

Timer kullanımı için Formun Tasarım modunda iken Form Özelliklerini açın. 'Süreölçer Aralığı' değerini 1000 yapın. 1000 değeri 1 saniyeye eşdeğer olsun diye kullandık. Hemen bir üstündeki 'Zaman Dolduğunda' olayının içine çift tıklayın ve [Olay Yordamı] olarak görünmesini sağlayın. Sonrasında yanındaki ... olan butona tıklayarak Vba penceresine geçin.

Bir adet form genelinde geçerli olacak değişken tanımlıyoruz.

Dim sure As Integer

Daha sonrasında Form_Timer() içine

    sure = sure + 1

    txtSure = sure

şeklinde bir kod yazıyoruz. Nihai kod şu şekilde olmalı:

Option Compare Database



Dim sure As Integer



Private Sub Form_Timer()



    sure = sure + 1

    txtSure = sure



End Sub

Form Görünümü'ne geçtiğinizde her 1 saniyelik süre geçtiğinde metin kutusundaki değerin arttığını göreceksiniz. DoEvents için daha çok web sitesinden içerik alma ile ilgili örnekleri inceleyebilirsiniz.

sehven

sayın aydogdu_115,

konu takibiniz açısından,hatırlatma anlamında;
konunuz ile ilgili son gelişme ne durumdadır.

şüphesiz,işlemleriniz tamamlanmış ve sorununuzu çözmüş de olabilirsiniz.site içi aramalarınız neticesinde sitede yer alan konuları ve örnekleri incelemelerinizin sonucu ile bazı gelişimler elde etmiş de olabilirsiniz...bilgilendirmek ister misiniz lütfen.teşekkürler.

bilginize...iyi çalışmalar,saygılar.

Konu;

gerek paylaşılan bilgiler neticesinde çözüme kavuşturuldu düşüncesi ile ve gerekse de
konu sahibinin zaman zarfında ayrıntılı geri dönüş bildirimleri olmaması nedeni ile,
(gerektiğinde konu sahibinin geri bildirim hakkı saklı kalmak üzere)

Cevaplanmış Sorular kategorisi içerisine taşınmıştır.

bilginize.