Giup toi voi...

**TranLamTrungHieu** · 10-12-2003 11:12

Vi de moi hoc Vb nen xin cac huynh giup do dum
De muon tao 1 cai Textbox ma chi cho nham so vao khong duoc nhap chu va lam sao co the danh chu Tieng Viet trong Vb ma khi vao may khac mo len thi co doc duoc.Dong thoi may huynh chi giup cach danh dau tren dien dan vi de moi vo dien dan lan dau.Cam on nhieu

**buaxua123** · 10-12-2003 12:07

thứ 1 :Tạo 01 textbox, dán đoạn mã này vào form

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
MsgBox "Sai gia tri"
End If

Như vậy nếu ta nhập ký tự sẽ được báo "Sai giá trị"

Vấn đề thứ 2 : yu sử Vietkey2000, với Unicode và font Unicode tùy ý
Vấn đề thứ 3 : sử dụng Vietkey2000 hoặc Unikey3.1 chọn bảng mã Unicode, kiểu gỏ thì tùy ý, VNI hoặc telex.

**LMTruong** · 10-12-2003 12:45

Code:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
MsgBox "Sai gia tri"
End If

Cần phải bẫy thêm dấu . nếu không làm sao nhập được số thập phân

**buaxua123** · 10-12-2003 12:50

he he, cám ơn chỉ giáo

**TranLamTrungHieu** · 10-12-2003 22:35

Cám ơn huynh chỉ giáo.

**TranLamTrungHieu** · 11-12-2003 22:13

Bớ..bớ sư huynh buaxua123.Sao đệ nhập đoạn code của huynh vào thì nó hiện lên có thông báo nhưng sao khi nhấp vô nút Ok trên thông báo thì nó vẫn hiện chữ trên textbox.Vậy huynh có cách nào cho nó đừng hiện chữ lên được không?Cám ơn huynh trước

**LMTruong** · 12-12-2003 07:36

Thiếu một hàng lệnh gòi. Thông báo xong phải gán KeyAscii=0

**buaxua123** · 12-12-2003 10:48

Hoàn chỉnh là như vầy nè.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
MsgBox "Sai gia tri"
Text1 = ""
KeyAscii = 0
End If
Me.Refresh
End Sub