VALIDASI ANGKA

Kalau kita Perhatikan Format Di Atas ada beberapa Textbox tentang input Data
harus di isi dngan Bilangan Numerik jadi tidak boleh Charakter atau spasi.

Untuk Validasi ini di Textbox tersebut kita buat seperti di bawah ini :

 Private Sub txtqty_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtqty.KeyPress
        If e.KeyChar = Chr(13) Then HitungDataScreen() : txtpdiskont.Focus()
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
    End Sub


Textbox di Jumlah Barang aq kasih nama txtqty jadi cara buatnya seperti atas.
Jadi kalau ga di Isi 0 sampai 9 tidak mau.

   Private Sub HitungDataScreen()
       ' Rumus perhitungan Barang
        txtkotor.Text = txtqty.Text * txthsat.Text
        txtdiskont.Text = txtpdiskont.Text / 100 * txtkotor.Text
        txtsubtotal.Text = txtkotor.Text - txtdiskont.Text
        txtidisk.Text = txtpidisk.Text / 100 * txtsubtotal.Text
        txtnet.Text = txtsubtotal.Text - txtidisk.Text

    End Sub