| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3325 人关注过本帖
标题:想一次将窗体中所有TextBox清空,遇到问题了。
只看楼主 加入收藏
杀虫剂
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2007-12-12
收藏
 问题点数:0 回复次数:4 
想一次将窗体中所有TextBox清空,遇到问题了。
为了达到一次清空所有TextBox的目的,查了很多资料。
MSDN上是这样的:
' Visual Basic 2005
Private Sub ClearText(ByVal container As Control)
    Dim ctrl As Control
    For Each ctrl In container.Controls
        If TypeOf (ctrl) Is TextBox Then
            ctrl.Text = ""
        End If
        If ctrl.HasChildren Then
             ClearText(ctrl)
        End If
    Next
End Sub

我的按钮中的代码是根据上面代码改的:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ctrl As Control
        For Each ctrl In Me.Controls
            If TypeOf (ctrl) Is TextBox Then
                ctrl.Text = ""
            End If
        Next
    End Sub

但是结果是清除不了,根本没有反应。
到底哪里错了呢?
谢谢!
搜索更多相关主题的帖子: TextBox 窗体 container Sub ByVal 
2007-12-25 13:17
杀虫剂
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2007-12-12
收藏
得分:0 
回复 1# 的帖子
我为了美观,所有TextBox都是在GroupBox中分组好的,试了一下,TextBox在窗口里直接创建可以清除,在GroupBox中创建就无法清除。
如果我要将GroupBox中的TextBox批量清除,该怎么做呢?
谢谢!
2007-12-25 13:41
杀虫剂
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2007-12-12
收藏
得分:0 
解决了,结贴。
自己想出来了!呵呵!

       Dim ctrl As Control
        Dim ctrlChild As Control
        For Each ctrl In Me.Controls
            For Each ctrlChild In ctrl.Controls
                If TypeOf (ctrlChild) Is TextBox Then
                    ctrlChild.Text = ""
                End If
            Next
        Next
    End Sub
2007-12-25 14:16
hezhifang
Rank: 1
等 级:新手上路
帖 子:80
专家分:0
注 册:2007-7-2
收藏
得分:0 
dddddddddd我也学习了

我爱编程
2007-12-25 14:53
fairy4
Rank: 4
等 级:贵宾
威 望:10
帖 子:738
专家分:267
注 册:2007-11-1
收藏
得分:0 
Dim ctrl As Control
        Dim ctrlChild As Control
        For Each ctrl In Me.Controls
            If TypeOf (ctrl) Is TextBox Then
                ctrl.Text = ""
            End If
            If ctrl.HasChildren Then
                For Each ctrlChild In ctrl.Controls
                    If TypeOf (ctrlChild) Is TextBox Then
                        ctrlChild.Text = ""
                    End If
                Next
            End If
           
        Next
這個清除所有textbox里面的text

一个人只有一个心脏,却有两个心房。一个住着快乐;一个住着悲伤。不要笑得太大声,不然会吵醒旁边的悲伤
2007-12-25 15:21
快速回复:想一次将窗体中所有TextBox清空,遇到问题了。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025130 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved