知识大全 TreeView 拖动的下横线

Posted 2022-07-17 知

篇首语：荣誉和财富，若没有聪明才智，是很不牢靠的财产。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 TreeView 拖动的下横线相关的知识，希望对你有一定的参考价值。

TreeView 拖动的下横线 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　对于treeview 节点的拖动网上有很多不想再多写了我把自己地址贴出来 x?ArticleID= &TypeID=

　　我实现的效果

　　我想说的是拖动的下横线

　　最初的想法是通过拖动绘图的方法这种方法可以实现不过要刷新特别多对于用gdi+绘图方法不知道

　　大家怎样处理让刷新减少一点的方法？请指教

　　由于gid+绘图刷新的问题我只好想到一些比较笨的方法用一个label来实现一条细线的效果

　　label 细线看起来不好看自己绘图的个控件得了下面是我绘图一个控件的主要代码( )

Imports System Drawing Imports System Drawing Drawing D Imports System Collections Imports System Collections Generic Imports System ComponentModel Imports System Drawing Imaging Public Class SplitLine Sub New() 此调用是 Windows 窗体设计器所必需的 InitializeComponent() 在 InitializeComponent() 调用之后添加任何初始化 SetStyle(ControlStyles AllPaintingInWmPaint True) SetStyle(ControlStyles ResizeRedraw True) SetStyle(ControlStyles UserPaint True) SetStyle(ControlStyles OptimizedDoubleBuffer True) End Sub Dim _color As Color = Color Red _ Public Property MyColor() As Color Get Return _color End Get Set(ByVal value As Color) _color = value End Set End Property Protected Overrides Sub OnPaint(ByVal e As System Windows Forms PaintEventArgs) MyBase OnPaint(e) Dim br As New SolidBrush(MyColor) Dim g As Graphics = e Graphics Dim path As New GraphicsPath Dim path As New GraphicsPath Dim path As New GraphicsPath path AddLine(New Point( ) New Point( )) path AddLine(New Point( ) New Point( )) path AddLine(New Point( ) New Point( )) path CloseAllFigures() path AddLine(New Point(Me Width ) New Point(Me Width )) path AddLine(New Point(Me Width ) New Point(Me Width )) path AddLine(New Point(Me Width ) New Point(Me Width )) path CloseAllFigures() path AddRectangle(New Rectangle( Me Width )) path CloseAllFigures() Dim pen As New Pen(Color Black ) g FillPath(br path) g FillPath(br path ) g FillPath(br path ) Dim re As New Region(path) re Union(path ) re Union(path ) Me Region = re End Sub End Class cha138/Article/program/net/201311/12515