treeview的问题，解决后200分相送，决不食言！

按你的要求做了一个简单的，关于ctrl键的你自已扩展一下，应该不难.using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;namespace DataManagement
{
/// <summary>
/// Form1 的摘要说明。
/// </summary>
public class Form1 : System.Windows.Forms.Form
{
private System.Windows.Forms.TreeView treeView1;
private ArrayList selectedNodesArr=new ArrayList ();
/// <summary>
/// 必需的设计器变量。
/// </summary>
private System.ComponentModel.Container components = null; public Form1()
{
//
// Windows 窗体设计器支持所必需的
//
InitializeComponent(); //
// TODO: 在 InitializeComponent 调用后添加任何构造函数代码
//
} /// <summary>
/// 清理所有正在使用的资源。
/// </summary>
protected override void Dispose( bool disposing )
{
if( disposing )
{
if(components != null)
{
components.Dispose();
}
}
base.Dispose( disposing );
} #region Windows 窗体设计器生成的代码
/// <summary>
/// 设计器支持所需的方法 - 不要使用代码编辑器修改
/// 此方法的内容。
/// </summary>
private void InitializeComponent()
{
this.treeView1 = new System.Windows.Forms.TreeView();
this.SuspendLayout();
//
// treeView1
//
this.treeView1.ImageIndex = -1;
this.treeView1.Location = new System.Drawing.Point(80, 48);
this.treeView1.Name = "treeView1";
this.treeView1.Nodes.AddRange(new System.Windows.Forms.TreeNode[] {
new System.Windows.Forms.TreeNode("所有项")});
this.treeView1.SelectedImageIndex = -1;
this.treeView1.Size = new System.Drawing.Size(168, 97);
this.treeView1.TabIndex = 0;
this.treeView1.MouseEnter += new System.EventHandler(this.treeView1_MouseEnter);
this.treeView1.AfterSelect += new System.Windows.Forms.TreeViewEventHandler(this.treeView1_AfterSelect);
this.treeView1.MouseLeave += new System.EventHandler(this.treeView1_MouseLeave);
//
// Form1
//
this.AutoScaleBaseSize = new System.Drawing.Size(6, 14);
this.ClientSize = new System.Drawing.Size(292, 273);
this.Controls.Add(this.treeView1);
this.Name = "Form1";
this.Text = "Form1";
this.Load += new System.EventHandler(this.Form1_Load);
this.ResumeLayout(false); }
#endregion
[STAThread]
static void Main()
{
Application.Run(new Form1());
} private void Form1_Load(object sender, System.EventArgs e)
{
for(int i=0;i<10;i++)
{ this.treeView1 .Nodes [0].Nodes .Add (new TreeNode ("SubNode"+i.ToString ()));
}
} private void treeView1_MouseEnter(object sender, System.EventArgs e)
{
selectedNodesArr.Clear ();
} private void treeView1_AfterSelect(object sender, System.Windows.Forms.TreeViewEventArgs e)
{
selectedNodesArr.Add (e.Node.Index);
} private void treeView1_MouseLeave(object sender, System.EventArgs e)
{
foreach(object item in selectedNodesArr)
{
treeView1.Nodes [0].Nodes [Convert.ToInt32(item)].BackColor =Color.Blue;
}
}
}
}

