TextBox’ı ondalık basamağa ayarlama (sadece sayı girişi sağlama) VB.NET

TextBox’ı ondalık basamağa ayarlama (sadece sayı girişi sağlama) VB.NET

[code language=”VBNET”]Public Class Form1
Private Sub textBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles textBox1.KeyPress ‘klavye tuşuna basılsığı anda şunları yap
If (Char.IsDigit(e.KeyChar) = False And e.KeyChar <> Chr(8) And e.KeyChar <> Chr(44)) Then
‘ text’e sadece sayıların girmesi,geri silme tuşu(ascii kodu:08),virgül(ascii kodu:44) karakterinin girilmesini sağlar.
‘del tuşununda aktif olmasını isterseniz del ascıı kodu:127
e.Handled = True
End If
End Sub

Private Sub textBox2_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles textBox2.KeyPress
If (Char.IsDigit(e.KeyChar) = False And e.KeyChar <> Chr(8) And e.KeyChar <> Chr(44)) Then
‘yukarıdaki açıklamalarla aynı
e.Handled = True
End If
End Sub

Private Sub textBox3_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles textBox3.KeyPress
If (Char.IsDigit(e.KeyChar) = False And e.KeyChar <> Chr(8) And e.KeyChar <> Chr(44)) Then
‘yukarıdaki açıklamalarla aynı
e.Handled = True
End If
End Sub

Private Sub textBox1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textBox1.Leave ‘text’den çıkıldığı anda
Dim para As Single
para = CSng(textBox1.Text)
textBox1.Text = para.ToString("N") ‘ondalık basamaklara ayırır ve virgülden sonra iki basamak gösterir.
‘virgülden sonra iki basamağa bağlı kalmayabilirsiniz. N’in yanına eklediğiniz sayı kadar virgül gösterebilirsiniz.
‘mesela N1 bir virgül, N4 dört virgül gösterir.
‘ Ayrıca sayının para biriminin(TL) gösterilmesini isterseniz N yerine C kullanabilirsiniz.
End Sub

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Dim odenecek_tutar, kdv, birim_fiyat As Single
kdv = CSng(textBox2.Text) / 100
birim_fiyat = CSng(textBox1.Text)
odenecek_tutar = birim_fiyat + (birim_fiyat * kdv)
textBox3.Text = odenecek_tutar.ToString("N")
‘Burada değişkene aktarmadanda işlemleri yapabilirsiniz.Ben anlaşılır olsun diye değişken kullandım
End Sub
End Class[/code]

Projeyi İNDİR