周一至周五 : 08:30 - 17:30 客服专员电话/微信:18049989370 QQ:857188287
微信咨询

扫码微信咨询

关注公众号

关注微信公众号

电话: 021 5161 9370
返回顶部
菜单栏添加自定义按钮(V7.0版本)
显示全部楼层 倒序浏览 发表日期 2019-08-14 17:57:46 2461次阅读 1次回复
本帖最后由 hessen 于 2019-8-14 17:59 编辑

菜单栏添加自定义按钮

功能说明:

在填报、修改、查阅模板时,顶部的菜单栏添加一个自定义按钮用于执行各项操作。


支持版本:

企业版7.0以上


效果:


代码:
  1. Imports SpreadsheetGear
  2. Imports C1.Silverlight
  3. Imports C1.Silverlight.C1MessageBoxButton
  4. Imports C1.Silverlight.C1MessageBoxIcon
  5. Imports Newtonsoft.Json
  6. Imports Newtonsoft.Json.Linq
  7. Imports System.Windows.forms
  8. Namespace ExcelViewVBDotnet
  9.         Public Class StandardInterface
  10.        '预留位置1
  11.        '预留位置2
  12.         Dim EV As SpreadsheetGear.Windows.Co**ols.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
  13.         Dim CF,VW As Object
  14.         Dim TS As StackPanel
  15.                 Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Co**ols.WorkbookView)
  16.                         EV = Excel
  17.                         Excel.GetLock()
  18.                         AW = Excel.ActiveWorkbook
  19.                         Range = AW.ActiveWorksheet.Range
  20.                         Excel.ReleaseLock()

  21.                         CF = OldRoot.Children(1)  '绑定工具条触发,不能测试运行
  22.                         TS = CType(OldRoot.Children(5),StackPanel)
  23.                 '工具条添加第一个按钮
  24.                         Dim BT1 As New Button
  25.                         BT1.Name = "BT_AN1"       '按钮名,不能与其他按钮名称重复,下同。
  26.                         BT1.Content = "第一个按钮"     '按钮显示的名称,自定义写入欲显示的名称。下同
  27.                         BT1.Margin= New Thickness(0, 2, 0, 2)
  28.                         BT1.Padding= New Thickness(13, 3, 13, 3)
  29.                         BT1.Style=CType(Application.Current.Resources("ButtonStyle3"),style)
  30.                         BT1.Foreground =  CType(Application.Current.Resources("Foreground1"),System.Windows.Media.Brush)
  31.                         TS.Children.Insert(17, BT1)    '插入按钮的位置,多个按钮时顺序往下排
  32.                   
  33.                 End Sub'打开时执行事件

  34.                 Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Co**ols.RangeSelectionChangedEventArgs)

  35.                 End Sub'单元格选择后执行的事件

  36.                 Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Co**ols.RangeChangedEventArgs)

  37.                 End Sub'单元格编辑完成后执行事件

  38.                 Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Co**ols.ShapeActionEventArgs)

  39.                 End Sub'按钮/标签点击事件

  40.                 Public Sub FollowHyperlink(sender As Object)

  41.                 End Sub '暂不支持

  42.         End Class
  43. '  注:除事件字眼下可以自定义代码外的所有代码不允许改动,否则编译将有可能失败。
  44. End Namespace
复制代码


电话/微信:18049989370 QQ:857188287
快要升级7.0了吗

精彩评论1

快要升级7.0了吗
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则  允许回帖邮件提醒楼主

快表软件是国内较早研究表格类软件开发平台的团队之一,迄今已有十多年的行业经验.致力于为企事业单位提供实用可靠的数字化平台。
  • 微信公众号

  • 微信小商店

  • 微信客服

  • Powered by Discuz! X3.4 | Copyright © 2022-2024, XiRong Soft. | 快表软件
  • 沪ICP备13033196号 | 营业执照 |上海西戎软件科技有限公司|沪公网安备31011502002146号|沪ICP备13033196号 |