Đặt thuộc tính textbox (2 người xem)

[vietnd]

cho em hỏi muốn đặt thuộc tính cho TextBox thì làm thế nào cụ thể em cho nó chỉ nhập được dạng số không nhập được dạng text

 

[chuot0106]

cho em hỏi muốn đặt thuộc tính cho TextBox thì làm thế nào cụ thể em cho nó chỉ nhập được dạng số không nhập được dạng text

Thử đoạn code này cho buton1 xem sao:

Private Sub CommandButton1_Click()


If IsNumeric(Me.TextBox1) = True Then
    'Lam gi do o day....
Else
   'Lam gi do o day....
    Me.TextBox1.SetFocus
    Me.TextBox1 = ""
End If


End Sub

 

[doveandrose]

Thử đoạn code này cho buton1 xem sao:

Private Sub CommandButton1_Click()


If IsNumeric(Me.TextBox1) = True Then
    'Lam gi do o day....
Else
   'Lam gi do o day....
    Me.TextBox1.SetFocus
    Me.TextBox1 = ""
End If


End Sub

textbox và command button click có liên quan gì vậy bạn

 

[chuot0106]

textbox và command button click có liên quan gì vậy bạn

Ví dụ thế này: Giả sử cần nhập giá trị là số của texbox1 vào ô A1 của sheet1. Nếu giá trị texbox1 là số mới cho nhập còn không thì không được phải chọn lại.

 

[comet_1701]

Ví dụ thế này: Giả sử cần nhập giá trị là số của texbox1 vào ô A1 của sheet1. Nếu giá trị texbox1 là số mới cho nhập còn không thì không được phải chọn lại.

Mình ko chưa câu hỏi của bác Doveandrose lắm, nhưng của bạn làm form với textbox1 với command button1 mình cũng thấy hợp lý

 

[doveandrose]

Ví dụ thế này: Giả sử cần nhập giá trị là số của texbox1 vào ô A1 của sheet1. Nếu giá trị texbox1 là số mới cho nhập còn không thì không được phải chọn lại.

đâu phải , ý người ta là

muốn đặt thuộc tính cho TextBox

tức là chỉ xử lý trong nội bộ cái textbox đó mà thôi . nhập số => được phép , không phải số => không nhận tín hiệu
nghĩa là nếu textbox đó đang có giá trị là 7 , gõ thêm phím A thì textbox vẫn giữ nguyên giá trị là 7

 

[chuot0106]

Chủ topic thử đoạn code này cho texbox1 xem sao:

Private Sub TextBox1_Change()
    If IsNumeric(Me.TextBox1) = True Then
        Me.TextBox1 = Me.TextBox1
    Else
        MsgBox "Du lieu nhap khong phai la dang so! Nhap lai ngay!"
        Me.TextBox1.SetFocus
        Me.TextBox1 = ""
    End If
End Sub

 

[ndu96081631]

Chủ topic thử đoạn code này cho texbox1 xem sao:

Private Sub TextBox1_Change()
    If IsNumeric(Me.TextBox1) = True Then
        Me.TextBox1 = Me.TextBox1
    Else
        MsgBox "Du lieu nhap khong phai la dang so! Nhap lai ngay!"
        Me.TextBox1.SetFocus
        Me.TextBox1 = ""
    End If
End Sub

Mở file của bạn và thử nghiệm:
- Nhập 1.5 --> Chương trình cho phép
- Nhập 1,5 --> Chương trình cũng cho phép
Vậy là sao?
-----------
Thật ra việc khống chế TextBox chỉ cho phép nhập số đã có đầy trên GPE ---> Tìm là có và bài toán này cũng không phải dễ

 

[chuot0106]

Mở file của bạn và thử nghiệm:
- Nhập 1.5 --> Chương trình cho phép
- Nhập 1,5 --> Chương trình cũng cho phép
Vậy là sao?
-----------
Thật ra việc khống chế TextBox chỉ cho phép nhập số đã có đầy trên GPE ---> Tìm là có và bài toán này cũng không phải dễ

Thưa thầy: Nếu để vào GPE và đi tìm bài đã có sẵn trên GPE cho người khác thì có lẽ nên để thành viên khác có nhã hứng làm hoặc bản thân chủ topic đi tìm còn với em thì mục đích của em là vừa học hỏi vừa giúp. Sai đâu thì em sửa đấy. Thế nên với các vấn đề này em đều tự suy nghĩ để giải quyết có thể chưa được thấu đáo lắm nhưng đó cũng là sản phẩm của mình!