- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求一个动态增加按钮的代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84553)
-- 发布时间：2016/5/5 7:08:00
-- 求一个动态增加按钮的代码
项目已发，入图当点击顶上的按钮1和2的时候，下面那个页面合集会增加上1和2的页面，想让我标记的地方同时动态增加上按钮，按钮的名字就是功能按钮的窗口名。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.foxdb |
此主题相关图片如下：123.png
-- 发布时间：2016/5/5 9:01:00
--
参考http://www.foxtable.com/help/topics/1409.htm
Dim btn = e.Form.CreateControl("btn" & name,ControlTypeEnum.Button)
btn.Text = name
btn.Left = 238
btn.Top = 11
Dim Panel1 As WinForm.Panel = e.Form.Controls("Panel1")
Panel1.AddControl(btn)
-- 发布时间：2016/5/5 15:04:00
-- 这个动态增加的按钮怎么给他增加点击代码
这个动态增加的按钮怎么给他增加点击代码
-- 发布时间：2016/5/5 15:06:00
--
以下是引用lovemaders在2016/5/5 15:04:00的发言：
这个动态增加的按钮怎么给他增加点击代码
这个动态增加的按钮怎么给他增加点击代码
代码写到 全局代码 click事件那里去
-- 发布时间：2016/5/5 16:50:00
-- 怎么写呀举个例子吧
怎么写呀举个例子吧
-- 发布时间：2016/5/5 17:37:00
--
要事先写好代码。不可能允许你动态写入代码的。
如果要动态写入，你就只能动态编译了
Functions.remove("函数")
Dim Code As String
Code = "msgbox(123)"
Functions.Add("函数",Code)
Functions.Complie()
Dim str = Functions.Execute("函数")
msgbox(str)
[此贴子已经被作者于2016/5/5 17:37:47编辑过]