完美Excel

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" 
          onLoad="Ribbon_Load"
          loadImage="GetImage">

    Public Function GetImage(ByVal ImageName As String) As Bitmap
        ' 包含传递到Office的位图
        Dim ThisBitmap As Bitmap = New Bitmap(20, 20)
 
        ' 发现图像名和相应的资源
        Select Case ImageName
            Case "Colorblk2"
                ThisBitmap = New Bitmap(My.Resources.Colorblk2)
            Case "TIME"
                ThisBitmap = New Bitmap(My.Resources.TIME.ToBitmap())
        End Select
 
        ' 返回简单的位图
        Return ThisBitmap
    End Function

    Public Sub Ribbon_Load(ByVal ribbonUI As Office.IRibbonUI)
        '保存Ribbon引用
        Me.ribbon = ribbonUI
        '初始化下划线状态
        UnderlineState = False
        '显示装载消息
        MessageBox.Show("功能区装载")
    End Sub

      <tab id="myTab"
           label="我的选项卡">
        <group id="MyGroup"
               label="我的组">
          <button id="myButton"
                  label="我的按钮"
                  image="Colorblk2"
                  size="large"
                  onAction="MyButton_ClickHandler"/>
        </group>
      </tab>

    Public Sub myButton_ClickHandler(ByVal Control As Office.IRibbonControl)
        ' 显示一条简单的消息
        MessageBox.Show("我的按钮被单击")
    End Sub

      <tab idMso="TabHome">
        <group id="BehaviorChange"
               label="操作"
               insertAfterMso="GroupFont">
          <toggleButton id="StopUnderline"
                        label="中止下划线功能"
                        onAction="StopUnderline_ClickHandler"
                        getPressed="StopUnderline_GetPressed"
                        size="large"
                        imageMso="ShapeFillColorPicker"
                        insertBeforeMso="UnderlineGallery"/>  
        </group>
      </tab>

    Public Sub StopUnderline_ClickHandler(ByVal Control As Office.IRibbonControl, ByVal Pressed As Boolean)
        ' 存储当前按钮的状态
        UnderlineState = Pressed
 
        ' 在屏幕上显示正确的状态
        ribbon.InvalidateControl(Control.Id)
    End Sub
 
    Public Function StopUnderline_GetPressed(ByVal Control As Office.IRibbonControl) As Boolean
        ' 返回当前的按下状态
        Return UnderlineState
    End Function

  <commands>
    <command idMso="Underline"
             onAction="myUnderline"/>
    <command idMso="FileSaveAsExcel97_2003"
             onAction="FileSaveAs_ClickHandler"/>
  </commands>

    Public Sub myUnderline(ByVal Control As Office.IRibbonControl, ByVal Pressed As Boolean, ByRef CancelDefault As Boolean)
        ' 检查下划线控件的状态
        If (UnderlineState) Then
            ' 显示错误消息
            MessageBox.Show("没有允许操作的下划线")
 
            ' 设置控件使之不能被按下
            Pressed = False
 
            ' 在屏幕上显示正确的状态
            ribbon.InvalidateControl(Control.Id)
 
            ' 告诉Office不要执行默认的操作
            CancelDefault = True
        Else
            ' 否则,告诉Office执行默认的操作
            CancelDefault = False
        End If
    End Sub
 
    Public Sub FileSaveAs_ClickHandler(ByVal Control As Office.IRibbonControl, ByRef CancelDefault As Boolean)
        ' 包含用户的响应
        Dim Response As DialogResult
 
        ' 要求用户保存文件
        Response = _
           MessageBox.Show("保存为老版本. 确定吗?", _
                           "老文件版本警告", _
                           MessageBoxButtons.YesNo)
 
        ' 检查响应
        If Response = DialogResult.Yes Then
            CancelDefault = False
        Else
            CancelDefault = True
        End If
    End Sub

    <officeMenu>
      <menu idMso="FilePrepareMenu">
        <button id="NewPrepButton"
                label="我的准备按钮"
                description="Prepare Time"
                image="TIME"
                insertBeforeMso="FileProperties"
                onAction="NewPrepButton_ClickHandler"/>
      </menu>
      <splitButton idMso="FileSaveAsMenu">
        <menu idMso="FileSaveAsMenu">
          <button id="SayHello"
                  label="问好"
                  description="This button says hello!"
                  image="Colorblk2"
                  onAction="SayHello_ClickHandler"/>
        </menu>
      </splitButton>
    </officeMenu>

    Public Sub NewPrepButton_ClickHandler(ByVal Control As Office.IRibbonControl)
        ' 显示一条简单的消息
        MessageBox.Show("准备好了吗")
    End Sub
 
    Public Sub SayHello_ClickHandler(ByVal Control As Office.IRibbonControl)
        ' 显示一条简单的消息
        MessageBox.Show("Hello")
    End Sub

    <ribbon startFromScratch="true">