textbox a saat formatı ile kayıt girmek

[selections]

Merhaba,
textbox a rakam yazarken
1 = 00:01
12 = 00:12
123 = 01:23
1230 = 12:30
şeklinde yazmasını istiyorum. nasıl yapabilirim.


Textbox1=format(textbox1,"hh:mm") ı kullandığımda 00:1230 olarak kaydediyor.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

TextBox1 = Format(TextBox1, "00:00")

 

[selections]

Aşağıdaki gibi deneyin.

TextBox1 = Format(TextBox1, "00:00")

bu şekilde hiç yazı yazmıyor.

 

[Levent Menteşoğlu]

bu şekilde hiç yazı yazmıyor.

İşlemi yazarken yaptırmak zor, bunun yerine kodu textboxın exit olayına yazın.

 

[selections]

"00:00" ı exit olayına yazarak oldu ancak textbox1 ini içine girip tekrar çıkınca rakam değişiyor.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) < 5 Then TextBox1 = Format(TextBox1, "00:00")
End Sub

 

[selections]

Teşekkür ederim.

 

[onurcan1979]

isterseniz bide bunu deneyin

Private Sub TextBox3_Change()
If Len(TextBox3) = 2 Then TextBox3.Text = TextBox3.Text & ":"
End Sub