开发环境基于VSTO：visual studio 2010，VB .Net，excel 2007，文档级别的定制程序。
需求是在sheet的左侧停靠System.Windows.Forms.TreeView控件，实现类似资源浏览器的效果，另外，tree节点使用自定义的图标，支持复选框。

首先准备好树节点的图标，使用visual studio 2010自带的图标可以省去很多麻烦（在安装目录\Common7\VS2010ImageLibrary）。我挑选了4个16x16大小的图标拷贝到vsto工程下的Resources目录下。通过Project->xxx Properties->Resources->AddResource->Add Existing File添加图标到工程中，代码中就可以用My.Resources.aaa的方式引用了(aaa为图标名称)。

接下来，在sheet初始化函数中完成图标与TreeView控件的初始化代码，如果TreeView控件的内容需要随sheet数据变化而刷新，还需要在sheet_change函数中添加代码。

Public Class Sheet1  

      

    Public WithEvents m_tree As New TreeView  

    Public m_imageList As New ImageList  

      

    Private Sub Sheet1_Startup() Handles Me.Startup  

      

        m_imageList.ColorDepth = ColorDepth.Depth32Bit  

        '第一个参数为ImageKey，类似Image名称的作用  

        m_imageList.Images.Add("cfg", My.Resources.book_notebook)  

        m_imageList.Images.Add("algo", My.Resources._075b_UpFolder_16x16_72)  

        m_imageList.Images.Add("scen", My.Resources.PlayHS)  

        m_imageList.Images.Add("warning", My.Resources._109_AllAnnotations_Warning_16x16_72)  

      

        Globals.ThisWorkbook.ActionsPane.Controls.Add(m_tree)  

        Application.CommandBars("Task Pane").Position = Microsoft.Office.Core.MsoBarPosition.msoBarLeft  

      

        m_tree.ImageList = m_imageList  

        m_tree.CheckBoxes = True  

        'tree的dock自动调整大小，需要在add到pane后再设置，否则不会生效  

        m_tree.Dock = DockStyle.Fill  

         

        With m_tree  

            .BeginUpdate()  

      

            .Nodes.Clear()  

            .Nodes.Add(New TreeNode(Me.Name))  

            .Nodes().ImageKey = "cfg"  

            .Nodes().SelectedImageKey = "cfg"  

              

            Dim idx As Integer = .Nodes.Add(New TreeNode("Node1"))  

            .Nodes(idx).ImageKey = "algo"  

            .Nodes(idx).SelectedImageKey = "algo"  

                      

            Dim idx2 As Integer = .Nodes(idx).Nodes.Add(New TreeNode("case1_5M"))  

            .Nodes(idx).Nodes(idx2).ImageKey = "scen"  

            .Nodes(idx).Nodes(idx2).SelectedImageKey = "scen"  

      

            .EndUpdate()  

        End With  

          

    End Sub  

      

    Private Sub Sheet1_Change(Target As Microsoft.Office.Interop.Excel.Range) Handles Me.Change 

        'do Tree Refresh  

    End Sub  

      

End Class 

效果图：

