分享
 
 
 

演练:在Excel中建立自定义菜单项

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

演练:在Excel中建立自定义菜单项

Brian A. Randell

MCW Technologies, LLC

September 2003

Applies to:

Microsoft® Visual Studio® Tools for the Microsoft Office System

Microsoft Office Excel 2003

Microsoft Visual Studio .NET 2003

概述:Office CommandBar对象提供了增加菜单项和工具条按钮代码的途径。在这篇演练中,你将建立自定义菜单项目下的菜单条,并且增加代码来响应Office菜单。

内容:

介绍

建立菜单和工具条项目是微软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的菜单显示在帮助菜单右边。如图一所示:

图一:有着自定义菜单栏项目的Excel

建立菜单项目

有了合适的自定义菜单栏,你就可以加入新的菜单中了。菜单项目表示为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 Microsoft.Office.Core. _

CommandBarButtonEvents_ClickEventHandler(MenuItem_Click);

提示:如果你输入完代码的第一行(直到+=),Visual Studio .NET将提示你按TAB键。代码编辑器将为你插入此行的剩余代码。这个自动完成的新特点使你更容易的完成事件处理程序。

测试本应用

现在你可以测试自己建立的自定义菜单项了。

测试本应用

1. 选择文件菜单的保存所有文件来保存整个项目。

2. 按F5运行这个项目,装入Excel和你的工作簿。

3. 在警告框中出现对你当前工作簿的描述。

结论

微软Office应用的一个核心特点是建立菜单和工具栏的能力。Office CommandBar对象提供了一种方法来自定义菜单和工具栏。虽然本次演练示范了你怎样增加代码来响应Excel菜单的点击,你将会发现在Word中的行为与此类似。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有