Textbox vb 2008 Hanya Bisa Angka

Banyak cara yg dapat dilakukan untuk membatasi input pada Textbox di VB 2008. Anda dapat searching di Google  untuk memperkaya tehnik anda dalam mngola form pada program anda. berikut adalah sebuat catatan saya mengenai Textbox vb 2008 yg hanya hanya bisa angka dalam membatasi inputnya, contoh ini adalah salah satu pengembangan dari catatan saya sebelumnya yaitu Karakter ASCII pada Visual Basic.

Berikut langkah-langkahnya:

1. Buat sebuah project bari di VB 2008 anda, dan beri nama textbox_hanya_angka

2. Masukan sebuah Textbox pada Form1

 3. Masukan pada Form1 script

 Public Class Form1

  

 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As

System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 48) And (tombol <= 57)) Or (tombol = 8) Or (tombol = 13)) Then

            e.Handled = True

        ElseIf tombol = 13 Then

            MsgBox("INI ENTER")

        End If

    End Sub

End Class

4. Jalankan program

Untuk source kode silahkan download di sini. caranya :

Demikian catatan fey kali ini. jikalau ada kata-kata yang kurang atau salah saya mohon maaf. semoga bermanfaat.