Satılan mal yazılan birim fiyatı ve adeti dışarıdan girilen ve labele ##.## TL şeklinde Yazan Programı yapalım..
Resimde Görüldüğü gibi Birim fiyatın karşısında girilen rakam program tarafından her son 3 rakamdan sonra otomatikmen nokta(.) koyacak..
Program 3 textbox,5 label ve 1 buttondan oluşuyor..Şimdi Yapmaya Başlayalım..
Textbox2 yazılacaklar;
Try TextBox2.Text = Format(CDec(TextBox2.Text), "##,##") TextBox2.SelectionStart = TextBox2.Text.Length Catch End Try
Button1 Yazılacaklar;
Try
Label5.Text = Format(CDec(TextBox2.Text) * CInt(TextBox3.Text), "##,## TL")
Catch
MsgBox("Geçersiz sayılar tespit edildi.")
End Try
