以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何动态生成控件控制其他控件属性  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97873)

--  作者:jiangxun
--  发布时间:2017/3/20 13:14:00
--  如何动态生成控件控制其他控件属性

动态生成一个panel控件,

在这个动态的panel控件内又动态生成一个Button控件,

 定义一个全局代码用来支持Button的click事件,

通过点击这个动态生产的Button改变一个非动态的Label控件的text属性

 

Dim pnl_body As WinForm.panel
pnl_body 
 = e.Form.CreateControl("pnl", ControlTypeEnum.panel)
pnl_body.Left = 100
pnl_body.Top = 100
e
.Form.AddControl(pnl_body)

Dim bt As WinForm.Button
bt
 = e.Form.CreateControl("btn", ControlTypeEnum.Button)
bt.Left = 100
bt.
Top = 100
pnl_body.AddControl(bt)

AddHandler bt.Click, AddressOf Button1_Click

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  
e.form.controls("Label2").text = "Ho"
End
Sub

上述全局代码不能执行,请求帮助


--  作者:有点色
--  发布时间:2017/3/20 15:17:00
--  

1、你可以把代码写到窗口的click事件

 

2、如果写在全局代码那里,不能e.Form,你可以用 sender.Parent.Parent.Name 获取窗口的名字。


--  作者:jiangxun
--  发布时间:2017/3/20 15:45:00
--  

谢谢图片点击可在新窗口打开查看