按你的要求做了一个测试,已经通过.
给分吧.
Public Class FrmTest
    Inherits System.Windows.Forms.Form#Region " Windows 窗体设计器生成的代码 "    Public Sub New()
        MyBase.New()        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()        '在 InitializeComponent() 调用之后添加任何初始化    End Sub    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.TreeView1 = New System.Windows.Forms.TreeView
        Me.SuspendLayout()
        '
        'TreeView1
        '
        Me.TreeView1.BackColor = System.Drawing.SystemColors.Window
        Me.TreeView1.ImageIndex = -1
        Me.TreeView1.Location = New System.Drawing.Point(8, 8)
        Me.TreeView1.Name = "TreeView1"
        Me.TreeView1.SelectedImageIndex = -1
        Me.TreeView1.Size = New System.Drawing.Size(384, 320)
        Me.TreeView1.TabIndex = 0
        '
        'FrmTest
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(400, 334)
        Me.Controls.Add(Me.TreeView1)
        Me.Name = "FrmTest"
        Me.Text = "FrmTest"
        Me.ResumeLayout(False)    End Sub#End Region    Private Sub FrmTest_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim node As New TreeNode("all")        Dim i As Int16
        For i = 0 To 10
            node.Nodes.Add(i.ToString)
        Next
        Me.TreeView1.Nodes.Add(node)
    End Sub    Dim beginPoint, endPoint As Point
    Dim SelectNodeIndex As New ArrayList
    Dim mouse_Down As Boolean = False
    Dim mouse_Drag As Boolean = False
    Dim IsFristSelect As Boolean = True    Private Sub TreeView1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseDown
        beginPoint = Me.TreeView1.PointToClient(Me.MousePosition)
        mouse_Down = True
        ClearSelectNode()
    End Sub    Private Sub TreeView1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseMove
        If mouse_Down Then
            mouse_Drag = True
        End If
    End Sub    Private Sub TreeView1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseUp
        If mouse_Down And mouse_Drag Then
            endPoint = Me.TreeView1.PointToClient(Me.MousePosition)
            SelectNode(GetRect(beginPoint, endPoint))
        End If
        mouse_Drag = False
        mouse_Down = False
    End Sub    Private Function GetRect(ByVal BeginP As Point, ByVal EndP As Point) As Drawing.Rectangle
        '根据鼠标按下时所在的位置和释放时的位置计算出矩形
        Dim f As New Drawing.Rectangle
        f.Width = Math.Abs(EndP.X - BeginP.X)
        f.Height = Math.Abs(EndP.Y - BeginP.Y)
        If BeginP.X < EndP.X Then
            f.X = BeginP.X
        Else
            f.X = EndP.X
        End If
        If BeginP.Y < EndP.Y Then
            f.Y = BeginP.Y
        Else
            f.Y = EndP.Y
        End If
        Return f
    End Function    Private Sub SelectNode(ByVal Rect As Rectangle)
        IsFristSelect = True
        Dim node As TreeNode
        For Each node In Me.TreeView1.Nodes
            SelectNode(Rect, node)
        Next
    End Sub    Private Sub SelectNode(ByVal Rect As Rectangle, ByVal node As TreeNode)
        Dim nd As TreeNode
        For Each nd In node.Nodes
            If nd.IsVisible Then
                If nd.Bounds.IntersectsWith(Rect) Then  '检查此节点是否在鼠标拖出的矩形之内
                    Me.SelectNodeIndex.Add(nd.Index)
                    If IsFristSelect Then
                        Me.TreeView1.SelectedNode = nd
                        IsFristSelect = False
                    Else
                        nd.BackColor = System.Drawing.SystemColors.Highlight
                    End If
                Else
                    nd.BackColor = System.Drawing.SystemColors.Window
                End If
                SelectNode(Rect, nd)
            End If
        Next
    End Sub    Private Sub ClearSelectNode()
        Dim node As TreeNode
        For Each node In Me.TreeView1.Nodes
            ClearSelectNode(node)
        Next
    End Sub    Private Sub ClearSelectNode(ByVal Node As TreeNode)
        Dim nd As TreeNode
        For Each nd In Node.Nodes
            If nd.IsVisible Then
                nd.BackColor = Color.FromName("Window")
            End If
        Next
    End Sub
End Class

