| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]窗口按钮代码（已解决） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62927) |
| -- 作者：yyzlxc -- 发布时间：2015/1/10 10:56:00 -- [求助]窗口按钮代码（已解决） 窗口的AfterLoad事件代码： Dim ct As New Windows.Forms.Button ct.Text = "我的按钮" e.Form.Panel.Controls.Add(ct) AddHandler ct.Click, AddressOf Button1_Click 以上代码在窗口自动生成一个按钮，如果在窗口用一个按钮“Button2”来替换自动生成的按钮的功能（不自动生成），代码应该如何修改？请老师指教，谢谢！！ [此贴子已经被作者于2015-1-10 14:44:40编辑过]
|
| -- 作者：Bin -- 发布时间：2015/1/10 11:08:00 -- 意思是复制一个窗口已经存在的控件? |
| -- 作者：yyzlxc -- 发布时间：2015/1/10 11:09:00 -- 是的，不要自动生成按钮。 |
| -- 作者：Bin -- 发布时间：2015/1/10 11:15:00 -- 可以从其他窗口复制过来 e.Form.AddControl(Forms("窗口2").Controls("CheckBox1")) 从本窗口复制不了一定要新建,因为已经存在的完全一致的控件无法添加两次
|
| -- 作者：yyzlxc -- 发布时间：2015/1/10 11:18:00 -- 我的意思是，不要在窗口自动添加按钮，而是将窗口现有的按钮来实现同样的功能，请老师指教。 [此贴子已经被作者于2015-1-10 11:20:02编辑过]
|
| -- 作者：逛逛 -- 发布时间：2015/1/10 12:15:00 -- Dim but As WinForm.Button = e.Form.Controls("Button2") AddHandler but.BaseControl.Click, AddressOf Button1_Click |
| -- 作者：yyzlxc -- 发布时间：2015/1/10 14:44:00 -- 谢谢逛逛老师，问题解决，再次衷心感谢！！ |