Input Data Hanya Angka dan Hanya Huruf Pada VB. Net

Pada saat penggunaan Aplikasi ada kalanya data yang diinput  mengharuskan data yang hanya berupa angka saja, bukan huruf atau karakter lainnya. Ex : Input master data harga jual barang, Input data pembayaran konsumen. etc

Berikut langkah – langkah agar input data pada aplikasi VB. Net hanya angka.

Ex : Form 1 & TextBox1

Pada Form 1 terdapat object TextBox1 yang menjadi tempat input data yang hanya berupa angka saja. Klik pada TexBox1 lalu pada menu properties, klik tab even double klik Keypress (seperti pada gambar dibawah) lalu ketikkan kode berikut didalam declarations code.

Public Class Form1

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled() = True

    End Sub

End Class

Input Data Hanya Huruf Pada VB. Net

Untuk input data TextBox1 hanya huruf. Klik tab even pada menu properties lalu double klik  KeyDown(lihat gambar), dan ketikan kode berikut pada Declarations Code seperti dibawah ini.

Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

If e.KeyCode = 48 Or e.KeyCode = 49 Or e.KeyCode = 50 Or e.KeyCode = 51 Or e.KeyCode = 52 Or e.KeyCode = 53 Or e.KeyCode = 54 Or e.KeyCode = 55 Or e.KeyCode = 56 Or e.KeyCode = 57 Then

            TextBox1.ReadOnly = True

        Else

            TextBox1.ReadOnly = False

        End If

    End Sub