If IsNumeric(TextBox1.Text) Then
Dim tlira As Double = TextBox1.Text
TextBox3.Text = Format(tlira, ("C"))
End If
ister// Private Sub TextBox1_TextChanged_1(sender As Object, e As EventArgs) Handles TextBox1.LostFocus olarak text kutusunun kontrolunun kaybından sonraya yazılabilir.
Format(tlira,("C") da yazılan C:Currency yani para birimini direk yazar.
Örnek 5.00 TL(yeni sembolle) 14.00 $ gibi
Sondan iki haneyi böler, ##.## tarzında format alır.
Cevapla