12/12/2016, 22:30
alpeki99
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.
Daha sonrasında Form_Timer() içine
şeklinde bir kod yazıyoruz. Nihai kod şu şekilde olmalı:
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.
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.