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

扫码微信咨询

关注公众号

关注微信公众号

电话: 021 5161 9370
返回顶部
VBA添加菜单按钮自定义按钮样式
显示全部楼层 倒序浏览 发表日期 2022-02-09 15:42:21 2002次阅读 3次回复
本帖最后由 hessen 于 2022-2-9 16:40 编辑

202202091541032.png

  1. Imports SpreadsheetGear
  2. Imports KbInterfaces
  3. Imports System.Windows.Resources
  4. Imports System.Windows.Threading
  5. Imports System.Windows
  6. Imports System.Windows.Controls
  7. Imports C1.Silverlight
  8. Imports C1.Silverlight.C1MessageBoxButton
  9. Imports C1.Silverlight.C1MessageBoxIcon
  10. Imports Newtonsoft.Json
  11. Imports Newtonsoft.Json.Linq
  12. Imports System.IO
  13. Imports System.Text
  14. Imports System.Runtime.InteropServices.Automation

  15. Namespace ExcelViewVBDotnet
  16.     Public Class StandardInterface '自定义名称
  17.         Implements Interfaces.IExcelWorkBook
  18.         Public Property ActiveWorkbook() As IWorkbook Implements Interfaces.IExcelWorkBook.Workbook
  19.         Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView
  20.         Dim Range As SpreadsheetGear.IRange
  21.         Dim AW As SpreadsheetGear.IWorkbook
  22.         Dim CF As TextBox, VW As Object
  23.         Dim TS As StackPanel

  24.         Public Sub Workbook_Open(OldRoot As Grid, NewRoot As Grid, Excel As SpreadsheetGear.Windows.Controls.WorkbookView) Implements Interfaces.IExcelWorkBook.Workbook_Open
  25.             EV = Excel
  26.             Excel.GetLock()
  27.             AW = Excel.ActiveWorkbook
  28.             Range = AW.ActiveWorksheet.Range
  29.             Excel.ReleaseLock()

  30.             CF = CType(OldRoot.Children(1), TextBox)
  31.             TS = CType(OldRoot.Children(5), StackPanel)


  32.             Dim BT1 As New Button
  33.             BT1.Name = "BT_HT"
  34.             BT1.Content = "生成合同"
  35.             BT1.Margin = New Thickness(0, 2, 0, 2)
  36.             BT1.Padding = New Thickness(13, 3, 13, 3)
  37.             BT1.Style = CType(Application.Current.Resources("ButtonStyle"), Style)
  38.             BT1.Foreground = New SolidColorBrush(System.Windows.Media.Color.FromArgb(255, 255, 255, 255))
  39.             'BT1.Background = New SolidColorBrush(System.Windows.Media.Color.FromArgb(255, 242, 117, 1))


  40.             AddHandler BT1.Click, Sub()
  41.                                       If MessageBox.Show("是否要生成合同?", "生成合同询问", MessageBoxButton.OKCancel) = MessageBoxResult.OK Then
  42.                                           Call CreateHt()
  43.                                       End If
  44.                                   End Sub
  45.             TS.Children.Insert(16, BT1)



  46.             Dim BT2 As New Button
  47.             BT2.Name = "BT_HideArea"
  48.             BT2.Content = "隐藏区域"
  49.             BT2.Margin = New Thickness(0, 2, 0, 2)
  50.             BT2.Padding = New Thickness(13, 3, 13, 3)
  51.             BT2.Style = CType(Application.Current.Resources("ButtonStyle"), Style)
  52.             BT2.Foreground = New SolidColorBrush(System.Windows.Media.Color.FromArgb(255, 255, 255, 255))
  53.             'BT2.Background = New SolidColorBrush(System.Windows.Media.Color.FromArgb(255, 242, 117, 1))
  54.             AddHandler BT2.Click, Sub()
  55.                                       ActiveWorkbook.WorkbookSet.GetLock()
  56.                                       Call HideArea()
  57.                                       ActiveWorkbook.WorkbookSet.ReleaseLock()
  58.                                   End Sub
  59.             TS.Children.Insert(17, BT2)

  60.             Dim BT3 As New Button
  61.             BT3.Name = "BT_ViewArea"
  62.             BT3.Content = "显示区域"
  63.             BT3.Margin = New Thickness(0, 2, 0, 2)
  64.             BT3.Padding = New Thickness(13, 3, 13, 3)
  65.             BT3.Style = CType(Application.Current.Resources("ButtonStyle"), Style)
  66.             BT3.Foreground = New SolidColorBrush(System.Windows.Media.Color.FromArgb(255, 255, 255, 255))
  67.             'BT3.Background = New SolidColorBrush(System.Windows.Media.Color.FromArgb(255, 242, 117, 1))
  68.             AddHandler BT3.Click, Sub()
  69.                                       ActiveWorkbook.WorkbookSet.GetLock()
  70.                                       Call ViewArea()
  71.                                       ActiveWorkbook.WorkbookSet.ReleaseLock()
  72.                                   End Sub
  73.             TS.Children.Insert(18, BT3)


  74.             Dim BT4 As New Button
  75.             BT4.Name = "BT_TransferNo"
  76.             BT4.Content = "生成结算单"
  77.             BT4.Margin = New Thickness(0, 2, 0, 2)
  78.             BT4.Padding = New Thickness(13, 3, 13, 3)
  79.             BT4.Style = CType(Application.Current.Resources("ButtonStyle"), Style)
  80.             BT4.Foreground = New SolidColorBrush(System.Windows.Media.Color.FromArgb(255, 255, 255, 255))
  81.             'BT4.Background = New SolidColorBrush(System.Windows.Media.Color.FromArgb(255, 242, 117, 1))
  82.             AddHandler BT4.Click, Sub()
  83.                                       CF.Tag = "2,传递流水号"
  84.                                       CF.Text = "#执行公式"   '执行提取公式写入"#执行公式",执行SQL语句写入"#执行SQL"
  85.                                   End Sub
  86.             TS.Children.Insert(19, BT4)


  87.             '位置:2保存3新增4提交5退回6进度7打印8预览9导出10捕获11上传图片12上传附件13插入行14插多行15删除行16查找17最后
  88.         End Sub '打开时执行事件
