Textbox da saat

[siar]

Formun açılışında saatin textbox üzerinde görüntülenmesini istiyorum. Lakin aşağıdaki kodda neyin yqnlış olduğuu bulamadım.

Private Sub TextBox32_Change()
TextBox1.Value = Format(Now, "hh:mm AM/PM")
End Sub

Yapmak istediğim, formun açılışındaki saatin textboxda görünmesi. Şimdiden teşekür ederim.

 

[Levent Menteşoğlu]

Devamlı çalışan bir saatmi istiyorsunuz?

 

[Zeki Gürsoy]

Private Sub UserForm_Activate()
Do: DoEvents
TextBox1 = Format(Now, "hh:mm:ss")
Loop
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub

 

[siar]

"Forma"(Now,"hh:mm:ss") kısmında hata mesajıyla karşılaşıyorum. Ayrıca bu textboxda şu an değil, formun aktive edildiği saatin gelmesi de olur.

 

[Seyit Tiken]

İlgili dosyayı inceleyiniz.

 

[Kemal Demir]

Private Sub UserForm_Initialize()
TextBox32.Enabled = False
TextBox32 = Time
End Sub


not:Umarım seyıt bey'in örneği ile aynı değildir.

Aynı ise özür dilerim

 

[Seyit Tiken]

Kemal Bey, aynı dahi olsa ne olacak. Müsterih olunuz. Hep beraber keyif alarak öğreniyoruz. Sorunun cevabı ile o zaman zarfında uğraşırken, bir arkadaşın o arada cevap göndermesi muhtemeldir. Doğaldır...