Foxtable(狐表)用户栏目专家坐堂 → 这个命令窗口怎么用代码打开啊?


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

主题:这个命令窗口怎么用代码打开啊?

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/8 12:30:00 [显示全部帖子]

发布以后,这个窗口不能用了。

 

你可以自己做一个这样的窗口

 

Functions.remove("函数")
Dim Code As String
Code = e.Fomr.Controls("TextBox1").Text
Functions.Add("函数",Code)
Functions.Complie()
Functions.Execute("函数")


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/16 9:15:00 [显示全部帖子]

在TextBox1写如你要执行的所有代码,比如 msgbox(12345678),然后在按钮写下面的代码

 

Functions.remove("函数")
Dim Code As String
Code = e.Fomr.Controls("TextBox1").Text
Functions.Add("函数",Code)
Functions.Complie()
Functions.Execute("函数")


 回到顶部