Social Icons

Barisan Kata

Selasa, 02 April 2013

Agar Inputan Hanya Bisa Angka

  1. Aktifkan Visual Basic
  2. Klik File, New Project dan Windows Aplication
  3. Buat suatu design, misalnya 

  4. Pada script code-nya masukkan code di bawah ini
     Private Sub NNilai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NNilai.KeyPress
            Select Case e.KeyChar
                Case Chr(48) To Chr(57)
                    NNilai.Focus()
                Case Chr(8)
                    NNilai.Focus()
                Case Chr(32)
                    NNilai.Focus()
                Case Else
                    MsgBox("Inputan Hanya bisa angka", MsgBoxStyle.Exclamation, "Select Case")
                    e.KeyChar = Chr(0)
            End Select
        End Sub
  5. Tekan F5, saat anda menekan selain angka maka hasilnya menjadi seperti berikut
    Semoga bermanfaat
    :-)

Tidak ada komentar:

Posting Komentar

Popular Posts

 
Blogger Templates