以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]动态添加按钮事件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=29875)
--  作者：mxko
--  发布时间：2013/3/15 11:57:00
--  [求助]动态添加按钮事件

求教：动态添加按钮后如何为该按钮添加事件？

With Forms("窗口1")
Dim But As WinForm.Button
But = .CreateControl("退出", ControlTypeEnum.Button)
But.Text = "退出"
But.SetBounds(5, 5, 45, 40) \'SetBounds(x, y, Width, Height)
But.TextAlign = ContentAlignment.BottomCenter
.AddControl(But)

End With
--  作者：狐狸爸爸
--  发布时间：2013/3/15 12:05:00
--  

参考：

http://www.foxtable.com/help/topics/1920.htm

 
--  作者：mxko
--  发布时间：2013/3/15 13:31:00
--  
谢谢“狐狸爸爸”