Formun üzerinde saat ?

[urcolak]

İyi geceler herkese.
Sorum:
Formun üzerine yada textbox un içinde saniyesi işleyen dijital saat nasıl oluşturulur,
Teşekkürler.

 

[geren]

Anladığım kadarı ile istediğiniz konuyu Döngülerle oluşturabilirsiniz sanırım (Do-Loop). Bunun yanında Timer işlemleri ile deyapabilirsiniz. Öncelikle Digital Saati koymak istediğiniz UserForm üzerine bir Textbox (Label.Caption da olabilir )ekleyiniz. Ben size ek olarak Tarih formatını da koydum.


Private Sub UserForm_Activate()
Textbox1.Value = Format(Now, "hh:mm:ss")
Textbox2.Value = Format(Now, "dd mmmm yyyy")
DoEvents
Loop
End Sub

kodlarını dener misin. Yanlışım var ise de kusura bakmayın. Kolay gelsin...

 

[urcolak]

olmuyor

 

[urcolak]

saniyenin devam etmesi için ne yapılabilir?

 

[emrexcel123]

kod

private sub userform_activate
do
doevents
textbox1.text = textbox1.format(now,"hh:mm:ss")
loop
end sub

 

[urcolak]

Tüşekkür ediyorum iki gündür bununla uğraşıyordum.