以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何用代码在窗体中动态增加按钮控件，并动态设置按钮代码？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89853)
--  作者：yangguojun
--  发布时间：2016/8/31 10:58:00
--  [求助]如何用代码在窗体中动态增加按钮控件，并动态设置按钮代码？
[求助]如何用代码在窗体中动态增加按钮控件，并动态设置按钮代码？
--  作者：有点蓝
--  发布时间：2016/8/31 11:08:00
--  
参考：http://www.foxtable.com/webhelp/scr/1409.htm
--  作者：yangguojun
--  发布时间：2016/8/31 11:15:00
--  
之前没看懂，重新看了一边，有点启发，多谢
--  作者：yangguojun
--  发布时间：2016/8/31 13:55:00
--  
MessageBox.show("你无审核权限!")
上面的代码存储在 表的  ‘控件代码 ’ 字段里面

如何在下面的全局代码中执行上面的代码

如果采用全局代码，只需在全局事件Click中加入以下代码即可：

Select Case e.Sender.Name
    Case "btnPrev"        
        ’执行  MessageBox.show("你无审核权限!")   这段代码
End Select
--  作者：有点蓝
--  发布时间：2016/8/31 14:42:00
--  
参考：http://www.foxtable.com/webhelp/scr/1487.htm
--  作者：有点蓝
--  发布时间：2016/8/31 14:44:00
--  
Functions.Remove("msg")
Dim Code As String
Code = "MessageBox.show(""你无审核权限!"")" 
Functions.Add("msg",Code)
Functions.Complie()
Functions.Execute("msg")