TextBox a Sadece Rakam ve Virgül Girme

TextBox ın KeyPress yordamına aşağıdaki kodları yazacağız. Bu şekilde Textbox a sadece
rakam ve virgül girişini sağlıyacağız. Klavyeden harf girildiği zaman herhangi bir işlem yapmayıp, bizi uyaracak.

Forma yazılacak kodlar:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Me
            .Text = "Formunuza Sadece Sayı ve Bir Virgül Girme...Bahadirsa"
            .MaximizeBox = False
            .Size = New System.Drawing.Size(248, 99)
            .Location = New Point(250, 190)
        End With
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim i As Integer
        Dim k As String
        Dim j As Char
        Dim dizi As String
        dizi = "1234567890,"
        j = Chr(Asc(e.KeyChar))
        k = TextBox1.Text & j
        i = InStr(1, k, ",")
        If InStr(i + 1, k, ",") > 0 Then
            MsgBox("Sadece Bir Virgül İçerebilir")
            e.KeyChar = ChrW(0)
            TextBox1.Focus()
            Exit Sub
        End If
        If (Val(e.KeyChar) <> 8) Then
            If (InStr(dizi, CStr(j)) = 0) Then
                e.KeyChar = ChrW(0)
                MsgBox("Sadece Rakam ve Bir Virgül Girilebilir...")
                Exit Sub
            End If
        End If
    End Sub
End Class

‘ Bir sonraki makalede buluşmak üzere...Bahadirsa