以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]动态添加按钮  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78619)
--  作者：ZDG
--  发布时间：2015/12/13 13:49:00
--  [求助]动态添加按钮
请问各位老师，怎样才能点击一个按钮，然后添加一个按钮，要不管点多少次，只能添加一个
--  作者：大红袍
--  发布时间：2015/12/13 13:54:00
--  

If e.form.Controls.contains("btn1") = False Then
    Dim lbl As WinForm.Button
    lbl = e.Form.CreateControl("btn1", ControlTypeEnum.button)
    lbl.Text = "Foxtable"
    lbl.Left = 100
    lbl.Top = 100
    e.Form.AddControl(lbl)
End If