Hàm sử dụng chung. (2 người xem)

[DMQ]

Chào các anh chị.
Em có tạo form nhập liệu, trong Form có 5 tới 7 cái TextBox, em muốn khi nhập liệu vào TextBox thì chữ chuyển thành In Hoa, nên em có viết code:

Private Sub TextBox1_Change ( )
  TextBox1 = Ucase(Me.TextBox1.Value)
End Sub

và nếu có 5 đến 7 TextBox thì em viết 5 đến 7 code như vậy.
Nay em nhờ các anh chị viết cho một hàm dùng chung để chỉ dùng một lần ạ.

 

[VetMini]

Làm được nhưng phải viết 1 cái class module còn cực hơn

Chào các anh chị.
Em có tạo form nhập liệu, trong Form có 5 tới 7 cái TextBox, em muốn khi nhập liệu vào TextBox thì chữ chuyển thành In Hoa, nên em có viết code:
[Codex]
Private Sub TextBox1_Change ( )
TextBox1 = Ucase(Me.TextBox1.Value)
End Sub
[/Codex]
và nếu có 5 đến 7 TextBox thì em viết 5 đến 7 code như vậy.
Nay em nhờ các anh chị viết cho một hàm dùng chung để chỉ dùng một lần ạ.

"code như vậy" là muốn nói cái phần xanh hay cái phần đỏ.
Phần xanh thì cần phải viết một cái class module và nạp các textbox vào đó. Tương đối dài dòng, chỉ 5 đến 7 textboxes thì thà cứ viết đủ 5-7 cho khoẻ.
Phần đỏ thì chỉ cần viết 1 cái public sub cho chúng gọi.

 

[DMQ]

Mong Bác @VetMini viết dùm em cái phần màu đỏ ạ. (Public Sub)

 

[VetMini]

Public Sub TextBoxChange_Handler (txtbx As TextBox)
txtbx.Value= Ucase(txtbx.Value)
End Sub

Private Sub TextBox1_Change ( )
TextBoxChange_Handler TextBox1
End Sub

 

[DMQ]

Cám ơn Bác @VetMini nhiều ạ.

 

[DMQ]

Bác @VetMini ơi, với code trên của Bác thì em có 5 cái TextBox, em cũng phải viết 5 cái Private Sub cho 5 cái TextBox, vậy có cách nào mà chỉ cần viết 1 cái Private Sub sữ dụng chung cho 5 cái TextBox được không Bác. Hiện tại em đang viết như vầy:

Private Sub TextBox1_Change ( )
TextBoxChange_Handler TextBox1
End Sub
Private Sub TextBox2_Change ( )
TextBoxChange_Handler TextBox2
End Sub
Private Sub TextBox3_Change ( )
TextBoxChange_Handler TextBox3
End Sub
Private Sub TextBox4_Change ( )
TextBoxChange_Handler TextBox4
End Sub
Private Sub TextBox5_Change ( )
TextBoxChange_Handler TextBox5
End Sub
Private Sub TextBox6_Change ( )
TextBoxChange_Handler TextBox6
End Sub

 

[quanluu]

cái bạn cần chính là phần màu xanh bài #2 nhé. Viết 1 cái class module.

 

[DMQ]

À là do em, Bác @VetMini đã viết theo ý em, Xin lỗi Bác @VetMini.
Anh @quanluu1989 có thể giúp em viết class module được không ạ.

 

[ongke0711]

Gợi ý bạn cách làm không dùng class module. Code trong standard module bạn chưa viết được thì tới class càng khó nuốt hơn.
- Dùng sự kiện Form_KeyPress để chuyển ký tự thường thành HOA.
- Kết hợp xác định các Textbox nào cần áp dụng thì duyệt qua các "ActiveControl.Name".

 

[DMQ]

dung UserForm_KeyPress, không được anh @ongke0711 ơi.

 

[ongke0711]

Code bạn như thế nào?