-
Excel-DNA项目只用1个文件实现Ribbon CustomUI和CustomTaskpane定制【VB.Net版】
Excel-DNA项目中的自定义功能区和自定义任务窗格需要用到各种命名空间、添加所需文件,才能实现。后来我发现可以把所有代码都写在Class1.vb这个默认文件中。
大家可以在Visual Studio中创建一个类库项目(.Net Framework),然后把默认的Class1.vb中的代码整体替换为下面我贴的这个代码。然后启动调试,就可以看到自定义功能区和任务窗格了。
1 Imports System.Runtime.InteropServices 2 Imports ExcelDna.Integration 3 Imports ExcelDna.Integration.CustomUI 4 Imports Excel = Microsoft.Office.Interop.Excel 5 <ComVisible(True)> 6 Public Class Class1 7 Inherits ExcelRibbon 8 Implements IExcelAddIn 9 Public R As IRibbonUI 10 Public Overrides Function GetCustomUI(RibbonID As String) As String 11 Dim xml As XElement 12 xml = <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="OnLoad"> 13 <ribbon startFromScratch="false"> 14 <tabs> 15 <tab id="Tab1" label="RibbonXmlEditor"> 16 <group id="Group1" label="Author:ryueifu"> 17 <button id="Button1" label="CTP" imageMso="C" onAction="Button1_Click"/> 18 <button id="Button2" label="UnLoad" imageMso="U" onAction="Button2_Click"/> 19 </group> 20 </tab> 21 </tabs> 22 </ribbon> 23 </customUI> 24 Return xml.ToString() 25 End Function 26 Public Sub OnLoad(ribbon As IRibbonUI) 27 R = ribbon 28 R.ActivateTab(ControlID:="Tab1") 29 End Sub 30 Public Sub Button1_Click(control As IRibbonControl) 31 ctp.Visible = Not ctp.Visible 32 End Sub 33 Public Sub Button2_Click(control As IRibbonControl) 34 Dim ThisAddin As Excel.AddIn 35 ThisAddin = ExcelDnaUtil.Application.AddIns.Item(Index:=My.Application.Info.AssemblyName) 36 ThisAddin.Installed = False 37 End Sub 38 39 Public Sub AutoOpen() Implements IExcelAddIn.AutoOpen 40 Module1.CreateCTP() 41 End Sub 42 43 Public Sub AutoClose() Implements IExcelAddIn.AutoClose 44 Module1.DisposeCTP() 45 End Sub 46 End Class 47 48 Public Module Module1 49 Public uc As System.Windows.Forms.UserControl 50 Public ctp As CustomTaskPane 51 Public Sub CreateCTP() 52 uc = New Windows.Forms.UserControl 53 ctp = CustomTaskPaneFactory.CreateCustomTaskPane(userControl:=uc, title:="CTP") 54 With ctp 55 .DockPosition = MsoCTPDockPosition.msoCTPDockPositionRight 56 .Visible = True 57 End With 58 End Sub 59 Public Sub DisposeCTP() 60 ctp.Dispose() 61 End Sub 62 End Module
出处:https://www.cnblogs.com/ryueifu-VBA/p/10122610.html
栏目列表
最新更新
nodejs爬虫
Python正则表达式完全指南
爬取豆瓣Top250图书数据
shp 地图文件批量添加字段
爬虫小试牛刀(爬取学校通知公告)
【python基础】函数-初识函数
【python基础】函数-返回值
HTTP请求:requests模块基础使用必知必会
Python初学者友好丨详解参数传递类型
如何有效管理爬虫流量?
SQL SERVER中递归
2个场景实例讲解GaussDB(DWS)基表统计信息估
常用的 SQL Server 关键字及其含义
动手分析SQL Server中的事务中使用的锁
openGauss内核分析:SQL by pass & 经典执行
一招教你如何高效批量导入与更新数据
天天写SQL,这些神奇的特性你知道吗?
openGauss内核分析:执行计划生成
[IM002]Navicat ODBC驱动器管理器 未发现数据
初入Sql Server 之 存储过程的简单使用
这是目前我见过最好的跨域解决方案!
减少回流与重绘
减少回流与重绘
如何使用KrpanoToolJS在浏览器切图
performance.now() 与 Date.now() 对比
一款纯 JS 实现的轻量化图片编辑器
关于开发 VS Code 插件遇到的 workbench.scm.
前端设计模式——观察者模式
前端设计模式——中介者模式
创建型-原型模式