Foxtable(狐表)用户栏目专家坐堂 → 用代码做的任务栏如何实现展开和关闭


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

主题:用代码做的任务栏如何实现展开和关闭

帅哥哟,离线,有人找我吗?
denghui69986
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:505 积分:3303 威望:0 精华:0 注册:2022/3/25 7:44:00
用代码做的任务栏如何实现展开和关闭  发帖心情 Post By:2024/5/3 9:19:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:任务栏截图.png
图片点击可在新窗口打开查看

需要任务栏是关闭不是这样展开状态,怎么才实现下面图那样关闭状态需要看才点开,试了好几次,老师帮忙指点,谢谢,
图片点击可在新窗口打开查看此主题相关图片如下:任务栏截图1.png
图片点击可在新窗口打开查看
代码下面
'开始生成今日订单情况任务栏显示具体数据
Dim Page As WinForm.TopicPage
Dim cnt1 As Integer = DataTables("月生产报表").Compute("Count(批号)", "输入日期 = #" & Date.Today & "#")'月生产报表以批号编号列输入日期
Dim cnt2 As Integer = DataTables("生产记录").Compute("Count(生产批号)", "生产日期 = #" & Date.Today & "#")'生产记录
Dim cnt3 As Integer = DataTables("发料单").Compute("Count(生产批号)", "发料日期 = #" & Date.Today & "#")'发料单
Page = e.Form.Controls("TopicBar1").Pages.Add("今日录入情况", "今日录入情况")'一级菜单显示名称
Page.Links.Add("今日上线生产", "今日上线生产(" & cnt1 & ")批")'二级菜单显示名称 后面引用cnt1变量的分析数据?
Page.Links.Add("电脑裁剪已生产", "电脑裁剪已生产(" & cnt2 & ")")
Page.Links.Add("生产完已发单", "生产完已发单(" & cnt3 & ")")
[此贴子已经被作者于2024/5/3 9:20:19编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/5 20:15:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
denghui69986
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:505 积分:3303 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2024/5/6 7:57:00 [只看该作者]

谢谢

 回到顶部