Cần trợ giúp nhập chữ số vào Textbox

[diemvuongvathuongde]

Chào các bác, em từng thấy nói về chỉ nhập chữ số (0-9) vào Textbox, nay tìm mãi mà không thấy. Các bác giúp em nhé.

 

[phamduylong]

Chào các bác, em từng thấy nói về chỉ nhập chữ số (0-9) vào Textbox, nay tìm mãi mà không thấy. Các bác giúp em nhé.

KeyAscii của các phím số 0, 1, .., 9 là 48, 49, ..., 57 nên bạn viết thủ tục kiểm tra phím nhập váo TextBox. Nếu KeyAscii < 48 hoặc KeyAscii > 57 thì hủy nhập (KeyAscii = 0)

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

 

[thinhdiep]

Bạn tạo modul sau:

Public Function KeyTra(NhanAsci) As Integer
If NhanAsci < Asc("0") Or NhanAsci > Asc("9") Then
If NhanAsci <> 8 And NhanAsci <> 13 Then
KeyTra = 0
Else
KeyTra = NhanAsci
End If
Else
KeyTra = NhanAsci
End If

End Function

Khi bạn muốn TextBox nào chi nhập số thì bạn gọi hàm trên.

 

[hoathuongphuoc]

cho mình hỏi:sao mình nhập không được chữ số vào bàn phím nhỉ. mình đang làm đồ án về calculator nhưng khi nhập số từ bàn phím thì lại không được.
cho mình cảm ơn trước.

 

[nghiaphuc]

cho mình hỏi:sao mình nhập không được chữ số vào bàn phím nhỉ. mình đang làm đồ án về calculator nhưng khi nhập số từ bàn phím thì lại không được.
cho mình cảm ơn trước.

Bạn đang muốn nhập số vào chương trình gì? Lỗi này bị trên 1 chương trình hay trên tất cả? (bạn mở Word hoặc Excel lên nhập thử để kiểm tra). Nhập từ bàn phím Laptop hay Desktop? Nếu nhập từ bàn phím Desktop thì bạn kiểm tra trạng thái phím Num Lock xem có được bật hay không, hoặc thử sử dụng dãy phím số bên trái. Nếu vẫn không được thì thử thay bàn phím khác xem có được không.