Pada posting saya
sebelumnya, saya ada menulis tentang cara membuat textbox agar hanya bisa menerima input angka saja dan huruf pemisah desimal (koma). Untuk huruf pemisah desimal, hanya bisa diinput 1 kali saja. Validasi tersebut
sudah cukup bagus. Namun masih ada kekurangan yakni textbox tidak bisa menerima input huruf - (minus / negatif). Untuk menjawab kekurangan tersebut, pada posting ini saya akan menyempurnakan source code sebelumnya sehingga textbox hanya hanya bisa menerima input angka, pemisah desimal dan tombol negatif saja. Jika pada source code sebelumnya ditulis dengan statement
IF, maka pada source code ini saya ubah dengan statement
Select Case. Hasilnya tetap sama. Penulisan source code juga masih dilakukan di event
KeyPress textbox. Untuk textbox tersebut, saya set property
TextAlign = Right dan
MaxLength = 20 pada event Form Load-nya.
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.TextBox1.TextAlign = HorizontalAlignment.Right
Me.TextBox1.MaxLength = 20
End Sub
Berikut source pada event KeyPress textbox tersebut :