![](images/userface/image1.gif)
加好友 发短信
等级:版主
帖子:85326
积分:427815
威望:0
精华:5
注册:2012/10/18 22:13:00
|
Post By:2014/2/7 21:55:00 [只看该作者]
窗口菜单的代码,如下修改
''' Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1") With Ctype(tpb.BaseControl, C1Command.C1TopicBar) If System.Environment.OSVersion.Version.Major < 6 Then .VisualStyle = C1Command.VisualStyle.WindowsXP Else .VisualStyle = C1Command.VisualStyle.Office2010Blue End If .Padding = New Windows.Forms.Padding(4) End With tpb.Animation = False
If User.Name = "开发者" Then Else tpb.Pages.Add("特色功能", "特色功能", "foxtable.ico").Collapsed = True With tpb.Pages("特色功能").Links .Add("汇总模式", "汇总模式") .Add("轻松录入", "轻松录入") .Add("框架模式", "框架模式") .Add("合并模式", "合并模式") .Add("多层表头", "多层表头") .Add("记录窗口", "记录窗口") .Add("表达式列", "表达式列") .Add("备注图片", "备注图片") .Add("窗口设计", "窗口设计") .Add("停靠窗口", "停靠窗口") .Add("菜单设计", "菜单设计") .Add("分组统计", "分组统计") .Add("交叉统计", "交叉统计") .Add("数据分析", "数据分析") .Add("表间关联", "表间关联") .Add("piao据套打", "piao据套打") .Add("图示数据", "图示数据") .Add("标记数据", "标记数据") .Add("财务计算", "财务计算") .Add("Excel报表", "Excel报表") .Add("条码输出", "条码输出") .Add("扩展类型", "扩展类型") .Add("图片管理", "图片管理") .Add("文件管理", "文件管理") .Add("筛选树", "筛选树") .Add("单元格绘图", "单元格绘图") End With End If
tpb.Pages.Add("轻松录入", "轻松录入", "edit.ico").Collapsed = True tpb.Pages.Add("汇总模式", "汇总模式", "07372.ico").Collapsed = True tpb.Pages.Add("分组统计", "分组统计", "00107.ico").Collapsed = True tpb.Pages.Add("交叉统计", "交叉统计", "00300.ico").Collapsed = True tpb.Pages.Add("窗口设计", "窗口设计","window.ico").Collapsed = True tpb.Pages.Add("piao据设计", "piao据设计","design.ico").Collapsed = True tpb.Pages.Add("Excel报表", "Excel报表","00263.ico").Collapsed = True tpb.Pages.Add("流水账簿", "流水账簿", "liushuizhang.ico").Collapsed = True tpb.Pages.Add("轻松查询", "轻松查询","00640.ico").Collapsed = True tpb.Pages.Add("轻松开发", "轻松开发","00589.ico").Collapsed = True tpb.Pages.Add("帮助文件","帮助文件","Question.ico").Collapsed = True
With tpb.Pages("轻松录入").Links .Add("列表项目","列表项目") .Add("目录列表", "目录列表") .Add("代码项目", "代码项目") .Add("数据目录", "数据目录") .Add("数据字典", "数据字典") .Add("图形字典", "图形字典") .Add("多值字段", "多值字段") .Add("级联列表", "级联列表") .Add("数值输入", "数值输入") .Add("输入助手", "输入助手") .Add("文本编辑", "文本编辑") .Add("日期输入", "日期输入") .Add("权限控制", "权限控制") .Add("修改标记", "修改标记") .Add("逻辑列", "逻辑列") .Add("冻结列", "冻结列") .Add("行视图", "行视图") .Add("整行突出", "整行突出") .Add("插入行", "插入行") .Add("记录窗口", "记录窗口") End With With tpb.Pages("轻松查询").Links .Add("筛选树", "筛选树") .Add("按值筛选", "按值筛选") .Add("日期筛选", "日期筛选") .Add("字符筛选", "字符筛选") .Add("数值筛选", "数值筛选") .Add("高级筛选", "高级筛选") .Add("关联筛选", "关联筛选") .Add("重复值筛选", "重复值筛选") .Add("手工隐藏行", "手工隐藏行") End With With tpb.Pages("汇总模式").Links .Add("汇总模式", "汇总模式") .Add("日期统计", "日期统计") .Add("截止统计", "截止统计") .Add("多种统计", "多种统计") .Add("框架模式", "框架模式") .Add("自定义汇总", "自定义汇总") End With With tpb.Pages("分组统计").Links .Add("分组统计", "分组统计") .Add("环比分析", "环比分析") .Add("同比分析", "同比分析") .Add("占比分析", "占比分析") .Add("综合分析", "综合分析") .Add("截止统计", "截止统计") .Add("多种统计", "多种统计") .Add("自定义统计", "自定义统计") End With With tpb.Pages("交叉统计").Links .Add("交叉统计", "交叉统计") .Add("日期统计", "日期统计") .Add("多个分组", "多个分组") .Add("多个统计", "多个统计") .Add("占比分析", "占比分析") .Add("份额分析", "份额分析") .Add("综合分析", "综合分析") End With With tpb.Pages("流水账簿").Links .Add("流水账一","流水账一") .Add("流水账二","流水账二") End With With tpb.Pages("窗口设计").Links .Add("窗口设计" ,"窗口设计") .Add("停靠窗口" ,"停靠窗口") .Add("主窗口" ,"主窗口") .Add("下拉窗口" ,"下拉窗口") .Add("并列窗口" ,"并列窗口") .Add("共有窗口" ,"共有窗口") End With With tpb.Pages("piao据设计").Links .Add("piao据设计", "piao据设计") .Add("支piao套打", "支piao套打") .Add("对账单", "对账单") End With With tpb.Pages("Excel报表").Links .Add("出库单","出库单") .Add("资料卡","资料卡") .Add("工资条","工资条") .Add("打印标签","打印标签") .Add("分页汇总","分页汇总") .Add("分组汇总","分组汇总") End With With tpb.Pages("轻松开发").Links .Add("发布项目", "发布项目") .Add("外部数据", "外部数据") .Add("动态加载", "动态加载") .Add("分页加载", "分页加载") .Add("后台统计", "后台统计") .Add("短信收发", "短信收发") .Add("Dll引用", "Dll引用") .Add("API定义", "API定义") .Add("VBA支持", "VBA支持") .Add("SQL支持", "SQL支持") .Add("系统迁移", "系统迁移") .Add("高效开发", "高效开发") .Add("动态数据源", "动态数据源") End With With tpb.Pages("帮助文件").Links .Add("关于帮助文件","关于帮助文件") End With
tpb.Animation = True
|
|