以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于菜单设计的几个问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57052)

--  作者:lijin951
--  发布时间:2014/9/17 12:51:00
--  [求助]关于菜单设计的几个问题
1.我如何实现鼠标移到菜单标准按钮上自动显示这个按钮的标题,按钮是没有标题的,鼠标一上去之后才显示标题

2.我想更改菜单栏的布局,同时加入当前时间和当前登录者的账号。不知道在哪里弄

3.在主菜单标题改为123后,打开程序最顶上始终会出现123 - 程序文件名.table .怎样才能让它只显示123

--  作者:有点甜
--  发布时间:2014/9/17 14:14:00
--  

 1、有一个属性->提示

 

 2、插入一个Label或者按钮,然后在afterOpenProject写代码 http://www.foxtable.com/help/topics/1526.htm

 

 当前时间 date.now

 

 登陆者 user.name

 

 3、在afterOpenProject加入代码 basemainform.Text = "123"


--  作者:Bin
--  发布时间:2014/9/17 14:17:00
--  
1.设置按钮的 ToolTip="标题"
2.你想加在哪里?  
3.Basemainform.TExt="123"

--  作者:lijin951
--  发布时间:2014/9/17 16:39:00
--  
我想给自定义菜单赋值,但是必须退回开发界面,在项目的loaduser  或者 Afteropen 时间中写
Dim pz As RibbonMenu.ConfigBar = ConfigBar  \'申明配置栏
pz.time.text = "现在时间是:" & Date.Now   \'给配置栏时间赋值
pz.user.text = "当前登录用户:" & User.Name \'给配置栏用户赋值

都不行呀,说明书提到

我们可以在设计自定义菜单的时候,另外增加一个功能区(假定名称为"设计"),这个功能区包括一些开发方面的按钮,例如项目属性、表属性、菜单设计、窗口设计等等,这样我们在使用自定义菜单的时候,依然可以进行开发,但是这个和开发有关的功能区显然不应该让开发者之外的用户使用,为此我们可以在项目事件LoadUserSetting加上代码:

If RibbonTabs.Contains("设计"Then \'如果包含名为"设计"的功能区
    If user.Type = UserTypeEnum.Developer Then
        RibbonTabs(
"设计").Visible = True
    Else

        RibbonTabs(
"设计").Visible = False
    
End If
End
 If

但是如何给例如 项目属性 ,表属性 等这些按键写单击事件呀?


还有个问题,我有一个窗口需要加载大量的表,在自定义菜单状态下,点击功能区打开这个窗口,就会卡,我想弄个类似进度条的东西,看了半天说明也没看怎么明白?能不能给点提示呀?

[此贴子已经被作者于2014-9-17 16:41:07编辑过]

--  作者:有点甜
--  发布时间:2014/9/17 16:42:00
--  

ConfigBar.Items("time").Text = "现在时间是:" & Date.Now 

 

ConfigBar.Items("user").Text = "当前登录用户:" & User.Name


--  作者:lijin951
--  发布时间:2014/9/17 16:51:00
--  
大神再请问下,我如何来改变字体的大小,我是用的配置栏添加的标签
--  作者:有点甜
--  发布时间:2014/9/17 16:59:00
--  

 修改配置栏字体代码

 

Dim a As object = BaseMainForm.controls("C1Ribbon1")
a.ConfigToolBar.Font = new Font("黑体", 12)