以下代码生成一组标签控件:
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编辑过]