用VB.NET定制Windows控件

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

文介绍了如何定制.NET中的Windows控件,并给出定制带图形的菜单和可以折行显示的下拉列表控件的源代码

作者：WL 来源：论坛 2007年11月9日

关键字：

3 设计能自动折行的下拉列表

　　.NET中,ComboBox控件实现下拉列表,在该控件中每项占用一行,如果有选择项的内容长度超过下拉列表的宽度,则超过部分不显示,这样就可能造成用户所见的内容不完全而无法选择的情况.我们对该控件进行改进,当一行显示不完全某项时进行折行显示,为了防止用户将折行的项误认为是两个选择项,我们将不同的选项用相互间隔的颜色区分.类代码如下:

Public Class myComboBox
Inherits System.Windows.Forms.ComboBox

#Region " Windows 窗体设计器生成的代码 "
…
#End Region
'下面代码用不同的颜色显示选项
Private Sub myComboBox_DrawItem(ByVal sender As Object, ByVal e As _ System.Windows.Forms.DrawItemEventArgs) Handles MyBase.DrawItem
If e.Index < 0 Then Exit Sub
Dim txtColor As SolidBrush
Dim bgColor As SolidBrush
Dim txtfnt As Font
txtColor = New SolidBrush(Color.Black)
If e.Index / 2 = CInt(e.Index / 2) Then
bgColor = New SolidBrush(Color.White)
Else
bgColor = New SolidBrush(Color.LightYellow)
End If
If e.State And DrawItemState.Selected Then
txtColor = New SolidBrush(Color.Blue)
End If
e.Graphics.FillRectangle(bgColor, e.Bounds)
e.Graphics.DrawRectangle(Pens.Black, e.Bounds)
Dim r As New RectangleF(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height)
e.Graphics.DrawString(Items(e.Index).ToString, Me.Font, txtColor, r)
End Sub
'下面代码计算每行选项需要的尺寸
Private Sub myComboBox_MeasureItem(ByVal sender As Object, ByVal e As _ System.Windows.Forms.MeasureItemEventArgs) Handles MyBase.MeasureItem
Dim lsize As SizeF
lsize = e.Graphics.MeasureString(Items(e.Index).ToString, Me.Font, New SizeF(Me.Width, 200))
e.ItemHeight = lsize.Height
e.ItemWidth = lsize.Width
End Sub
End Class

　　4 使用定制的控件

　　上面两个类编译后生成DLL文件,有了DLL文件就可以在你的项目中使用上述定制控件。打开Customize Toolbox,然后单击.NET Framework Components标签,通过Browse找到DLL文件,然后选择控件名前面的复选框,两个控件就出现在你的工具箱。

　　使用myComboBox时,和普通控件一样使用,不过要将其DrawMode属性设置为OwnerDrawVariable,否则MeasureItem和DrawItem事件代码不执行，执行效果如图1。

图1 可折行显示的下拉列表效果图2 带图形的菜单效果

　　使用myMenuItem时要注意,在窗体上建立菜单时,系统自动创建MainMenu,而菜单项默认为MenuItem,要使用myMenuItem必须手工改写,将下列代码: