Public Function ClearALL(ByRef MyForm As VB.Form)
    For i = 0 To MyForm.Controls.Count - 1
        If UCase(TypeName(MyForm.Controls(i))) = UCase("TextBox") Then
            MyForm.Controls(i).Text = ""
        End If
    Next
End Function
 
 Private Sub Command1_Click()
    Call ClearALL(Me)
End Sub

Comment

Comment:

Tweet

พอจะมีวิธีส่งค่า textbox ไปยัง Crystal Report มั้ยครับ

#11 By easyshop (125.25.169.82) on 2011-01-19 12:30

hi all !!

#10 By sears parts (124.157.191.197) on 2009-12-04 18:28

Que se ra

#9 By scratch and dent (124.157.236.175) on 2009-11-14 08:12

ขอบคุณค่ะ

#8 By โหลดเพลง (124.157.236.176) on 2009-10-06 22:21

#7 By (202.129.54.53) on 2009-07-26 03:09

ขอบคุณครับbig smile big smile

#6 By รักโลก (125.24.116.142) on 2009-05-03 22:18

Thanks!,

#5 By nNLTdIraLev (68.14.135.179) on 2008-12-13 21:27

4_2forpost.txt;10;15

#4 By kuKkEnZBDAu (67.149.194.81) on 2008-12-03 13:33

ลืมไปเลย ขอบคุณสำหรับ Tip ดีๆนะครับ คุณ theerabig smile

#3 By TT (118.173.250.147) on 2008-10-20 11:48

กรณี ที่ TextBox คุณ มี 4 ตัว มันก็ทำแบบนั้นง่ายแหละ แต่ ถ้าเป็น ฟอร์ม ที่มี เทกซ์บอกซ์ เป็น สิบๆ ตัว
เช่นฟอร์ม กรอกข้อมูล ส่วนตัว คุณต้องเขียน text1.text="" ซักกี่ครั้ง ล่ะ?
แล้วยัง ถ้ามีฟอร์ม ที่ต้องกรอกหลายๆ หน้า ต้องกี่ครั้งล่ะน่ะ
sad smile

#2 By TT (118.173.250.147) on 2008-10-20 11:44

text ที่จะให้ว่าง .text = ""
text ที่จะให้ว่าง .text = ""
text ที่จะให้ว่าง .text = ""
text ที่จะให้ว่าง .text = ""

ตัวอย่าง
text1.text = ""
text2.text = ""
text3.text = ""
text4.text = ""


ง่ายกว่าไหมครับผมทำอย่างนี้อ่ะครับก็ทำได้เหมือนกันน่ะครับ

#1 By เบียร์ (125.27.205.117) on 2008-10-13 13:04