Foxtable(狐表)用户栏目专家坐堂 → 已解决!动态控件的删除问题


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

主题:已解决!动态控件的删除问题

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


加好友 发短信
等级:六尾狐 帖子:1425 积分:11332 威望:0 精华:0 注册:2008/9/1 22:20:00
已解决!动态控件的删除问题  发帖心情 Post By:2014/5/17 0:29:00 [只看该作者]

以下代码生成一组标签控件:

Dim bks() As String

        Dim i As Integer

        bks = New String() {"A","B","C","D"}

        For Each bk As String In bks

            Dim lbl As WinForm.Label

i = i+1

            lbl = e.Form.CreateControl("lable" & i+1, ControlTypeEnum.Label)

            lbl.Text = bk

            lbl.Left = 700

            lbl.Top = 350 + i*20

            e.Form.AddControl(lbl)

           

        Next


现在想批量删除这组控件,却发现删除代码不起作用:

Dim bks() As String

bks = New String() {"A","B","C","D","E"}

For Each bk As String In bks

    If e.Form.ExistControl(bk)=True Then

        messagebox.Show(bk)

        e.Form.RemoveControl(bk)

    End If

Next

求指点!

[此贴子已经被作者于2014-5-17 22:33:33编辑过]

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/5/17 8:09:00 [只看该作者]

Dim bks() As String
Dim i As Integer
bks = New String() {"A","B","C","D"}
For Each bk As String In bks
    Dim lbl As WinForm.Label
    i = i+1
    lbl = e.Form.CreateControl(bk, ControlTypeEnum.Label)
    lbl.Text = bk
    lbl.Left = 70
    lbl.Top = 35 + i * 20
    e.Form.AddControl(lbl)
Next

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


加好友 发短信
等级:六尾狐 帖子:1425 积分:11332 威望:0 精华:0 注册:2008/9/1 22:20:00
  发帖心情 Post By:2014/5/17 22:09:00 [只看该作者]

谢谢回复,但不是想问的问题,我想知道生成这组控件后,如何通过代码删除它,代码在一楼。

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


加好友 发短信
等级:六尾狐 帖子:1425 积分:11332 威望:0 精华:0 注册:2008/9/1 22:20:00
  发帖心情 Post By:2014/5/17 22:34:00 [只看该作者]

Dim bks() As String

        Dim i As Integer

        bks = New String() {"A","B","C","D"}

        For Each bk As String In bks

            Dim lbl As WinForm.Label

i = i+1

            lbl = e.Form.CreateControl(bk, ControlTypeEnum.Label)

            lbl.Text = bk

            lbl.Left = 700

            lbl.Top = 350 + i*20

            e.Form.AddControl(lbl)

           

        Next


 回到顶部