Textbox Harus Berisi Angka : Visual Basic .NET

Textbox Harus Berisi Angka

4 posts • Page 1 of 1

Textbox Harus Berisi Angka

by newbiesopan » 23 Feb 2012, 10:57

Para suhu sekalian, ada yg tau cara biar textbox cuma bisa diisiin angka? Mohon pencerahannya ^:)^

^:)^

^:)^

newbiesopan: Prajurit Dua; Posts: 6; Joined: 06 Jan 2012, 11:30; Memberi kopi: 0 cangkir; Mendapat kopi: 0 cangkir

Re: Textbox Harus Berisi Angka

by ekaperintis » 23 Feb 2012, 11:04

Code: Select all: Public Sub HanyaHuruf(ByRef KeyAscii As Integer) If Not (KeyAscii >= Asc("a") & Chr(13) And KeyAscii <= Asc("z") & Chr(13) Or (KeyAscii >= Asc("A") & Chr(13) And KeyAscii <= Asc("Z") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace)) Then KeyAscii = 0 End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) HanyaHuruf KeyAscii End Sub

ekaperintis

Sersan Satu

Sersan Satu

Posts: 2089

Joined: 17 Mar 2010, 14:27

Location: Parungpanjang-Bogor

Memberi kopi: 82 cangkir

Mendapat kopi: 154 cangkir

Re: Textbox Harus Berisi Angka

by ekaperintis » 23 Feb 2012, 11:08

Ini untuk di vb NET

Code: Select all: Public Function HanyaAngka(ByVal kode As String) As Boolean If (kode >= 48 And kode <= 57) Or kode = 8 Then HanyaAngka = False Else HanyaAngka = True End If End Function Private Sub txtTahunTerbit_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTahunTerbit.KeyPress e.Handled = HanyaAngka(Asc(e.KeyChar)) End Sub

ekaperintis

Sersan Satu

Sersan Satu

Posts: 2089

Joined: 17 Mar 2010, 14:27

Location: Parungpanjang-Bogor

Memberi kopi: 82 cangkir

Mendapat kopi: 154 cangkir

Re: Textbox Harus Berisi Angka

by newbiesopan » 23 Feb 2012, 11:27

Wah makasi suhu eka, codingny berfungsi..
Thanksss!

Case Closed <:D>

<:D>

newbiesopan: Prajurit Dua; Posts: 6; Joined: 06 Jan 2012, 11:30; Memberi kopi: 0 cangkir; Mendapat kopi: 0 cangkir

4 posts • Page 1 of 1

Return to Visual Basic .NET

Jump to:

Who is online

Users browsing this forum: No registered users and 8 guests