Foxtable(狐表)用户栏目专家坐堂 → 额,老师,这个要怎么表达。


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

主题:额,老师,这个要怎么表达。

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


加好友 发短信
等级:幼狐 帖子:100 积分:925 威望:0 精华:0 注册:2016/12/5 10:41:00
额,老师,这个要怎么表达。  发帖心情 Post By:2017/12/25 14:43:00 [只看该作者]

For Each sdr As WinForm.Button In e.Form
Next

厉遍窗口内所有button


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/25 14:49:00 [只看该作者]

For Each c As WinForm.Control In e.Form.controls
    If typeof c Is winform.button Then
       
    End If
Next

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


加好友 发短信
等级:幼狐 帖子:100 积分:925 威望:0 精华:0 注册:2016/12/5 10:41:00
  发帖心情 Post By:2017/12/29 13:59:00 [只看该作者]

For Each c As WinForm.Control In e.Form.controls
    If typeof c Is winform.button Then
        e.from.RemoveControl(c)
    End If
Next

老师, 这个不理解。


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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57590 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2017/12/29 13:59:00 [只看该作者]

判断类型

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/29 14:11:00 [只看该作者]

以下是引用rxfmrqq在2017/12/29 13:59:00的发言:

For Each c As WinForm.Control In e.Form.controls
    If typeof c Is winform.button Then
        e.from.RemoveControl(c)
    End If
Next

老师, 这个不理解。

 

是一种语法,判断 c 变量是不是某种类型。

 

或者你可以这样写 msgbox(c.gettype.name)


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


加好友 发短信
等级:幼狐 帖子:100 积分:925 威望:0 精华:0 注册:2016/12/5 10:41:00
  发帖心情 Post By:2017/12/29 14:34:00 [只看该作者]

哦, 理解了, 先判断 c 是不是 botton  然后,读出c 的 名称。

但是还是应用不了。 我所有的 button 都是用AddControl 建立的,  c.Gettype.name 出来的名称 全是 button。

 

e.form.RemoveControl("" & c.Gettype.name & "") 出来一点反应都没有。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/29 15:04:00 [只看该作者]

Dim ns As New List(Of String)

For Each c As WinForm.Control In e.Form.controls
    If typeof c Is winform.button Then
        ns.Add(c.name)
    End If
Next

For Each n As String in ns

    e.from.RemoveControl(n)

Next

 

 


 回到顶部