在工作表左侧中添加TreeView控件的更多相关文章

  1. TWaver初学实战——如何在TWaver属性表中添加日历控件？

    在日期输入框中添加日历控件,是一种非常流行和实用的做法.临渊羡鱼不如退而写代码,今天就看看在TWaver中是如何实现的.   资源准备   TWaver的在线使用文档中,就有TWaver Proper ...

  2. WinForm开发中针对TreeView控件改变当前选择节点的字体与颜色

    本文转载:http://www.cnblogs.com/umplatform/archive/2012/08/29/2660240.html 在B/S开发中,对TreeView控件要改变当前选中节点的 ...

  3. 如何在VS2010中添加ActiveX控件及使用方法

    方法1: 1.首先在在项目上面右击添加类,如下图所示: 2.点击添加ActiveX控件中的MFC类 3.找到需要添加的ActiveX类. 4.点击完成即可. 5.此时转到资源视图,打开如下视图.可能工 ...

  4. VC中添加web控件的方法

    在VC中使用WebBrowser控件的两方法 黄森堂(vcmfc)著 ClassWizard方式: 1.创建包装类:View->ClassWizard->Add Class->For ...

  5. VS工具箱中添加DevExpress控件

    关闭所有VS进程: ①使用控制台进入DevExpress安装目录: D:\DevExpress\Components\Tools\ ②添加DevExpress控件:ToolboxCreator.exe ...

  6. 在xib中添加手势控件后运行可能会出现的错误

    如果出现错误: // -[UITapGestureRecognizer superview]: unrecognized selector sent to instance 0x8e407a0 // ...

  7. 如何在vs2010中添加Picture控件

    1.新建项目,并在对话框控件中拖入picture控件,并做如下设置 2.在picture控件的属性栏需要进行如下修改:ID需要修改,不能为static ID是控件的唯一标识,PictureCtrl(p ...

  8. ASP.Net中的TreeView控件中对节点的上移和下移操作

    Web中的TreeView中的没有PreNode和NextNode属性. 但它的集合属性中有一个IndexOf属性,从而能够找到它的前一个节点知后一个节点. TreeView中要么只有一个根节点:要么 ...

  9. Android 动态背景的实现以及SurfaceView中添加EditText控件

    首先还是一贯作风,我们先看案例: \ 静态图看不出来效果,如果用过此软件(扎客)的同学们都知道,她的背景会动.怎么样,是不是觉得很时尚,起码比静态的要好(个人观点).其实实现起来并不复杂,这个如果让做 ...

随机推荐

  1. Eclipse下建立简单JNI程序实现返回double类型

    在Eclipse下生成时要注意,由于通常是在package里面添加类,而非像单独建立工程时独立添加,所以,在编译的时候,都需要进入包所在的文件夹, javac 包名.类名 这样的形式来编译,同理,ja ...

  2. GDI+ 双缓冲字体模糊

    只是记录自己的UI库,对其他估计没什么帮助 void CListCtrlUI::ReFillRect(HDC hdc){ if (!m_pImage) { Graphics gs(hdc); int ...

  3. angular2-scroll-module

    这篇介绍一下,写一个自己的angular2滚动监听插件 目录结构: /scrollModule: ztw-scroll.module.ts; scrollBind.directive.ts; scro ...

  4. centos下使用fdisk扩展分区容量大小

    硬盘空间为20G,VMware增加磁盘大小,需要再增加10G空间 扩展完后,重启系统,再次使用fdisk -l查看,会发现硬盘空间变大了: 重新创建分区,调整分区信息 本次实验主要对/dev/sda4 ...

  5. WPF中关于配置文件的读取

    在WPF中的配置文件的读取也是经常用到的一个操作,虽然很基础,但是也记录一下,以后忘记了可以看一看. 首先就是先新建一个Application Configuration Flie后缀名是.confi ...

  6. tsunami：一种基于UDP协议的快速传输

    一. 需求 最近在做数据库迁移,经常需要打包实例传输,传统scp感觉很慢. 二. 软件信息 1. 软件主页:http://tsunami-udp.sf.net/ 2. 软件安装:直接源码make &a ...

  7. JavaScript高级程序设计读后感（一）

    一.什么是JavaScript? 本质? 历史? 表单验证发展成为一门语言 局限性?

  8. LeetCode OJ：Maximum Subarray（子数组最大值）

    Find the contiguous subarray within an array (containing at least one number) which has the largest ...

  9. Django 之Ajax

    必备知识:json 什么是json 定义 JSON(JavaScript Object Notation, JS 对象标记) 是一种轻量级的数据交换格式. 它基于 ECMAScript (w3c制定的 ...

  10. [leetcode]_Binary Tree Level Order Traversal I && II

    题目:给定一棵二叉树,对其进行层次遍历,将遍历结果存入二维链表中. 思路:二叉树的层次遍历关键在于使用Queue. 复习: Queue的定义.LinkedList实现了Queue接口,因此可用Link ...