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


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

主题：菜单设计问题
帅哥哟，离线，有人找我吗？
裴保民
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2034 积分：13016 威望：0 精华：0 注册：2017/4/3 15:01:00 		菜单设计问题  发帖心情 Post By：2017/11/5 13:57:00 [显示全部帖子]

（1）打开程序后怎样设置系统状态栏（不是窗体菜单）左侧显示当前程序用户名以及用户类型，右侧动态显示当前用户的操作呢？
（2）怎样实现快速访问栏显示当前版本信息以及当前版本性质（正式版还是试用版）
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2034 积分：13016 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/11/5 21:45:00 [显示全部帖子]

(1)右侧怎么动态显示用户的当前操作呢？
（2）快速访问栏怎么代码设置label控件的值呢？
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2034 积分：13016 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/11/5 23:50:00 [显示全部帖子]

快速访问栏怎么没有添加加入一个label控件的功能呢

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


加好友 发短信
等级：八尾狐 帖子：2034 积分：13016 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/11/6 2:34:00 [显示全部帖子]

（1）老师传统菜单怎么设计呀？就像下面的样式：

图片点击可在新窗口打开查看此主题相关图片如下：66666.jpg
图片点击可在新窗口打开查看


（2）这样的底部状态栏怎么做的呢？有很多项目

图片点击可在新窗口打开查看此主题相关图片如下：55555.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2034 积分：13016 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/11/6 10:07:00 [显示全部帖子]

（1）我想实现快速访问栏只显示一个程序图标和版本信息
下面是各个菜单选项,怎么实现呢？如果按您的方法是不是显得太乱了呢？
我看了帮助文件里的内容,里面只是分了左、中、右三个文本内容设置,我想实现左边分别显示目前用户名、用户名类型、登陆时间、系统时间等内容、像一个个文本框内容是的或者特殊竖线分割开；右侧是用户动态操作,怎么显示呢？
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2034 积分：13016 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/11/9 9:15:00 [显示全部帖子]

 

我在AfterOpenProject事件中写了如下代码：

 

 Code = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & HardDiskID,"")
        If Code > "" AndAlso DecryptText(Code,"acbd","bad") = HardDiskID Then '如果注册码正确
       StatusBar.DefaultMessage ="机具进销存管理系统 2.0    " & Tables("注册用户信息表").Current("公司名称")
      StatusBar.Message3 = "服务支持:技术有限公司 服务热线:1300000000"
            OK = True
        End If

为什么不显示StatusBar.Message3 = "服务支持:技术有限公司 服务热线:1300000000"呢？

 

 

 

 

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


加好友 发短信
等级：八尾狐 帖子：2034 积分：13016 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/11/9 14:38:00 [显示全部帖子]

我查了系统主菜单没有写有StatusBar.Message3 = xxx 等方面的代码，其他地方也没编辑过，运行后StatusBar.Message3 就是不命名

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


加好友 发短信
等级：八尾狐 帖子：2034 积分：13016 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/11/9 16:38:00 [显示全部帖子]

Dim t As Table
'RibbonMenu.StatusBar.Message3 = ""
Vars("SysUpdateAggregate") = False
If e.Table IsNot CurrentTable OrElse CurrentTable Is Nothing Then
    Return
Else
    t = CurrentTable
End If
If t.TopRow = t.BottomRow AndAlso t.LeftCol = t.RightCol Then
    Return
End If
For c As Integer = t.LeftCol To t.RightCol 
    If t.Cols(c).IsNumeric = False Then
        Return
    End If
Next
Vars("SysUpdateAggregate") =  True



老师找到了在AfterSelRangeChange事件中有一句红色字体的代码，我把他删除后就正常了，这句话是什么意思呢？删除后有其他影响吗？
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2034 积分：13016 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/11/9 21:01:00 [显示全部帖子]

我在计划管理中写了如下代码运行后错误，哪错了老师

StatusBar.Message2 = " || 登录用户:  & _UserName  &   || 角色权限:  & _UserGroup  &   || 公司名称:  & Tables("注册用户信息表").Current("公司名称")  & || 系统时间:  &  Date.now ()   & || 服务支持:  & 电子技术有限公司 &  || 服务热线: 130000000 "



图片点击可在新窗口打开查看此主题相关图片如下：564.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2017/11/9 21:02:11编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2034 积分：13016 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/11/9 21:52:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：56.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：57.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：45.jpg
图片点击可在新窗口打开查看


老师这是什么原因呢？在这一步单击否时就会发生错误，如果继续进行就正常

[此贴子已经被作者于2017/11/9 21:55:33编辑过]
 回到顶部
总数 20 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 5 次数据查询