复制代码

ButtonStyle 为默认主题色ButtonStyle1 为直角按钮
ButtonStyle2 按钮大小固定
ButtonStyle3 自定义按钮色彩,没有默认色
电话/微信:18049989370 QQ:857188287
BT1.Foreground = New System.Windows.Media.SolidColorBrush(System.Windows.Media.Color.FromArgb(0, 0, 0, 0))
电话/微信:18049989370 QQ:857188287
QQ图片20220209131432.png
电话/微信:18049989370 QQ:857188287
                        BT1.Foreground = New System.Windows.Media.SolidColorBrush(System.Windows.Media.Color.FromArgb(255,255, 255, 255))
                        BT1.Background = New System.Windows.Media.SolidColorBrush(System.Windows.Media.Color.FromArgb(255,13, 168, 39))
电话/微信:18049989370 QQ:857188287

精彩评论3

BT1.Foreground = New System.Windows.Media.SolidColorBrush(System.Windows.Media.Color.FromArgb(0, 0, 0, 0))
电话/微信:18049989370 QQ:857188287
QQ图片20220209131432.png
电话/微信:18049989370 QQ:857188287
                        BT1.Foreground = New System.Windows.Media.SolidColorBrush(System.Windows.Media.Color.FromArgb(255,255, 255, 255))
                        BT1.Background = New System.Windows.Media.SolidColorBrush(System.Windows.Media.Color.FromArgb(255,13, 168, 39))
电话/微信:18049989370 QQ:857188287
您需要登录后才可以回帖 登录 | 立即注册

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

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

  • 微信小商店

  • 微信客服

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