KeyPress Angka

Maksud dari keypress angka yang saya maksud yitu agar textbox hanya bisa diisi dengan angaka saja, tidak bisa di isi dengan huruf atau simbol2 yang lain....
Berikut Kode nya

 If (e.KeyChar < Chr(48) Or e.KeyChar > Chr(57)) And e.KeyChar <> Chr(8) And e.KeyChar <> Chr(Asc(".")) Then
            e.Handled = True
        End If

terimakasih , semoga bermanfaat

Comments

  1. EgihDotNet5 April 2013 at 14:58

    Mungkin boleh pake yg ini juga :

    if not isnumeric (text1.text) then
    text1.text=""
    end if

    ReplyDelete
    Replies
    1. Unknown13 December 2013 at 11:09

      itu malah lebih ringkas, terimaksih komentar dan masukanya

      Delete

Post a Comment

Popular Posts