Visual Basic 6 ile Textbox formatlı sayı girişi

Text kutusuna sayıyı yazarken formatlamak imkansız oldugundan bu yöntemi kullanabiliriz.

Bir text kutusuna bilgi girerken format işlemi yapmaya çalıştıgınızda text1_change sonsuz döngüye girmektedir. Bunu aşmanın yolu neredeyse yok..

Bunun için üstüste iki text kutusu koyalım. Üstteki görünsün alttaki görünmesin. Üsttekinin tabstop özelliği kapalı olacak ve bu kutu tıklandıgında alttaki kutu setfocus olacak.
giriş alt kutuya yapılacak ve üst kutuya formatlı bir şekilde aktarılacak. Kullanıcı da bunu formatlı olarak görebilecek.

Text_ust_setfocus()
text_alt.setfocus
End Sub

Text_alt_chage()
Text_ust=Format(Text_alt, "#,###.00")
End Sub

Her giriş için text kullanmak uzun iş derseniz bir adet text_alt ile en son aktif olan text'e bu bilgi yollanabilir.

TD Software