怎样清除一个FORM里的多个TEXTBOX内容

主题：怎样清除一个FORM里的多个TEXTBOX内容

kayll [专家分：30] 发布于 2008-01-07 23:13:00

我用了最笨的一个办法：
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        TextBox10.Text = ""
        TextBox11.Text = ""
        TextBox12.Text = ""
        TextBox13.Text = ""
        TextBox14.Text = ""
        TextBox15.Text = ""
        TextBox16.Text = ""
        TextBox17.Text = ""
        TextBox18.Text = ""
    End Sub

哈哈哈，如果有一百个TEXTBOX，那得晕死。
记得以前用VB时，有一句代码可将FORM里的全清的

本帖地址： http://bbs.pfan.cn/post/264691.html

回复列表（共4个回复）

沙发

jzyray [专家分：20610] 发布于 2008-01-08 17:03:00

如果是所有TextBox的话，可以遍历窗体的Controls属性集合，如果是TextBox就清

板凳

kayll [专家分：30] 发布于 2008-01-08 23:08:00

楼上的能不能写下代码，代码还看不大明白呢，坐着天上掉金块呢。

3 楼

jiebidu [专家分：0] 发布于 2008-01-09 02:40:00

Dim   ctl   As   Control                   '定义控件对象变量
    For   Each   ctl   In   Controls           '所有包含的控件
TypeOf   ctl   Is   TextBox   Then   ctl=""     'textbox控件赋值为空
    Next

4 楼

kayll [专家分：30] 发布于 2008-01-09 13:05:00

        For Each ctl As Control In Controls
            If TypeOf ctl Is TextBox Then
                ctl.Text = ""
            End If
        Next

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：怎样清除一个FORM里的多个TEXTBOX内容

回复列表（共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：怎样清除一个FORM里的多个TEXTBOX内容

回复列表 （共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共4个回复）