任务一

我们需要一个如下图所示的插入符号功能组，当然你可以通过菜单设计器来一个一个设计按钮，但是本次任务不是学习设计按钮，而是学习如何通过代码来生成菜单组件。

既然要动态生成菜单组件，我们先介绍定义一个新的菜单组件的语法：

Dim 变量名 As 组件类型(组件名称)

例如：

Dim g As New RibbonMenu.Group("Symbol")

表示定义一个新的功能组，功能组的名称为"Symbol"。

本任务的设计步骤：

首先在菜单的系统事件Load中加入如下代码：

Dim s As String = "±×÷≌≈∽∝≠≮≯≤≥‰♂♀＄￥℃№☆★○●◎◇◆□■△▲"
Dim g As New RibbonMenu.Group("Symbol") '定义一个功能组，功能组的名称设为"Symbol"
g.Text = "符号" '设置功能组的标题
RibbonTabs("实战演练").Groups.Add(g) '将功能组添加到实战演练功能区
For i As Integer = 0 To s.Length - 1
    Dim b As New RibbonMenu.Button("Symbol" & i) '定义一个标准按钮
    b.Text= s.Chars(i) '设置按钮的标题
    g.Items.Add(b) '将按钮添加到功能组中
Next

然后在全局Click事件中加入如下代码：

'如果组件的名称是以Symbol开头
If e.Sender.Name.StartsWith("Symbol") Then
    '那么将组件的标题插入到选定单元格中
    CurrentTable.Value = e.Sender.Text
End If

这样符号功能组和按钮都是通过代码自动生成的，单击某个符号按钮，即可在当前单元格插入该符号。