本文介绍如何在Visual Basic中创建水平和垂直分隔线控件，并提供完整代码示例。通过简单步骤即可在项目中复用这些控件。
新建一个Visual Basic的 Windows 控件库。在项目中添加两个用户控件，一个为：LineH 水平分隔线 ，一个为:LineV垂直分隔线 ,代码如下。经过生成.dll,在其他项目引用，就可以使用。
分割线控件下载地址：http://download.csdn.net/source/1447072
在界面中使用分割线的例子：看日期下面的分割线。
=============水平分隔线 LineH.vb的完整代码=============
'
'''水平分隔线 LineH.vb的完整代码
Public
Class LineH
Class LineH
Inherits System.Windows.Forms.UserControl
" Windows 窗体设计器生成的代码 "#Region " Windows 窗体设计器生成的代码 " Public Sub New()Sub New() MyBase.New() ''''该调用是 Windows 窗体设计器所必需的。 InitializeComponent() ''''在 InitializeComponent() 调用之后添加任何初始化
End Sub ''''UserControl1 重写 dispose 以清理组件列表。 Protected Overloads Overrides Sub Dispose()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 窗体设计器修改此过程。 ''''不要使用代码编辑器修改它。 <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent() '''' ''''LineH '''' Me.Name = "LineH" Me.Size = New System.Drawing.Size(10, 2) End Sub#End Region Private Sub LineH_Paint()Sub LineH_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint Dim g As Graphics = e.Graphics Dim r As Rectangle = Me.ClientRectangle Dim darkPen As Pen = New Pen(SystemColors.ControlDark, 1) Dim LightPen As Pen = New Pen(Color.White) ''''用暗色调处理上边缘 g.DrawLine(darkPen, r.Left, r.Top, r.Right, r.Top) ''''用亮色调处理下边缘 g.DrawLine(LightPen, r.Left, r.Top + 1, r.Right, r.Top + 1) End Sub
End Class
=============垂直分隔线 LineV.vb的完整代码=============
'
'''垂直分隔线 LineV.vb的完整代码
Public
Class LineV
Class LineV Inherits System.Windows.Forms.UserControl" Windows 窗体设计器生成的代码 "#Region " Windows 窗体设计器生成的代码 " Public Sub New()Sub New() MyBase.New() ''''该调用是 Windows 窗体设计器所必需的。 InitializeComponent() ''''在 InitializeComponent() 调用之后添加任何初始化 End Sub ''''UserControl 重写 dispose 以清理组件列表。 Protected Overloads Overrides Sub Dispose()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 窗体设计器修改此过程。 ''''不要使用代码编辑器修改它。 <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent() '''' ''''LineV '''' Me.Name = "LineV" Me.Size = New System.Drawing.Size(2, 10) End Sub#End Region Private Sub LineV_Paint()Sub LineV_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint Dim g As Graphics = e.Graphics Dim r As Rectangle = Me.ClientRectangle Dim darkPen As Pen = New Pen(SystemColors.ControlDark, 1) Dim LightPen As Pen = New Pen(Color.White) ''''用暗色调处理左边缘 g.DrawLine(darkPen, r.Left, r.Top, r.Left, r.Bottom) ''''用亮色调处理右边缘 g.DrawLine(LightPen, r.Left + 1, r.Top, r.Left + 1, r.Bottom) End SubEnd Class
在win2000 + vs2003编译通过。
扫一扫
611
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
