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

Thảo luận trong 'Visual Basic' bắt đầu bởi diendancntt, 8/8/14.

  1. diendancntt

    diendancntt Administrator Staff Member

    Code:
    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

    Code:
    Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii < 48 Or KeyAscii > 57 Then
    KeyAscii = 0
    End If
    End Sub​
  2. SỬA CHỮA ĐIỆN THOẠI, MÁY TÍNH BẢNG UY TÍN TẠI HÀ NỘI
    VỚI NHIỀU NĂM KINH NGHIỆM TRONG LĨNH VỰC SỬA CHỮA, SKMOBILE DÁM KHẢNG ĐỊNH SẼ ĐEM LẠI NHỮNG DỊCH VỤ TỐT NHẤT LÀM HÀI LÒNG QUÝ KHÁCH.

    GỌI NGAY HÔM NAY ĐỂ ĐƯỢC ƯU ĐÃI TỐT NHẤT.

    ► HOTLINE: 0938 269 866
    ► Địa chỉ: 130 Thái Hà - Q.Đống Đa - Hà Nội
    ► Fapage Sửa Chữa: https://www.facebook.com/suachuadienthoaigiatot

    Sửa điện thoại Lenovo tại Hà Nội. Thay màn hình điện thoại, máy tính bảng Lenovo
    Chi tiết: https://www.nhattao.com/threads/sua-dien-thoai-lenovo-tai-ha-noi-thay-man-hinh-lenovo.3446051/

    Thay màn hình điện thoại, máy tính bảng Lenovo lấy ngay. Hiện nay Lenovo chưa cung cấp linh kiện điện thoại, máy tính bảng thay thế chính hãng cho các sản phẩm của mình ra ngoài thị trường, chỉ có tại các trung tâm bảo hành chính hãng của Lenovo (chỉ nhận bảo hành, không sửa chữa). Điều này là một bất lợi lớn với người sử dụng khi sản phẩm đã hết hạn bảo hành hoặc với máy hàng xách tay từ nước ngoài về.

    Để đáp ứng nhu cầu sửa chữa thay thế đặc biệt là thay màn hình điện thoại, máy tính bảng Lenovo của khách hàng, SKMobile là đơn vị duy nhất nhập khẩu linh kiện điện thoại, máy tính bảng Lenovo trực tiếp từ nước ngoài về, hàng chính hãng do Lenovo sản xuất. Tại SKMobile chúng tôi nhận sửa chữa thay thế linh kiện tất cả các dòng máy điện thoại, máy tính bảng Lenovo, với những máy hiếm, đời cũ khách hàng có thể đặt hàng. Chúng tôi sẽ liên hệ với phía công ty để đặt hàng hàng và vận chuyển về với thời gian tối đa là 1 tuần để thay thế cho bạn.

    Tất cả các màn hình điện thoại, máy tính bảng Lenovo, linh kiện điện thoại, máy tính bảng Lenovo được thay thế tại SKMobile đều là hàng chính hãng, có xuất xứ rõ ràng.

    Nhận thay màn hình Lenovo các model sau:

    ► Thay màn hình Lenovo S960 full nguyên bộ
    ► Thay màn hình Lenovo S930 full nguyên bộ
    ► Thay màn hình Lenovo S920 full nguyên bộ
    ► Thay màn hình Lenovo S820 full nguyên bộ
    ► Thay màn hình Lenovo K910 full nguyên bộ
    ► Thay màn hình Lenovo K900 full nguyên bộ
    ► Thay màn hình Lenovo K860 full nguyên bộ
    ► Thay màn hình Lenovo K860i full nguyên bộ
    ► Thay màn hình Lenovo K800 full nguyên bộ
    ► Thay màn hình Lenovo P780 full nguyên bộ
    ► Thay màn hình Lenovo P770 full nguyên bộ
    ► Thay màn hình Lenovo P700i full nguyên bộ
    ► Thay màn hình Lenovo P700 full nguyên bộ
    ► Thay màn hình Lenovo K910i full nguyên bộ
    ► Thay màn hình Lenovo A820 full nguyên bộ
    ► Thay màn hình Lenovo S860 full nguyên bộ
    ► Thay màn hình Lenovo S850 full nguyên bộ
    ► Thay màn hình Lenovo S660 full nguyên bộ
    ► Thay màn hình Lenovo A859 full nguyên bộ
    ► Thay màn hình Lenovo A526 full nguyên bộ
    ► Thay màn hình Lenovo S890 full nguyên bộ
    ► Thay màn hình Lenovo S880 full nguyên bộ
    ► Thay màn hình Lenovo S720 full nguyên bộ
    ► Thay màn hình Lenovo S650 full nguyên bộ
    ► Thay màn hình Lenovo A680 full nguyên bộ
    ► Thay màn hình Lenovo A516 full nguyên bộ
    ► Thay màn hình Lenovo A369i full nguyên bộ
    ► Thay màn hình Lenovo A390 full nguyên bộ
    ► Thay màn hình Lenovo A706 full nguyên bộ
    ► Thay màn hình Lenovo A800 full nguyên bộ
    ► Thay màn hình Lenovo A690 full nguyên bộ
    ► Thay màn hình Lenovo A830 full nguyên bộ
    ► Thay màn hình Lenovo A820 full nguyên bộ
    ► Thay màn hình Lenovo A660 full nguyên bộ
    ► Thay màn hình Lenovo S750 full nguyên bộ
    ► Thay màn hình Lenovo S720i full nguyên bộ
    ► Thay màn hình Lenovo S880i full nguyên bộ
    ► Thay màn hình Lenovo S560 full nguyên bộ
    ► Thay màn hình Lenovo A789 full nguyên bộ

    Ngoài ra Trung tâm bảo hành, sửa chữa của SKMobile còn nhận sửa chữa các lỗi sau của điện thoại, máy tính bảng Lenovo:

    Mở mật khẩu vẽ hình lấy ngay, mở mật khẩu khóa máy gmail, up ROM điện thoại, máy tính bảng Lenovo, chạy phần mềm Lenovo, unbrick, repair boot, mở mã bảo vệ điện thoại, sửa lỗi xạc, sửa lenovo lỗi usb, mở mã khóa máy, thay cảm ứng, thay màn hình, sửa lenovo lỗi nguồn, sửa bật không lên, sửa treo logo, repair imei, sửa lenovo không nhận sim, sửa lenovo khóa sim, sửa lenovo up nhầm rom ....
    Sửa lỗi, unlock, unbrick, mở mạng, repair boot, mở mã code, giải mã, mở mã khóa máy, sửa lỗi phần cứng, sửa lỗi phần mềm

    Chi phí Thay màn hình điện thoại, máy tính bảng Lenovo và thay cảm ứng điện thoại, máy tính bảng Lenovo từ 100 đến 200k tùy độ khó của từng loại máy điện thoại, máy tính bảng Lenovo. Mọi quá trình thay thế quý khách có thể xem trực tiếp. Bảo hành từ 1 đến 6 tháng tùy máy. Thay màn hình điện thoại, máy tính bảng Lenovo lấy ngay (thời gian thay mất khoảng 30 phút, máy khó có thể lên đến 1h). Cam kết hàng chính hãng.

    Wellcom to SK Mobile!
  3. damduongth

    damduongth New Member

    code kiểu này trông cứ khó hiểu thế nào ý

Chia sẻ trang này