改了一下,应该满足你的两大要求,看看合不合适吧.Public Class FrmTest
    Inherits System.Windows.Forms.Form#Region " Windows 窗体设计器生成的代码 "    Public Sub New()
        MyBase.New()        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()        '在 InitializeComponent() 调用之后添加任何初始化    End Sub    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.TreeView1 = New System.Windows.Forms.TreeView
        Me.SuspendLayout()
        '
        'TreeView1
        '
        Me.TreeView1.BackColor = System.Drawing.SystemColors.Window
        Me.TreeView1.ImageIndex = -1
        Me.TreeView1.Location = New System.Drawing.Point(8, 8)
        Me.TreeView1.Name = "TreeView1"
        Me.TreeView1.SelectedImageIndex = -1
        Me.TreeView1.Size = New System.Drawing.Size(384, 320)
        Me.TreeView1.TabIndex = 0
        '
        'FrmTest
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(400, 334)
        Me.Controls.Add(Me.TreeView1)
        Me.KeyPreview = True
        Me.Name = "FrmTest"
        Me.Text = "FrmTest"
        Me.ResumeLayout(False)    End Sub#End Region    Private Sub FrmTest_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim node As New TreeNode("all")
        Dim i As Int16
        For i = 0 To 10
            node.Nodes.Add(i.ToString)
        Next
        Me.TreeView1.Nodes.Add(node)
    End Sub    Dim beginPoint, endPoint As Point
    Dim SelectNodeIndex As New ArrayList
    Dim mouse_Down As Boolean = False
    Dim mouse_Drag As Boolean = False
    Dim IsFristSelect As Boolean = True
    Dim CtrlKeyDown As Boolean = False
    Dim NodeTemp As TreeNode    Private Sub TreeView1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseDown
        beginPoint = Me.TreeView1.PointToClient(Me.MousePosition)
        mouse_Down = True
        ClearSelectNode()
        If CtrlKeyDown Then
            NodeTemp = Me.TreeView1.SelectedNode
        End If
    End Sub    Private Sub TreeView1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseMove
        If mouse_Down Then
            mouse_Drag = True
        End If
    End Sub    Private Sub TreeView1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseUp
        If mouse_Drag Then
            endPoint = Me.TreeView1.PointToClient(Me.MousePosition)
            SelectNode(GetRect(beginPoint, endPoint))
        ElseIf CtrlKeyDown Then
            NodeTemp.BackColor = System.Drawing.SystemColors.Highlight
            Dim nd As TreeNode = Me.TreeView1.GetNodeAt(Me.TreeView1.PointToClient(Me.MousePosition))
            If Not nd Is Nothing Then
                nd.BackColor = System.Drawing.SystemColors.Highlight
            End If
        End If
        mouse_Drag = False
        mouse_Down = False
    End Sub    Private Function GetRect(ByVal BeginP As Point, ByVal EndP As Point) As Drawing.Rectangle
        '根据鼠标按下时所在的位置和释放时的位置计算出矩形
        Dim f As New Drawing.Rectangle
        f.Width = Math.Abs(EndP.X - BeginP.X)
        f.Height = Math.Abs(EndP.Y - BeginP.Y)
        If BeginP.X < EndP.X Then
            f.X = BeginP.X
        Else
            f.X = EndP.X
        End If
        If BeginP.Y < EndP.Y Then
            f.Y = BeginP.Y
        Else
            f.Y = EndP.Y
        End If
        Return f
    End Function    Private Sub SelectNode(ByVal Rect As Rectangle)
        IsFristSelect = True
        Dim node As TreeNode
        For Each node In Me.TreeView1.Nodes
            SelectNode(Rect, node)
        Next
    End Sub    Private Sub SelectNode(ByVal p As Point)    End Sub
    Private Sub SelectNode(ByVal Rect As Rectangle, ByVal node As TreeNode)
        Dim nd As TreeNode
        For Each nd In node.Nodes
            If nd.IsVisible Then
                If nd.Bounds.IntersectsWith(Rect) Then  '检查此节点是否在鼠标拖出的矩形之内
                    If IsFristSelect Then
                        Me.TreeView1.SelectedNode = nd
                        IsFristSelect = False
                    Else
                        nd.BackColor = System.Drawing.SystemColors.Highlight
                    End If
                Else
                    nd.BackColor = System.Drawing.SystemColors.Window
                End If
                SelectNode(Rect, nd)
            End If
        Next
    End Sub    Private Sub ClearSelectNode()
        If CtrlKeyDown = False Then
            Dim node As TreeNode
            For Each node In Me.TreeView1.Nodes
                ClearSelectNode(node)
            Next
        End If
    End Sub    Private Sub ClearSelectNode(ByVal Node As TreeNode)
        Dim nd As TreeNode
        For Each nd In Node.Nodes
            If nd.IsVisible And nd.IsSelected = False Then
                nd.BackColor = Color.FromName("Window")
            End If
        Next
    End Sub    Private Sub FrmTest_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.ControlKey Then
            CtrlKeyDown = True
        End If
    End Sub    Private Sub FrmTest_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
        If e.KeyCode = Keys.ControlKey Then
            CtrlKeyDown = False
        End If
    End Sub
End Class

不错，呵呵，不过鼠标拉动的时候并没显示已经选择什么，不是很完善，期待，
先另给royluok(roy lu)
100分可以不？

http://community.csdn.net/Expert/TopicView.asp?id=3824448

调试易

treeview的问题，解决后200分相送，决不食言！

解决方案 »