• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Xóa tất cả các Text trong một Form

Các thủ thuật liên quan đến việc xử lý ứng dụng, biểu mẫu và control
QuangHoa
Guru
Guru
Bài viết: 542
Ngày tham gia: T.Năm 27/03/2008 9:02 am
Đến từ: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 time
Liên hệ:

Xóa tất cả các Text trong một Form

Gửi bàigửi bởi QuangHoa » T.Ba 06/05/2008 12:42 pm

Thủ thuật: Xóa tất cả các text trong một Form
Tác giả: Võ Quang Hòa
Mô tả: Xóa tất cả các Text trong 1 form


:> :> :> :> :>

Mã: Chọn hết

  1.  
  2. 'Code by Võ Quang Hòa
  3. Public Sub xoatextbox(frmClearMe As Form)
  4. Dim txt As Control
  5.  For Each txt In Me
  6.   If TypeOf txt Is TextBox Then txt.Text = ""
  7. ' Thay "" bởi một đoạn văn bản thì tất cả các Textbox đều có văn bản đó
  8.  Next
  9. End Sub
  10. Private Sub Form_Load()
  11. xoatextbox Me
  12. End Sub


朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

HaiPT
VIP
VIP
Bài viết: 252
Ngày tham gia: T.Tư 07/09/2005 4:02 pm
Đến từ: Hải Phòng
Has thanked: 1 time
Been thanked: 12 time
Liên hệ:

Re: Xóa tất cả các Text trong một Form

Gửi bàigửi bởi HaiPT » T.Ba 06/05/2008 2:15 pm

Thế thứ cho textbox vào trong 1 panel hay 1 groupbox thì sao quanghoa??
Hoàn chỉnh thêm chút nữa nhé .
Phạm Hải
Quản trị dự án ,Chuyên gia đào tạo
Đại học FPT

QuangHoa
Guru
Guru
Bài viết: 542
Ngày tham gia: T.Năm 27/03/2008 9:02 am
Đến từ: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 time
Liên hệ:

Re: Xóa tất cả các Text trong một Form

Gửi bàigửi bởi QuangHoa » T.Tư 07/05/2008 7:48 am

Bác HaiPT ơi em chưa hiểu Panel và Groupbox là gì, với các Textbox trong các Frame vẩn có tác dụng.
朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

HaiPT
VIP
VIP
Bài viết: 252
Ngày tham gia: T.Tư 07/09/2005 4:02 pm
Đến từ: Hải Phòng
Has thanked: 1 time
Been thanked: 12 time
Liên hệ:

Re: Xóa tất cả các Text trong một Form

Gửi bàigửi bởi HaiPT » T.Tư 07/05/2008 8:26 am

Tức là textbox không nằm ở trong form mà nằm trong 1 điều khiển khác trên form ví dụ như SSTAB chẳng hạn.QuangHoa check thử xem , để hoàn chỉnh có lẽ cần 1 sub đệ quy
Phạm Hải
Quản trị dự án ,Chuyên gia đào tạo
Đại học FPT

Hình đại diện của người dùng
thuocthoigian
Thành viên danh dự
Thành viên danh dự
Bài viết: 167
Ngày tham gia: T.Hai 31/07/2006 2:07 pm
Đến từ: Minh Lộ - Thanh Hóa
Liên hệ:

Re: Xóa tất cả các Text trong một Form

Gửi bàigửi bởi thuocthoigian » T.Tư 07/05/2008 8:31 am

bên vb6 đâu có phân biệt parent như .net đâu bác PTS
Sự tưởng tượng còn quan trọng hơn kiến thức! (A.Einstein)

QuangHoa
Guru
Guru
Bài viết: 542
Ngày tham gia: T.Năm 27/03/2008 9:02 am
Đến từ: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 time
Liên hệ:

Re: Xóa tất cả các Text trong một Form

Gửi bàigửi bởi QuangHoa » T.Tư 07/05/2008 8:42 am

thuocthoigian đã viết:bên vb6 đâu có phân biệt parent như .net đâu bác PTS


Đang bí không biết phải trả lời bác HaiPt thế nào đây bài của thuocthoigian quả là một lối thoát :)) :))
朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

HaiPT
VIP
VIP
Bài viết: 252
Ngày tham gia: T.Tư 07/09/2005 4:02 pm
Đến từ: Hải Phòng
Has thanked: 1 time
Been thanked: 12 time
Liên hệ:

Re: Xóa tất cả các Text trong một Form

Gửi bàigửi bởi HaiPT » T.Tư 07/05/2008 9:43 am

:"> lâu quá không dùng vb6 quên mất tiu....
Phạm Hải
Quản trị dự án ,Chuyên gia đào tạo
Đại học FPT

QuangHoa
Guru
Guru
Bài viết: 542
Ngày tham gia: T.Năm 27/03/2008 9:02 am
Đến từ: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 time
Liên hệ:

Re: Xóa tất cả các Text trong một Form

Gửi bàigửi bởi QuangHoa » T.Sáu 09/05/2008 2:36 pm

Ứng dụng thêm một tí, khi ta lập trình tạo ra các Control mà muốn cho nó hiển thị tiếng Việt ta có thể làm như sau:
Trong lúc thiết kế ta cho Caption có dạng tiếng Việt như "Nu1t le65nh" thì trong sự kiện Form_load ta có thể dịch nó ra tiếng Việt theo mẫu

Mã: Chọn hết

  1.  
  2. Dim co as Control
  3. On Error Resume next
  4. For each co in me
  5. co.caption=viethoa(co.caption)
  6. next
:-?
朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4756
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 509 time

Re: Xóa tất cả các Text trong một Form

Gửi bàigửi bởi truongphu » T.Sáu 09/05/2008 3:04 pm

quanghoa đã viết:Dim co as Control
On Error Resume next
For each co in me
co.caption=viethoa(co.caption)
next

Bạn viết như trên thì các bạn khác biết đâu mà lần?
Chắc chắn khi chạy code, máy tính sẽ báo: "Không kết nối với máy tính bạn quanghoa để tìm function viethoa được"
dù có câu bạn khai: On Error Resume next
:D
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

QuangHoa
Guru
Guru
Bài viết: 542
Ngày tham gia: T.Năm 27/03/2008 9:02 am
Đến từ: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 time
Liên hệ:

Re: Xóa tất cả các Text trong một Form

Gửi bàigửi bởi QuangHoa » T.Hai 12/05/2008 8:45 am

He he, bác cứ đùa em chứ. Chắc bác cũng nhiều lần tạo ra các phần mềm tiếng Việt dùng Unicode. Muốn vậy bác phải dùng các hàm đại loại như Telex2Uni, Unicodetelex, Unicodetex, mấy hàm có trong các Module, Ocx đó, vì có nhiều hàm như vậy nên em mới phải dùng cái hàm Viethoa để đại diện thôi mà.
朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。


Quay về “[VB] Ứng dụng - Form và Control”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách