菜单设计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 菜单设计

共有8692人关注过本帖树形打印复制链接主题：菜单设计

实话实说

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

菜单设计

Post By：2012/5/23 6:27:00 [只看该作者]

1 当程序菜单设置为不可见时,左上角就出现狐狸的图标,而不是我设置的图标
图片点击可在新窗口打开查看此主题相关图片如下：snap1.jpg

2 如何在菜单配置栏的标签中显示如下动态信息?

当前用户：开发者当前时间：2009年12月26日星期六 12:58:34 表名 ...

[此贴子已经被作者于2012-5-23 6:54:58编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/5/23 7:49:00 [只看该作者]

1、basemainform.icon = new system.drawing.icon("某图标的路径和名称")

2、显示日期和姓名就行，加入一个标签，在AfterOpenproject事件设置标签的内容，至于时间，最好不要消失，浪费资源。

实话实说

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2012/5/23 20:08:00 [只看该作者]

第2个问题

    Dim Str1 As String = "当前用户: " & User.Name
    Str1 = Str1 & "   当前时间: " & Format (now, "D") & Format(now, "dddd ") & Format (now, "T") & ""
    RibbonMenu.ConfigBar("标签1").text = Str1

如何返回菜单配置栏标签1?

[此贴子已经被作者于2012-5-24 7:01:08编辑过]

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/5/24 7:41:00 [只看该作者]

RibbonMenu.ConfigBar.Items("标签1").text = Str1

实话实说

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2012/5/24 18:14:00 [只看该作者]

此主题相关图片如下：snap1.jpg

kitty

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：99 积分：1589 威望：0 精华：0 注册：2011/9/19 0:57:00

Post By：2012/5/25 9:22:00 [只看该作者]

ConfigBar.Item("标签1").text = Str，其中"标签1”是项目的Name.

如果是在项目的开发模式的命令窗口中测试的话，需要在命令窗口中添加如下代码，切换到用户菜单，因为切换到用户菜单时，才会有用户新建的"标签1"菜单项目。

Syscmd.Project.OpenUserMenu()

ConfigBar.Item("标签1").text = Str

[此贴子已经被作者于2012-5-25 9:29:52编辑过]

实话实说

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2012/5/25 11:49:00 [只看该作者]

标签1是菜单配置栏中的标签控件名.

现在还末解决

下一主题 >> << 上一主题

主题：菜单设计