Cách không cho người dùng nhập chữ vào textbox trong VB6

[Vũ Thanh Lai]

Cách không cho người dùng nhập chữ vào textbox trong VB6

Private Sub Txt1_Change()
On Error Resume Next
Dim b As String
If Val(Txt1.Text) <> 0 Then 'Người ta đánh số
    b = Val(Txt1.Text)
    Txt1.Text = b & Right$(Txt1.Text, Len(Txt1.Text) - Len(b) - 1) 'Cái này đề phòng luôn chuyện người ta hứng quay lại giữ đường nhập chuỗi đặng bắt lỗi ct của mình, đừng có hòng!!!    SendKeys "{END}" 'Đưa trỏ về cuối dòng
ElseIf Val(Txt1.Text) = 0 And Val((Left$(Txt1.Text, 1))) = 0 Then  'Nếu người ta quay lại đầu dòng đánh, nhập chuỗi thì xử lí như dưới, còn đánh số thì bình thường rồi!
    Txt1 = Right(Txt1.Text, Len(Txt1.Text) - 1)
End If
End Sub
 
'Có thể bỏ bớt "Val((Left$(Txt1.Text, 1)))" như dưới, chẳng qua cái này để xác định chắc chắn là người ta nhập vào đầu dòng là chuỗi 
Private Sub Txt2_Change()
On Error Resume Next
Dim b As String
If Val(Txt2.Text) <> 0 Then 'Cái này xải ra khi người ta nhập tòan số, nhập số rồi nhập chuỗi ở sau hoặc nhập số rồi chen chuỗi ở giữa
    b = Val(Txt2.Text)
    Txt2.Text = b & Right$(Txt2.Text, Len(Txt2.Text) - Len(b) - 1)
        SendKeys "{END}" 'Đưa trỏ về cuối dòng
ElseIf Val(Txt2.Text) = 0 Then 'Cái này xảy ra khi người ta nhập tòan chuỗi hoặc chuỗi đứng đầu rồi mới tới số (hoặc nhập số đã đời rồi quay lại đầu tiên nhập chuỗi
    Txt2.Text = Right$(Txt2.Text, Len(Txt2.Text) - 1)
End If
End Sub

hoặc đon giản hơn

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii < 48 Or KeyAscii > 57 Then
        KeyAscii = 0
    End If
End Sub

[nguyen tuan van]

Cách không cho người dùng nhập chữ vào textbox trong VB6

tớ bổ xung thêm một chút nhé
các bạn cũng có thể thay số 48 bằng 0 và 57 bằng 9. trong code lệnh thứ hai được đấy

[tesulakata]

Cách không cho người dùng nhập chữ vào textbox trong VB6

tớ bổ xung thêm một chút nhé
các bạn cũng có thể thay số 48 bằng 0 và 57 bằng 9. trong code lệnh thứ hai được đấy

thích cái này nữa

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub

[bboy_nonoyes]

Cách không cho người dùng nhập chữ vào textbox trong VB6

Quan trọng là dùng textbox để làm gì, nếu chỉ dùng để show chữ gì đó 1 lần thì chỉ cần nhiu là đủ

Private Sub Text1_KeyPress(KeyAscii As Integer)
        KeyAscii = 0
End Sub

[Vũ Thanh Lai]

Cách không cho người dùng nhập chữ vào textbox trong VB6

Quan trọng là dùng textbox để làm gì, nếu chỉ dùng để show chữ gì đó 1 lần thì chỉ cần nhiu là đủ

Private Sub Text1_KeyPress(KeyAscii As Integer)
        KeyAscii = 0
End Sub

Nếu vậy thì disable nó đi luôn cho ổn. chỉ cho nhìn, ko cho nhập

[bboy_nonoyes]

Cách không cho người dùng nhập chữ vào textbox trong VB6

Nếu vậy thì disable nó đi luôn cho ổn. chỉ cho nhìn, ko cho nhập

Phải dùng cách này thôi! Nếu để Enable = False thì làm sao copy được nội dung trong textbox ra ngoài???
Cứ để Enable = True rồi thêm code này vào là vừa ngăn chỉnh sửa, vừa có thể copy ra được...

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

[ngày mai]

Cách không cho người dùng nhập chữ vào textbox trong VB6

Phải dùng cách này thôi! Nếu để Enable = False thì làm sao copy được nội dung trong textbox ra ngoài???
Cứ để Enable = True rồi thêm code này vào là vừa ngăn chỉnh sửa, vừa có thể copy ra được...

Tiêu đề Topic là không cho phép nhập chữ mà cậu ơi, lạc đề rồi

[Kindaichi]

Cách không cho người dùng nhập chữ vào textbox trong VB6

Tiêu đề Topic là không cho phép nhập chữ mà cậu ơi, lạc đề rồi

Bạn mới là người lạc đề @@!
Mà tự nhiên đi đào post lâu lắc lên làm gì k biết !