Foxtable(狐表)用户栏目专家坐堂 → 遍历所有控件,清空控件的内容


  共有2426人关注过本帖树形打印复制链接

主题:遍历所有控件,清空控件的内容

帅哥哟,离线,有人找我吗?
fubblyc
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
遍历所有控件,清空控件的内容  发帖心情 Post By:2016/3/2 10:50:00 [只看该作者]

嘿嘿,有没有什么办法可以遍历所有控件,然后清空他的内容的?不然要一个一个地写。。。有时候删掉控件,忘了删对应的代码还会报错。。。


图片点击可在新窗口打开查看此主题相关图片如下:9.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/2 10:55:00 [只看该作者]

 遍历 panel 容器里面的控件

 

For Each c As Object In e.Form.controls("panel1").children
   
    If typeof c Is winform.TextBox OrElse typeof c Is winform.DateTimePicker  Then
       
        c.text = Nothing
       
    End If
   
Next


 回到顶部
帅哥哟,离线,有人找我吗?
fubblyc
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2016/3/2 21:16:00 [只看该作者]

未找到类型“SplitContainer”的公共成员“children”。

大红袍老师,我的容器是 SplitContainer ,

我写成这样。。。For Each c As Object In e.Form.controls("SplitContainer2").children

 

然后就报错了。。。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/2 21:19:00 [只看该作者]

For Each c As Object In e.Form.controls("SplitContainer2").panel1.children

 

For Each c As Object In e.Form.controls("SplitContainer2").panel2.children



 回到顶部
帅哥哟,离线,有人找我吗?
fubblyc
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2016/3/2 21:28:00 [只看该作者]

没有反应,大红袍老师。。。

For Each c As Object In e.Form.controls("SplitContainer2").panel1.children  
    If typeof c Is winform.TextBox OrElse typeof c Is winform.DateTimePicker OrElse typeof c Is winform.CheckedComboBox Then       
        c.text = Nothing       
    End If   
Next

For Each c As Object In e.Form.controls("SplitContainer2").panel2.children  
    If typeof c Is winform.TextBox OrElse typeof c Is winform.DateTimePicker OrElse typeof c Is winform.CheckedComboBox Then       
        c.text = Nothing       
    End If   
Next


 回到顶部
帅哥哟,离线,有人找我吗?
fubblyc
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2016/3/2 21:34:00 [只看该作者]

就是我在 textbox 上写东西,点按钮,都没有清空

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/2 21:36:00 [只看该作者]

加入msgbox弹出c.name

 回到顶部