Tambahkan sebuah textbox pada form, kemudian masukkan kode pada event On KeyPress.
Private Sub txtBayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtBayar.KeyPress
If Not ((e.KeyChar
>= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then
e.Handled() = True
End If
End Sub
Apabila user menekan tombol huruf maka textbox tidak akan terisi. kode ini dianjurkan untuk sebuah textbox yang hanya boleh diisi dengan angka untuk menghindari error pada kesalahan pengisian oleh user.
Private Sub txtBayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtBayar.KeyPress
If Not ((e.KeyChar
>= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then
e.Handled() = True
End If
End Sub
Apabila user menekan tombol huruf maka textbox tidak akan terisi. kode ini dianjurkan untuk sebuah textbox yang hanya boleh diisi dengan angka untuk menghindari error pada kesalahan pengisian oleh user.
0 Comments