Foxtable(狐表)用户栏目专家坐堂 → 求一个动态增加按钮的代码


  共有2127人关注过本帖树形打印复制链接

主题:求一个动态增加按钮的代码

帅哥哟,离线,有人找我吗?
lovemaders
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:723 积分:5058 威望:0 精华:0 注册:2014/12/30 16:52:00
求一个动态增加按钮的代码  发帖心情 Post By:2016/5/5 7:08:00 [只看该作者]

项目已发,入图当点击顶上的按钮1和2的时候,下面那个页面合集会增加上1和2的页面,想让我标记的地方同时动态增加上按钮,按钮的名字就是功能按钮的窗口名。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb


图片点击可在新窗口打开查看此主题相关图片如下:123.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By: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)

 回到顶部
帅哥哟,离线,有人找我吗?
lovemaders
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:723 积分:5058 威望:0 精华:0 注册:2014/12/30 16:52:00
这个动态增加的按钮怎么给他增加点击代码  发帖心情 Post By:2016/5/5 15:04:00 [只看该作者]

这个动态增加的按钮怎么给他增加点击代码

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/5 15:06:00 [只看该作者]

以下是引用lovemaders在2016/5/5 15:04:00的发言:
这个动态增加的按钮怎么给他增加点击代码

 

代码写到 全局代码 click事件那里去


 回到顶部
帅哥哟,离线,有人找我吗?
lovemaders
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:723 积分:5058 威望:0 精华:0 注册:2014/12/30 16:52:00
怎么写呀举个例子吧  发帖心情 Post By:2016/5/5 16:50:00 [只看该作者]

怎么写呀举个例子吧

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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编辑过]

 回到顶部