柚子Nan--回归原点

Everything can be as easy as you like or as complex as you need.
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

用VSTO在Excel中写"俄罗斯方块"游戏 (续一)

Posted on 2004-09-24 11:36  柚子Nan  阅读(3294)  评论(5编辑  收藏  举报

接上文http://www.cnblogs.com/koffer/archive/2004/09/24/46170.aspx

 

新建一个简单的例子

这篇文章是针对第一次接触VSTO的,因此,我将用一个简单的VSTO例子来给你建立一个基本的概念VSTO是什么。在安装了VSTO以后,你可以看到新的模版已经增加到你的.net中了,如下图。

根据你选择的语言,你既可以创建C# 工程,也可以创建VB.NET工程。首先,我们选择C#工程,选择Excel工作簿创建一个C#工程,编译用作Excel文档的Dll

 

在创建了工程以后,点击运行或者Ctrl+F5来启动程序看看,并不像你熟悉的Windows窗体或者浏览器,它将打开一个Excel文档。因为我们还没有增加任何代码,所以只是打开一个空的文档,而且不做任何事情。如果你还没有保存它,你可以做任何你想做的事情。接下来,我们将修改这个文档,而且我们就可以在C#工程中使用了,现在请关闭这个文档,然后在调试状态下F5打开这个程序,Visual Studio.NET将会像上次一样打开一个Excel文档,这次,不要关闭这个文档,而是停止调试,Excel文档还是被关闭了。(Koffer注:我不知道作者想表达什么,莫非是如何关闭Excel?)

 

现在我们来为这个空的Excel文档增加一个按钮,到目前为止,这个过程很像在Windows窗体中增加一个按钮,因为你可能想到在Excel中增加一个按钮与在Windows窗体中一样的简单,但是非常不幸的告诉你VSTO并没有提供任何向导。代码本身与任何的C#工程一样,但是你必须手工的做所有的事情。我期待着下个版本能够提供这样一个向导。

 

执行UI

为了在Excel中增加一个按钮,你需要在工具栏上选择控件箱中的控件。(Koffer注:我第一次使用10分钟都没有找到这个工具箱在哪里,呵呵,所以我在这里多加了一张图片) 打开工具栏 .

正如你所看到的,你可以在Excel中增加各种控件,而且可以通过选择更多控件按钮,你可以从附加控件中选择你需要的控件。


现在,请像图中那样增加一个按钮,点击属性按钮,输入标题
Click,把控件的ID命名为:btnClick,当作完这些以后,关闭控件工具箱,和属性窗口,同时保存文档。

 

这次,让我们去C#工程中看看有什么变化(Koffer注:其实什么变化都没有,两个东西不会同步,如果可以,就so nice )我们需要对刚才在文档中添加的按钮增加事件处理。你可能已经知道了,我们需要使用FindControl 方法来找到Excel文档中的按钮btnClick,代码如下:

/// <summary>
        
/// 在当前工作簿中查找具有指定名称的控件。
        
/// </summary>
        
/// <param name='name'>要查找的控件的名称。</param>
        
/// <returns>
        
/// 返回指定的控件,如果未找到该控件则返回空。
        
/// </returns>

        object FindControl(string name )
        
{
            
return FindControl(name, (Excel.Worksheet) ThisWorkbook.ActiveSheet);
        }


        
/// <summary>
        
/// 返回指定工作簿中具有指定名称的控件。
        
/// </summary>
        
/// <param name='name'>要查找的控件的名称。</param>
        
/// <param name='sheet'>包含该控件的工作簿对象。</param>
        
/// <returns>
        
/// 返回指定的控件,如果未找到该控件则返回空。
        
/// </returns>

        object FindControl(string name, Excel.Worksheet sheet ) 
        
{
            Excel.OLEObject theObject;
            
try
            
{
                theObject 
= (Excel.OLEObject) sheet.OLEObjects(name);
                
return theObject.Object;
            }

            
catch
            
{
                
// 如果未找到该控件,则返回空。
            }

            
return null;
        }

 

这些框架代码都是.net自动生成的,有两个重载的FindControl 方法,两个参数的方法接受控件的ID和控件所在Sheet,另外一个方法只有一个参数,把当前的活动Sheet作为参数传递近来调用第一个FindControl 方法.FindControl 方法调用表单(sheet)OLE对象,并返回OLE对象。只有FindControl 方法返回的OLE对象与MSForm中的控件相关,例如,Command Button 对应CommandButtonText控件对应TextBox。而且你在代码中还可以看到,如果FindControl方法找不到任何控件,将会返回null值,所以需要一直检测FindControl 方法的返回值。如下:

MSForms.CommandButton btnClick = (MSForms.CommandButton) FindControl("btnClick");

然后,你可以如下增加事件处理函数,增加这个事件就像在Windows窗体中一样,只不过没有向导。

btnClick.Click += new Microsoft.Vbe.Interop.Forms.CommandButtonEvents_ClickEventHandler(btnClick_Click);

 

使用Visual Studio .NET的智能感知,你不需要输入这么长的代码,而是简单的使用<tab>键就可以自动帮你增加这行代码。Koffer注:发现作者的基本功很好,而且文笔也很不错!)现在,当按钮被点击的时候,我们让他设置文档中的Text。在作这个之前,然我们先了解一下Excel的结构:Excel可以被分成4个对象,应用程序、工作表、活动表、区域或者单元格。应用程序对象代表Excel应用程序本身,工作表代表用户工作的地方。活动表带表文档中的一页,而区域代表页中的几个或者一个单元格。因为这样的结构,每个元素都提供了自己的属性和事件。


如上图,区域代表页中的几个或者一个单元格。因为区域被称为
Excel的一个工作单元,为了输出字符串A1,我们必须为A1找到单元格,根据单元格的名称非常容易找到这个单元格。如下代码:把单元格的名称作为参数传入,就可以返回相应的区域。

private void btnClick_Click ( )

{

  Excel.Worksheet sheet 
= (Excel.Worksheet) ThisApplication.Sheets.get_Item(1);

  Excel.Range rng 
= sheet.get_Range ( "A1""A1" );

  rng.Value2 
= "Hello, Excel";

MessageBox.Show(
"Yes,you are ok!");  // Add by Koffer 用意何在?

}


 

当我写这个例子的时候,我就想设置这个Text的属性的名称应该就像Text这个名称一样,但是,我发现它却是Value2(Text属性是一个只读的属性),我想这将在下一个版本中更新。

 

为了测试如上的代码,运行程序,我们就可以在A1单元格中看到"Hello, Excel"的字样!

待续......