Tùy chọn
Tạo Form và textbox
- Tạo Form và textbox
-
Tạo Form và textbox
nguoilinh229 > 29-10-15, 09:14 AM
Mình muốn tạo 1 Form với nhiều textbox dạng như các bảng CD key của các phần mềm khi cài đặt.
Nghĩa là có 5-10 textbox , mỗi textbox giới hạn 5 kí tự => Cái này mình tự làm OK rồi
Mình muốn hỏi các bạn setting làm sao để mình copy 1 chuỗi kí tự tương tự như các ô đó phân biệt nhau bởi dấu - như ví dụ:
Thì khi paste vào nó tự nhận vào mỗi ô tương ứng?Mã:SASDA-QKHGF-QUGDA-QQWLK-SITHS
Có ai đã thử cái này chưa ạ? Mình ứng dụng vào cái khác chứ ko phải để tạo CD key nhé -
RE: Tạo Form và textbox
tranthanhan1962 > 29-10-15, 07:53 PM
(29-10-15, 09:14 AM)nguoilinh229 Đã viết: Mình muốn tạo 1 Form với nhiều textbox dạng như các bảng CD key của các phần mềm khi cài đặt.
Nghĩa là có 5-10 textbox , mỗi textbox giới hạn 5 kí tự => Cái này mình tự làm OK rồi
Mình muốn hỏi các bạn setting làm sao để mình copy 1 chuỗi kí tự tương tự như các ô đó phân biệt nhau bởi dấu - như ví dụ:
Thì khi paste vào nó tự nhận vào mỗi ô tương ứng?Mã:SASDA-QKHGF-QUGDA-QQWLK-SITHS
Có ai đã thử cái này chưa ạ? Mình ứng dụng vào cái khác chứ ko phải để tạo CD key nhé
Cái này dễ mà bạn.
Mình phân tích để bạn tự làm nhé
Chúng ta có 5 textbox là textbox1, textbox2, textbox3, textbox4, textbox5.
viết event AfterUpdate cho textbox1 dùng hàm mid để cắt các ký tự phù hợp để cập nhật giá trị cho các textbox từ 2 đến 5
Ví dụ textbox2 = Mid(textbox1, 7, 5)...textbox5 = Mid(textbox1, 25, 5)
Và cuối cùng là textbox1 = Left(textbox1, 5)
Sau khi dán CDkey vào textbox1 nó sẽ tự xử lý điền vào các textbox khác và giữ lại 5 ký tự cho nó. Cực dễ phải không bạn. -
RE: Tạo Form và textbox
ongke0711 > 29-10-15, 08:25 PM
Vậy mà mình cũng không nghĩ ra...hehe. Cao thủ kinh nghiệm chiến trường có khác. -
RE: Tạo Form và textbox
nguoilinh229 > 30-10-15, 09:55 AM
Ah bạn ơi cho mình hỏi thêm. Nếu trong trường hợp copy từ các ô trong Excel tương ứng, nghĩa là không phải là 1 chuỗi và không phân cách bằng dấu - thì có cách nào copy tự nhận vào các textbox đó ko bạn ? -
RE: Tạo Form và textbox
nguoilinh229 > 30-10-15, 10:22 AM
Bạn ơi mình thử code và không được. Nó vẫn ko tự động điền vào được, bạn có thể demo cho mình 1 2 textbox được ko? tranthanhan1962 -
RE: Tạo Form và textbox
tranthanhan1962 > 30-10-15, 12:13 PM
1/
Mã:Private Sub textbox1_AfterUpdate()
textbox2.Value = Mid(textbox1.Value, 7, 5)
textbox3.Value = Mid(textbox1.Value, 13, 5)
textbox4.Value = Mid(textbox1.Value, 19, 5)
textbox5.Value = Mid(textbox1.Value, 25, 5)
textbox1.Value = Left(textbox1.Value, 5)
End Sub
2/ Để cho PRO một chút mình sẽ xử lý thêm như thế này:
Mã:Private Sub textbox1_AfterUpdate()
textbox2.Value = Left(Mid(textbox1.Value, 7, 5) & textbox2.Value, 5)
textbox3.Value = Left(Mid(textbox1.Value, 13, 5) & textbox3.Value, 5)
textbox4.Value = Left(Mid(textbox1.Value, 19, 5) & textbox4.Value, 5)
textbox5.Value = Left(Mid(textbox1.Value, 25, 5) & textbox5.Value, 5)
textbox1.Value = Left(textbox1.Value, 5)
End Sub
Với code 1 khi bạn điền thiếu số lượng ký tự hoặc chỉnh sửa textbox1 các textbox phía sau có thể sẽ bị rỗng, với code 2 nếu textbox nào có vị trí ký tự khi nhập giá trị textbox1 bị thiếu sẽ giữ lại các ký tự đã có. Khi đó bạn có thể chỉnh sửa textbox 1 thoải mái mà không ảnh hưởng đến ký tự đã có của các textbox phía sau.
Tất nhiên nếu muốn PRO hơn nữa bạn có thể xử lý không cho phép nhập các textbox phía sau nhiều hơn 5 ký tự hoặc khi nhập các textbox phía sau nhiều hơn 5 ký tự nó sẽ chuyển các ký tự thừa sang các textbox kế tiếp v.v và v.v...
Của bạn đây
