江西广告网

标题: 演练：在Excel中建立自定义菜单项 [打印本页]

作者: 蓝信子 时间: 2008-12-24 11:59
标题: 演练：在Excel中建立自定义菜单项
　　介绍　　建立菜单和工具条项目是微软Office的一个核心特点，虽然这次试验是示范在微软Office Excel 2003中使用这些项目，但是这些操作在Office Word中是类似的。（不同之处在于在Word中菜单名是Menu Bar，而在Excel中叫Worksheet Menu Bar。）你将在Excel主菜单中建立菜单项。然后，你增加此菜单项。最后，你增加Click事件代码来执行自定义代码。　　　　提示：Office菜单和工具条的对象模块定义在Office.dll中，当你给微软Office System项目建立了一个新的Visual Studio Tools时，微软Visual Studio® .NET自动包含到此模块的引用。　　　　先决条件 　　要完成此演练，下列软件和组件必须安装：　　　　• Microsoft Visual Studio .NET 2003 or Microsoft Visual Basic® .NET Standard 2003 　　　　• Microsoft Visual Studio Tools for the Microsoft Office System 　　　　•Microsoft Office Professional Edition 2003 　　　　提示：假如你是Visual Basic .Net编程者，你需要设置Option Strict为On（或者你在每一个模块中增加Option Strict声明）。虽然这不是必须的，但是这可以保证你不会执行不安全的类型转换。在以后的时间里，利用此选项的好处将远远大于增加代码的困难。　　　　开始　　你将通过建立一个新的Visual Studio .NET的Excel项目来开始。　　　　建立项目 　　使用微软Office System的Visual Studio Tool建立一个新的Excel工作簿项目（在Visual Basic .NET或是C＃中）。　　　　建立一个Excel工作簿项目 　　1.开始Visual Studio .NET，在文件菜单上，指向新建，点击项目。　　　　2.在项目类型面板上，扩展微软Office System项目，接着选择Visual Basic 项目或Visual c＃项目。　　　　3.在模板面板中选择Excel工作簿。　　　　4.起名为ExcelCommandBars，接着存储在当地硬盘。　　　　5.在微软Office项目向导中接受缺省值，点击完成。　　　　Visual Studio .NET为你在代码编辑器中打开ThisWorkbook.vb或是ThisWorkboo.cs文件。　　　　建立菜单栏项目 　　在Excel主菜单条上建立一个菜单栏项目需要你使用Add方法增加一个CommandBarControl。　　　　在Excel中建立菜单栏项目　　　　1.在已存变量ThisApplication和ThisWorkbook下面增加下列变量：　　　　' Visual Basic 　　　　Private MainMenuBar As Office.CommandBar 　　　　Private MenuBarItem As Office.CommandBarControl 　　　　Private WithEvents MenuItem As Office.CommandBarButton // C# 　　　　private Office.CommandBar MainMenuBar = null; 　　　　private Office.CommandBarControl MenuBarItem = null; private Office.CommandBarButton MenuItem = null; 　　　　2.在OfficeCodeBehing类中增加下列程序（通过项目模板建立），这段程序初始化了先前声明的MainMenuBar和MenuItemBar对象。　　　　' Visual Basic Private 　　　　Sub InitMenuBarItems(ByVal Caption As String) 　　　　Try MainMenuBar = ThisApplication.CommandBars( _ "Worksheet Menu Bar") 　　　　MenuBarItem = MainMenuBar.Controls.Add( _ Office.MsoControlType.msoControlPopup, Temporary:=True) MenuBarItem.Caption = Caption Catch ex As Exception MessageBox.Show(ex.Message, _ 　　　　ex.Source, MessageBoxButtons.OK, MessageBoxIcon.Error) 　　　　End Try 　　　　End Sub 　　　　// C# 　　　　private void InitMenuBarItems(string Caption) 　　　　{ try { MainMenuBar = ThisApplication.CommandBars["Worksheet Menu Bar"]; MenuBarItem = MainMenuBar.Controls.Add( Office.MsoControlType.msoControlPopup, Type.Missing, Type.Missing, Type.Missing, true); MenuBarItem.Caption = Caption; } 　　　　catch (Exception ex) { MessageBox.Show(ex.Message, ex.Source, MessageBoxButtons.OK, MessageBoxIcon.Error); } } 　　　　3.增加下列代码到已存在的ThisWorkbook_Open程序，这段代码调用你刚才建立的InitMenuBarItems程序。　　　　' Visual Basic 　　　　InitMenuBarItems("&Custom Code") 　　　　// C# 　　　　InitMenuBarItems("&Custom Code"); 　　　　4.选择文件菜单上的保存所有文件来保存整个方案。　　　　5.按F5运行项目，装入Excel和你的工作簿。　　　　6.在Excel中，查看菜单栏项目标签写着Custom Code的菜单显示在帮助菜单右边。如图一所示：　　　　　　建立菜单项目 　　有了合适的自定义菜单栏，你就可以加入新的菜单中了。菜单项目表示为CommandBarControl对象，你将使用先前建立的菜单栏项目Controls集合的Add方法来建立一个新的CommandBarControl实例。　　　　1.增加下列程序到OfficeCodeBehind类中，这段程序建立了CommandBarControl并且设置其标题：　　　　' Visual Basic 　　　　Private Function CreateButton( _ 　　　　ByVal Parent As Office.CommandBarPopup, _ 　　　　ByVal Caption As String) As Office.CommandBarButton 　　　　Try 　　　　Dim cbc As Office.CommandBarControl 　　　　cbc = Parent.Controls.Add( _ Office.MsoControlType.msoControlButton, Temporary:=True) 　　　　cbc.Caption = Caption 　　　　cbc.Visible = True 　　　　Return DirectCast(cbc, Office.CommandBarButton) 　　　　Catch ex As Exception 　　　　MessageBox.Show(ex.Message, _ 　　　　ex.Source, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try 　　　　End Function 　　　　// C# 　　　　private Office.CommandBarButton CreateButton( Office.CommandBarPopup Parent, string Caption) 　　　　{ Office.CommandBarControl cbc = null; 　　　　try { cbc = Parent.Controls.Add( Office.MsoControlType.msoControlButton, Type.Missing, Type.Missing, Type.Missing, true); cbc.Caption = Caption; cbc.Visible = true; } 　　　　catch (Exception ex) 　　　　{ MessageBox.Show(ex.Message, ex.Source, MessageBoxButtons.OK, MessageBoxIcon.Error); } 　　　　return (Office.CommandBarButton) cbc; } 　　　　2.增加下列代码到ThisWorkbook_Open程序中，下列代码调用了InitMenuBarItems程序：　　　　' Visual Basic 　　　　MenuItem = CreateButton( _ 　　　　DirectCast(MenuBarItem, Office.CommandBarPopup), _ "Run Demo Code") 　　　　// C# 　　　　MenuItem = CreateButton( (Office.CommandBarPopup)MenuBarItem, "Run Demo Code"); 　　　　3.选择文件菜单上的保存所有文件来保存整个方案。　　　　4.按F5运行此项目，装入Excel和你的工作簿。　　　　5.在Excel中点击自定义的顶级菜单，查看Run Demo Code菜单项。如下图二所示：　　　　拦截菜单项的点击事件 　　为了完成本次演练，你需要增加一个事件来处理自定义菜单项被点击之后的响应。　　　　（只用在Visual Basic）　　　　拦截菜单项点击事件　　　　在Visual Basic .NET中完成下列步骤增加菜单项被点击的事件处理程序。　　　　为自定义菜单项增加事件处理（Visual Basic）　　　　1.在代码编辑器的左上角的Class Name下拉列表中选择MenuItem。　　　　2.在代码编辑器的右上角的Method Name下拉列表中选择Click。　　　　3.修改MenuItem_Click程序，增加下列代码：　　　　' Visual Basic 　　　　MessageBox.Show(String.Format( _ 　　　　"You just clicked the button labeled '{0}'.{1}" & _ 　　　　"The name of your workbook is '{2}'.", _ 　　　　Ctrl.Caption, Environment.NewLine, ThisWorkbook.Name), _ "MenuItem_Click", MessageBoxButtons.OK, _ MessageBoxIcon.Information) 　　　　4.选择文件菜单中的保存所有文件来保存整个解决方案。　　　　5.按F5运行这个项目，装入Excel和你的工作簿。　　　　6.在Excel中，点击Custom Code菜单，接着选择Run Demo Code。　　　　一个警告框出现，显示当前工作簿。　　　　（C＃）拦截点击菜单项目事件　　　　在Visual C＃中完成下列步骤来增加点击自定义菜单栏项目的事件处理。　　　　为自定义菜单项目增加事件处理（C＃）　　　　1.增加下列程序到OfficeCodeBehind类中：　　　　// C# private 　　　　void MenuItem_Click( Office.CommandBarButton Ctrl, ref Boolean CancelDefault) { MessageBox.Show(String.Format( "You just clicked the button labeled '{0}'.\n" "The name of your workbook is '{1}'.", Ctrl.Caption, ThisWorkbook.Name), "MenuItem_Click", MessageBoxButtons.OK, MessageBoxIcon.Information); } 　　　　2.修改ThisWorkbook_Open程序，增加下列代码：　　　　// C# 　　　　MenuItem.Click = new Microsof <

欢迎光临江西广告网 (http://bbs.jxadw.com/)