Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于菜单显示动态文本框？


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

主题：[求助]关于菜单显示动态文本框？
帅哥哟，离线，有人找我吗？
大红袍
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

动态添加即可

 

 

Dim C1Ribbon1 As C1Ribbon.C1Ribbon  = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )

Dim a As New Windows.Forms.TextBox
a.MultiLine = True
a.Text = "123456789"
a.Font = new font("宋体", 20)
a.backColor = color.red
Dim b As New C1Ribbon.RibbonControlHost(a)
b.name = "自定义项1"
b.width = 300
b.height = 100
C1Ribbon1.tabs("Other").Groups("Execute").items.add(b)
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

可以写在afterOpenProject事件。用vars记录一下

 

Dim a As New Windows.Forms.TextBox

 

vars("通知") = a

 

------------需要修改的时候，就写代码

 

vars("通知").Text = "987654321"
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

1、在你的菜单里面加入一个按钮，调出代码窗口；

 

Syscmd.Project.CommandWindow()

 

2、切换到你的菜单，打开代码窗口
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

C1Ribbon1.tabs("功能区名字").Groups("功能组名称").items.add(b)

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


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

以下是引用ehomecd在2015/11/18 16:31:00的发言：
明白了，如果我把代码写到秒计里，就可以实现内容的动态更新是吧。

 

vars("通知").Text = "987654321"
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03809 秒, 5 次数据查询