主题：额，不知道写标题的问题。

额，老师， 是这样的，

我在窗口A 中用代码打开窗口B，并用 AddControl 建立了   4个 button

（代码1）

addcontrol（4）

但是，在窗口B中，

（代码2）

Dim but As WinForm.Control = e.Sender
If Typeof but Is winform.button Then
    msgbox(1)
End If

这个代码就执行不了。

 

 这时，我将  窗口A中的 addcontrol 移植到 窗口B的 afterload 中，

 

代码2 有可以执行了。  

我想问问，这是什么情况。

 

1、你的button在哪个窗口生成？代码怎么写的？

 

2、代码你放在哪个事件？要放在click事件的。

 

3、做个实例发上来测试。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试实例.rar

额，老师， 做好了， 你看一下。

 

把窗口1 button 的代码  换到   窗口2 afterload 中，   窗口2的chick 就可以用了。

新增的时候，要这样写

 

        but = Forms("窗口2").CreateControl(i,ControlTypeEnum.button)

额，抱歉。 确实是没注意。