如何: 设置掩码属性和一个 Office 2003 CommandBar 按钮的图片属性

文章翻译 文章翻译
文章编号: 824017 - 查看本文应用于的产品
本文已归档。它按“原样”提供,并且不再更新。
展开全部 | 关闭全部

本文内容

概要

本分步指南介绍了如何从一个 Microsoft Office 系统为使用 Visual Studio 工具创建的托管的代码扩展设置 掩码 和 Microsoft Office 2003 CommandBar 控件的 图片 属性。 图片 属性允许您在 CommandBar 控件上设置所显示图像。掩码 属性可用于创建该图像具有透明背景色。


创建一个新的 Visual Basic.net Excel 工作簿项目

  1. 在 Microsoft Visual Studio.net 2003年中 文件 菜单上指向 新建,然后单击 项目

    新建项目 对话框。
    1. 项目类型 列表中展开 Microsoft Office 系统项目,然后单击 Visual Basic 项目
    2. 模板 列表中单击 Excel 工作簿
    3. 名称 框中键入 ExcelCommandbar,然后单击 确定

      将出现 Microsoft Office Project 向导。
    4. 单击 完成
  2. 项目 菜单上单击 添加引用

    添加引用 对话框。
    1. 单击 .net 选项卡。在组件列表中单击 System.Drawing.dll,然后单击 选择
    2. 在组件列表中单击 stdole,然后单击 选择
    3. 单击 确定
  3. 在 ThisWorkbook.vb 的顶部添加以下指令:
    Imports System.Reflection

向项目中添加图像资源

在这一节中,您将向项目添加两个嵌入的图像资源。一个资源是 CommandBar 控件的 图片 属性。掩码 属性是其他资源。

添加到项目的服务为 CommandBar 控件的图像的图像资源
  1. 项目 菜单上单击 添加组件。在 添加新项 对话框。
  2. 模板 列表单击 位图文件
  3. 命名图像 Picture.bmp,然后单击 打开

    打开进行编辑 位图编辑器 中的位图。
  4. 视图 菜单上单击 属性窗口。 将 宽度 属性和位图 高度 属性设置为 16
  5. 用红色,填充整个位图的区域,然后绘制位图的中心中的绿色圆圈。
  6. 在解决方案资源管理器中,用鼠标右键单击 Picture.bmp,然后单击 属性。 将 生成操作 属性改为 嵌入的资源
  7. 文件 菜单上单击 $ 保存 Picture.bmp
添加到项目的服务 CommandBar 控制映像的掩码为一个图像资源
  1. 在解决方案资源管理器中,单击 Picture.bmp
  2. 文件 菜单上单击 复制
  3. 文件 菜单上单击 粘贴

    名为 复制的 Picture.bmp 的新文件添加到项目中。
  4. 在解决方案资源管理器中,用鼠标右键单击 Mask.bmp,然后单击 重命名。将名称更改为 Mask.bmp
  5. 在解决方案资源管理器中,用鼠标右键单击 Mask.bmp,然后单击 打开。更改圆颜色更改为黑色与白色图像背景颜色。

    注意当与掩码图片添加到 CommandBar 控制时,掩码的黑色的区域是可见的。白色的区域是透明的。
  6. 文件 菜单上单击 $ 保存 Mask.bmp

添加代码以创建一个 CommandBar 和 CommandBar 控件

在这一节中添加项目的加载流中嵌入的图像资源,将生成该 CommandBar 和 CommandBar 控件,然后设置 图片 属性和 $ CommandBar 控件的 掩码 属性的代码。
  1. 将下面的类级别变量添加到 OfficeCodeBehind 类:
    WithEvents CBarButton As Office.CommandBarButton
  2. 将下面的代码添加到 ThisWorkbook_Open 事件处理程序中 ThisWorkbook.vb:
        'Get a reference to this assembly.
        Dim ThisAssembly As [Assembly]
        ThisAssembly = [Assembly].GetExecutingAssembly()
    
        'Load the Picture and the Mask image resources.
        Dim imgStreamPic As System.IO.Stream, imgStreamMask As System.IO.Stream
        imgStreamPic = ThisAssembly.GetManifestResourceStream("ExcelCommandBar.Picture.bmp")
        imgStreamMask = ThisAssembly.GetManifestResourceStream("ExcelCommandBar.Mask.bmp")
    
        'Obtain references to IPictureDisp for both images.
        Dim ax As New MyAxHost
        Dim Pic As stdole.IPictureDisp, Mask As stdole.IPictureDisp
        Pic = ax.IPictureDisp(Drawing.Image.FromStream(imgStreamPic))
        Mask = ax.IPictureDisp(Drawing.Image.FromStream(imgStreamMask))
    
        'Add a temporary CommandBar and a CommandBar button.
        Dim CBar As Office.CommandBar
        CBar = ThisApplication.CommandBars.Add("My CommandBar", , , True)
        CBarButton = CType(CBar.Controls.Add(Office.MsoControlType.msoControlButton), _
                    Office.CommandBarButton)
        CBarButton.Style = Office.MsoButtonStyle.msoButtonIconAndCaption
        CBarButton.Caption = "My Button"
        CBarButton.Tag = "My_Button"
        CBarButton.Picture = Pic
        CBarButton.Mask = Mask
        CBar.Visible = True
    
    
  3. 添加下面的类 MyAxHost,ThisWorkbook_Open 事件处理程序中 ThisWorkbook.vb 后立即:
    Public Class MyAxHost
    
        Inherits System.Windows.Forms.AxHost
    
        Public Sub New()
            MyBase.New("59EE46BA-677D-4d20-BF10-8D8067CB8B33")
        End Sub
    
        Public Shared Function IPictureDisp(ByVal Image As System.Drawing.Image) As stdole.IPictureDisp
            IPictureDisp = CType(AxHost.GetIPictureDispFromPicture(Image), stdole.IPictureDisp)
        End Function
    
    End Class
  4. 将下面的函数添加到 OfficeCodeBehind 类:
    Private Sub CBarButton_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton,  _
        ByRef CancelDefault As Boolean) Handles CBarButton.Click
        MessageBox.Show("You clicked My Button!")
    End Sub
  5. 按 F5 生成并运行该项目。

    您会注意到在 Excel 中打开 ExcelCommandBar.xls。将打开工作簿时将显示 我的 CommandBar我的 CommandBar 都有一个具有透明图像的 命令按钮 控件。


参考

有关更多的信息请单击下面的文章编号,以查看 Microsoft 知识库中相应的文章:
286460为 Office XP CommandBars HOWTO: 设置掩码和图片属性

属性

文章编号: 824017 - 最后修改: 2014年2月27日 - 修订: 2.4
这篇文章中的信息适用于:
  • Microsoft Office Excel 2003
  • Microsoft Office Word 2003
  • Microsoft Visual Studio Tools for the Microsoft Office System
关键字:?
kbnosurvey kbarchive kbmt kbhowtomaster kbpia KB824017 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 824017
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com