VB.net编程实现Wince下的图片按钮自定义控件

最新推荐文章于 2023-11-26 08:25:27 发布
最新推荐文章于 2023-11-26 08:25:27 发布
阅读量175 收藏
点赞数
文章标签： 操作系统
本文深入探讨了图像处理技术与AR特效在当前应用领域的核心内容，从OpenGL、OpenCV、OpenGL ES等关键技术出发，详细介绍了图像色彩空间、视频编解码算法、音频编解码算法、OpenCV图像处理等基础概念，并进一步阐述了如何运用这些技术实现美颜直播特效、视频剪辑、人脸标定AR、人像分割抠像、人体姿态估计等高级功能。此外，文章还涵盖了图像处理与AR特效在游戏、直播流媒体、音视频直播等场景的实际应用案例，为读者提供了一站式的解决方案和技术指导。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

Imports System.Reflection
Imports System.Drawing.Imaging
Public Class PictureButtonToolbar
Inherits System.Windows.Forms.UserControl
Public Enum Layout
Left = 0
right = 1
up = 2
down = 3
middle = 4
End Enum
'字段
Private backgroundImgColor As Color = Me.BackColor
Private pressedImgColor As Color = Color.SteelBlue
Private pressed As Boolean = False
Private TxtImgLayout As Layout = 1


'属性
Private Ctext As String = "按钮文本按钮文本"
Private Imagelist1 As New ImageList
Public ImageHeight As Integer = 32
Public ImageWidth As Integer = 32
'当作为工具栏最终重新设置其大小时的变量
Public BtnWidth As Integer = 0
Public BtnHeight As Integer = 0
Public Property setImageHeight() As Integer
Get
Return Me.ImageHeight
End Get
Set(ByVal Value As Integer)
Me.ImageHeight = Value
End Set
End Property


Public Property SetTag() As Integer
Get
Return MyBase.Tag
End Get
Set(ByVal value As Integer)
MyBase.Tag = value
End Set
End Property
'单击按钮后启动的外接程序（平台可以任意添加EXE了）
Public BtnAppName As String = ""
Public Property SetAppName() As String
Get
Return Me.BtnAppName
End Get
Set(ByVal value As String)
Me.BtnAppName = value
End Set
End Property


Public Property setImageWidth() As Integer
Get
Return Me.ImageWidth
End Get
Set(ByVal Value As Integer)
Me.ImageWidth = Value
End Set
End Property




'平时的背景色
Public Property backgroundImgColorValue() As Color
Get
Return Me.backgroundImgColor
End Get
Set(ByVal Value As Color)
Me.backgroundImgColor = Value
End Set
End Property




'鼠标按下后的背景色
Public Property PressedImageColorValue() As Color
Get
Return Me.pressedImgColor
End Get
Set(ByVal Value As Color)
Me.pressedImgColor = Value
End Set
End Property
'显示的文本
Public Property Caption() As String
Get
Return Me.Ctext
End Get
Set(ByVal Value As String)
Me.Ctext = Value
End Set
End Property
'文字的布局
Public Property TextImageLayout() As Layout
Get
Return Me.TxtImgLayout
End Get
Set(ByVal Value As Layout)
Me.TxtImgLayout = Value
End Set
End Property
'控件大小是否自动调整
Private ControlSizeSet As Boolean = False
Public Property ControlSizeSetF() As Boolean
Get
Return ControlSizeSet
End Get
Set(ByVal value As Boolean)
Me.ControlSizeSet = value
End Set
End Property
Public Sub AddBmp(ByVal bmp As Image)
Imagelist1.ImageSize = New System.Drawing.Size(ImageWidth, ImageHeight)
Me.Imagelist1.Images.Add(bmp)
End Sub


'绘制表面
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)


Dim gp As Graphics = e.Graphics
Imagelist1.ImageSize = New System.Drawing.Size(ImageWidth, ImageHeight)
'控件大小不自动调整
If ControlSizeSet = False Then


Select Case Imagelist1.Images.Count
Case 0 '画背景
Dim backgroundImg As Image = MakeBitmap(backgroundImgColor, Me.Width, Me.Height)
Dim pressedImg As Image = MakeBitmap(pressedImgColor, Me.Width, Me.Height)
If Me.pressed AndAlso (pressedImg IsNot Nothing) Then
gp.DrawImage(pressedImg, 0, 0)
Else
gp.DrawImage(backgroundImg, 0, 0)
End If
backgroundImg.Dispose()
pressedImg.Dispose()
If Me.Ctext.Length > 0 Then
Dim size As SizeF = e.Graphics.MeasureString(Me.Ctext, Me.Font)
e.Graphics.DrawString(Me.Ctext, Me.Font, New SolidBrush(Me.ForeColor), (Me.ClientSize.Width - size.Width) / 2, (Me.ClientSize.Height - size.Height) / 2)
End If
Case 1 '画图像


Dim vsizef As SizeF


If Me.pressed Then
'文本颜色取按下的颜色
Dim cbrush As New System.Drawing.SolidBrush(Me.pressedImgColor)
Select Case Me.TxtImgLayout
Case Layout.Left
vsizef = gp.MeasureString(Ctext, Me.Font)


'虽然预留了8个像素 但是只平均8个像素
gp.DrawString(Ctext, Me.Font, cbrush, 4, (Me.ClientSize.Height - vsizef.Height) / 2)
'图像的X坐标是vsizef.Width + 8


Dim imgRect As Rectangle = New Rectangle(vsizef.Width + 8, (Me.ClientSize.Height - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing


Case Layout.right


vsizef = gp.MeasureString(Ctext, Me.Font)


'图像的Y坐标是(cHeight - ImageHeight) / 2
Dim imgRect As Rectangle = New Rectangle(0, (Me.ClientSize.Height - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing


'虽然预留了8个像素 但是只平均6个像素
gp.DrawString(Ctext, Me.Font, cbrush, Me.ImageWidth + 3, (Me.ClientSize.Height - vsizef.Height) / 2)
Case Layout.up
vsizef = gp.MeasureString(Ctext, Me.Font)




'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.ClientSize.Width - vsizef.Width) / 2, 2)


'图像的Y坐标是vsizef.Height + 4
Dim imgRect As Rectangle = New Rectangle((Me.ClientSize.Width - ImageWidth) / 2 - 1, vsizef.Height + 4, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing


Case Layout.down


vsizef = gp.MeasureString(Ctext, Me.Font)


'图像的X坐标是(Me.Width - ImageWidth) / 2 - 1
Dim imgRect As Rectangle = New Rectangle((Me.ClientSize.Width - ImageWidth) / 2 - 1, 0, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing


'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.ClientSize.Width - vsizef.Width) / 2 - 1, ImageHeight + 2)




Case Layout.middle
vsizef = gp.MeasureString(Ctext, Me.Font)




'图像的X坐标是(Me.Width - ImageWidth) / 2 - 1
Dim imgRect As Rectangle = New Rectangle((Me.ClientSize.Width - ImageWidth) / 2, (Me.ClientSize.Height - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.ClientSize.Width - vsizef.Width) / 2, (Me.ClientSize.Height - vsizef.Height) / 2)
End Select
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlDark, 2), 0, 0, Me.Width, 0)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlDark, 2), 0, 0, 0, Me.Height)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlLight, 4), 1, Me.Height + 1, Me.Width + 1, Me.Height + 1)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlLight, 4), Me.Width + 1, 1, Me.Width + 1, Me.Height + 1)


cbrush.Dispose()
cbrush = Nothing
gp.Dispose()
gp = Nothing


Else
'文本颜色取前景色
Dim cbrush As New System.Drawing.SolidBrush(Me.ForeColor)
Select Case Me.TxtImgLayout
Case Layout.Left
vsizef = gp.MeasureString(Ctext, Me.Font)


'虽然预留了8个像素 但是只平均8个像素
gp.DrawString(Ctext, Me.Font, cbrush, 4, (Me.ClientSize.Height - vsizef.Height) / 2)
'图像的X坐标是vsizef.Width + 8
Dim imgRect As Rectangle = New Rectangle(vsizef.Width + 8, (Me.ClientSize.Height - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
Case Layout.right


vsizef = gp.MeasureString(Ctext, Me.Font)


'图像的Y坐标是(cHeight - ImageHeight) / 2
Dim imgRect As Rectangle = New Rectangle(0, (Me.ClientSize.Height - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
'虽然预留了8个像素 但是只平均6个像素
gp.DrawString(Ctext, Me.Font, cbrush, Me.ImageWidth + 3, (Me.ClientSize.Height - vsizef.Height) / 2)
Case Layout.up
vsizef = gp.MeasureString(Ctext, Me.Font)


'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.ClientSize.Width - vsizef.Width) / 2, 2)


'图像的Y坐标是vsizef.Height + 4
Dim imgRect As Rectangle = New Rectangle((Me.ClientSize.Width - ImageWidth) / 2 - 1, vsizef.Height + 4, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing


Case Layout.down


vsizef = gp.MeasureString(Ctext, Me.Font)


'图像的X坐标是(Me.Width - ImageWidth) / 2 - 1
Dim imgRect As Rectangle = New Rectangle((Me.ClientSize.Width - ImageWidth) / 2 - 1, 0, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing


'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.ClientSize.Width - vsizef.Width) / 2 - 1, ImageHeight + 2)
Case Layout.middle
vsizef = gp.MeasureString(Ctext, Me.Font)


'图像的X坐标是(Me.Width - ImageWidth) / 2 - 1
Dim imgRect As Rectangle = New Rectangle((Me.ClientSize.Width - ImageWidth) / 2, (Me.ClientSize.Height - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.ClientSize.Width - vsizef.Width) / 2, (Me.ClientSize.Height - vsizef.Height) / 2)


End Select
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlLight, 2), 0, 0, Me.Width, 0)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlLight, 2), 0, 0, 0, Me.Height)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlDark, 4), 0, Me.Height, Me.Width, Me.Height)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlDark, 4), Me.Width, 0, Me.Width, Me.Height)
cbrush.Dispose()
cbrush = Nothing
gp.Dispose()
gp = Nothing


End If
Case 2
'画图像


Dim vsizef As SizeF


If Me.pressed Then
'文本颜色取按下的颜色
Dim cbrush As New System.Drawing.SolidBrush(Me.pressedImgColor)
Select Case Me.TxtImgLayout
Case Layout.Left
vsizef = gp.MeasureString(Ctext, Me.Font)


'虽然预留了8个像素 但是只平均8个像素
gp.DrawString(Ctext, Me.Font, cbrush, 4, (Me.ClientSize.Height - vsizef.Height) / 2)
'图像的X坐标是vsizef.Width + 8
Dim imgRect As Rectangle = New Rectangle(vsizef.Width + 8, (Me.ClientSize.Height - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(1)), BackgroundImageColor(Imagelist1.Images.Item(1)))
gp.DrawImage(Imagelist1.Images.Item(1), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing


Case Layout.right


vsizef = gp.MeasureString(Ctext, Me.Font)


'图像的Y坐标是(cHeight - ImageHeight) / 2
Dim imgRect As Rectangle = New Rectangle(0, (Me.ClientSize.Height - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(1)), BackgroundImageColor(Imagelist1.Images.Item(1)))
gp.DrawImage(Imagelist1.Images.Item(1), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
'虽然预留了8个像素 但是只平均6个像素
gp.DrawString(Ctext, Me.Font, cbrush, Me.ImageWidth + 3, (Me.ClientSize.Height - vsizef.Height) / 2)
Case Layout.up
vsizef = gp.MeasureString(Ctext, Me.Font)


'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.ClientSize.Width - vsizef.Width) / 2, 2)


'图像的Y坐标是vsizef.Height + 4
Dim imgRect As Rectangle = New Rectangle((Me.ClientSize.Width - ImageWidth) / 2 - 1, vsizef.Height + 4, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(1)), BackgroundImageColor(Imagelist1.Images.Item(1)))
gp.DrawImage(Imagelist1.Images.Item(1), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing


Case Layout.down


vsizef = gp.MeasureString(Ctext, Me.Font)


'图像的X坐标是(Me.Width - ImageWidth) / 2 - 1
Dim imgRect As Rectangle = New Rectangle((Me.ClientSize.Width - ImageWidth) / 2 - 1, 0, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(1)), BackgroundImageColor(Imagelist1.Images.Item(1)))
gp.DrawImage(Imagelist1.Images.Item(1), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.ClientSize.Width - vsizef.Width) / 2 - 1, ImageHeight + 2)
Case Layout.middle
vsizef = gp.MeasureString(Ctext, Me.Font)


'图像的X坐标是(Me.Width - ImageWidth) / 2 - 1
Dim imgRect As Rectangle = New Rectangle((Me.ClientSize.Width - ImageWidth) / 2, (Me.ClientSize.Height - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(1)), BackgroundImageColor(Imagelist1.Images.Item(1)))
gp.DrawImage(Imagelist1.Images.Item(1), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.ClientSize.Width - vsizef.Width) / 2, (Me.ClientSize.Height - vsizef.Height) / 2)
End Select
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlDark, 2), 0, 0, Me.Width, 0)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlDark, 2), 0, 0, 0, Me.Height)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlLight, 4), 1, Me.Height + 1, Me.Width + 1, Me.Height + 1)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlLight, 4), Me.Width + 1, 1, Me.Width + 1, Me.Height + 1)


cbrush.Dispose()
cbrush = Nothing
gp.Dispose()
gp = Nothing
Else
'文本颜色取前景色
Dim cbrush As New System.Drawing.SolidBrush(Me.ForeColor)
Select Case Me.TxtImgLayout
Case Layout.Left
vsizef = gp.MeasureString(Ctext, Me.Font)


'虽然预留了8个像素 但是只平均8个像素
gp.DrawString(Ctext, Me.Font, cbrush, 4, (Me.ClientSize.Height - vsizef.Height) / 2)
'图像的X坐标是vsizef.Width + 8
Dim imgRect As Rectangle = New Rectangle(vsizef.Width + 8, (Me.ClientSize.Height - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
Case Layout.right


vsizef = gp.MeasureString(Ctext, Me.Font)


'图像的Y坐标是(cHeight - ImageHeight) / 2
Dim imgRect As Rectangle = New Rectangle(0, (Me.ClientSize.Height - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
'虽然预留了8个像素 但是只平均6个像素
gp.DrawString(Ctext, Me.Font, cbrush, Me.ImageWidth + 3, (Me.ClientSize.Height - vsizef.Height) / 2)
Case Layout.up
vsizef = gp.MeasureString(Ctext, Me.Font)


'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.ClientSize.Width - vsizef.Width) / 2, 2)


'图像的Y坐标是vsizef.Height + 4
Dim imgRect As Rectangle = New Rectangle((Me.ClientSize.Width - ImageWidth) / 2 - 1, vsizef.Height + 4, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing


Case Layout.down


vsizef = gp.MeasureString(Ctext, Me.Font)


'图像的X坐标是(Me.Width - ImageWidth) / 2 - 1
Dim imgRect As Rectangle = New Rectangle((Me.ClientSize.Width - ImageWidth) / 2 - 1, 0, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.Width - vsizef.Width) / 2 - 1, ImageHeight + 2)
Case Layout.middle
vsizef = gp.MeasureString(Ctext, Me.Font)




'图像的X坐标是(Me.Width - ImageWidth) / 2 - 1
Dim imgRect As Rectangle = New Rectangle((Me.ClientSize.Width - ImageWidth) / 2, (Me.ClientSize.Height - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.ClientSize.Width - vsizef.Width) / 2, (Me.ClientSize.Height - vsizef.Height) / 2)


End Select
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlLight, 2), 0, 0, Me.Width, 0)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlLight, 2), 0, 0, 0, Me.Height)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlDark, 4), 0, Me.Height, Me.Width, Me.Height)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlDark, 4), Me.Width, 0, Me.Width, Me.Height)
cbrush.Dispose()
cbrush = Nothing
gp.Dispose()
gp = Nothing
End If
End Select
End If
'画一条边框
'e.Graphics.DrawRectangle(New Pen(System.Drawing.SystemColors.ControlDark), 0, 0, Me.ClientSize.Width + 1, Me.ClientSize.Height + 1)
'============================================================================================================================================
'大小自动设置时
If ControlSizeSet = True Then
Select Case Imagelist1.Images.Count
Case 0 '画背景
Dim backgroundImg As Image = MakeBitmap(backgroundImgColor, Me.Width, Me.Height)
Dim pressedImg As Image = MakeBitmap(pressedImgColor, Me.Width, Me.Height)
If Me.pressed AndAlso (pressedImg IsNot Nothing) Then
gp.DrawImage(pressedImg, 0, 0)
Else
gp.DrawImage(backgroundImg, 0, 0)
End If
backgroundImg.Dispose()
pressedImg.Dispose()
If Me.Ctext.Length > 0 Then
Dim size As SizeF = e.Graphics.MeasureString(Me.Ctext, Me.Font)
e.Graphics.DrawString(Me.Ctext, Me.Font, New SolidBrush(Me.ForeColor), (Me.ClientSize.Width - size.Width) / 2, (Me.ClientSize.Height - size.Height) / 2)
End If
Case 1 '画图像
Dim cHeight As Integer = 0
Dim cWidth As Integer = 0
Dim vsizef As SizeF


If Me.pressed Then
'文本颜色取按下的颜色
Dim cbrush As New System.Drawing.SolidBrush(Me.pressedImgColor)
Select Case Me.TxtImgLayout
Case Layout.Left
vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageHeight > vsizef.Height Then
cHeight = Me.ImageHeight
Else
cHeight = vsizef.Height
End If


'高度取大的
Me.Height = cHeight
' 预留8个像素
Me.Width = ImageWidth + vsizef.Width + 8
'虽然预留了8个像素 但是只平均8个像素
gp.DrawString(Ctext, Me.Font, cbrush, 4, (cHeight - vsizef.Height) / 2)
'图像的X坐标是vsizef.Width + 8


Dim imgRect As Rectangle = New Rectangle(vsizef.Width + 8, (cHeight - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing


Case Layout.right


vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageHeight > vsizef.Height Then
cHeight = Me.ImageHeight
Else
cHeight = vsizef.Height
End If


'高度取大的
Me.Height = cHeight + 2
' 预留8个像素
Me.Width = ImageWidth + vsizef.Width + 12
'图像的Y坐标是(cHeight - ImageHeight) / 2
Dim imgRect As Rectangle = New Rectangle(0, (cHeight - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing


'虽然预留了8个像素 但是只平均6个像素
gp.DrawString(Ctext, Me.Font, cbrush, Me.ImageWidth + 3, (cHeight - vsizef.Height) / 2)
Case Layout.up
vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageWidth > vsizef.Width Then
cWidth = Me.ImageWidth
Else
cWidth = vsizef.Width
End If
'高度预留4个像素
Me.Height = ImageHeight + vsizef.Height + 4
' 宽度取大的 预留8个像素
Me.Width = cWidth + 8
'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.ClientSize.Width - vsizef.Width) / 2, 2)


'图像的Y坐标是vsizef.Height + 4
Dim imgRect As Rectangle = New Rectangle((Me.Width - ImageWidth) / 2 - 1, vsizef.Height + 4, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing


Case Layout.down


vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageWidth > vsizef.Width Then
cWidth = Me.ImageWidth
Else
cWidth = vsizef.Width
End If
'高度预留4个像素
Me.Height = ImageHeight + vsizef.Height + 4
' 宽度取大的 预留8个像素
Me.Width = cWidth + 8
'图像的X坐标是(Me.Width - ImageWidth) / 2 - 1
Dim imgRect As Rectangle = New Rectangle((Me.Width - ImageWidth) / 2 - 1, 0, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing


'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.Width - vsizef.Width) / 2 - 1, ImageHeight + 2)




Case Layout.middle
vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageWidth > vsizef.Width Then
cWidth = Me.ImageWidth
Else
cWidth = vsizef.Width
End If
If Me.ImageHeight > vsizef.Height Then
cHeight = Me.ImageHeight
Else
cHeight = vsizef.Height
End If
'高度预留4个像素
Me.Height = cHeight
' 宽度取大的 预留8个像素
Me.Width = cWidth
'图像的X坐标是(Me.Width - ImageWidth) / 2 - 1
Dim imgRect As Rectangle = New Rectangle((Me.Width - ImageWidth) / 2, (Me.Height - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.Width - vsizef.Width) / 2, (Me.Height - vsizef.Height) / 2)
End Select
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlDark, 2), 0, 0, Me.Width, 0)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlDark, 2), 0, 0, 0, Me.Height)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlLight, 4), 1, Me.Height + 1, Me.Width + 1, Me.Height + 1)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlLight, 4), Me.Width + 1, 1, Me.Width + 1, Me.Height + 1)


cbrush.Dispose()
cbrush = Nothing
gp.Dispose()
gp = Nothing


Else
'文本颜色取前景色
Dim cbrush As New System.Drawing.SolidBrush(Me.ForeColor)
Select Case Me.TxtImgLayout
Case Layout.Left
vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageHeight > vsizef.Height Then
cHeight = Me.ImageHeight
Else
cHeight = vsizef.Height
End If


'高度取大的
Me.Height = cHeight
' 预留8个像素
Me.Width = ImageWidth + vsizef.Width + 8
'虽然预留了8个像素 但是只平均8个像素
gp.DrawString(Ctext, Me.Font, cbrush, 4, (cHeight - vsizef.Height) / 2)
'图像的X坐标是vsizef.Width + 8
Dim imgRect As Rectangle = New Rectangle(vsizef.Width + 8, (cHeight - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
Case Layout.right


vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageHeight > vsizef.Height Then
cHeight = Me.ImageHeight
Else
cHeight = vsizef.Height
End If


'高度取大的
Me.Height = cHeight + 2
' 预留8个像素
Me.Width = ImageWidth + vsizef.Width + 12
'图像的Y坐标是(cHeight - ImageHeight) / 2
Dim imgRect As Rectangle = New Rectangle(0, (cHeight - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
'虽然预留了8个像素 但是只平均6个像素
gp.DrawString(Ctext, Me.Font, cbrush, Me.ImageWidth + 3, (cHeight - vsizef.Height) / 2)
Case Layout.up
vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageWidth > vsizef.Width Then
cWidth = Me.ImageWidth
Else
cWidth = vsizef.Width
End If
'高度预留4个像素
Me.Height = ImageHeight + vsizef.Height + 4
' 宽度取大的 预留8个像素
Me.Width = cWidth + 8
'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.ClientSize.Width - vsizef.Width) / 2, 2)


'图像的Y坐标是vsizef.Height + 4
Dim imgRect As Rectangle = New Rectangle((Me.Width - ImageWidth) / 2 - 1, vsizef.Height + 4, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing


Case Layout.down


vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageWidth > vsizef.Width Then
cWidth = Me.ImageWidth
Else
cWidth = vsizef.Width
End If
'高度预留4个像素
Me.Height = ImageHeight + vsizef.Height + 4
' 宽度取大的 预留8个像素
Me.Width = cWidth + 8
'图像的X坐标是(Me.Width - ImageWidth) / 2 - 1
Dim imgRect As Rectangle = New Rectangle((Me.Width - ImageWidth) / 2 - 1, 0, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing


'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.Width - vsizef.Width) / 2 - 1, ImageHeight + 2)
Case Layout.middle
vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageWidth > vsizef.Width Then
cWidth = Me.ImageWidth
Else
cWidth = vsizef.Width
End If
If Me.ImageHeight > vsizef.Height Then
cHeight = Me.ImageHeight
Else
cHeight = vsizef.Height
End If
'高度预留4个像素
Me.Height = cHeight
' 宽度取大的 预留8个像素
Me.Width = cWidth
'图像的X坐标是(Me.Width - ImageWidth) / 2 - 1
Dim imgRect As Rectangle = New Rectangle((Me.Width - ImageWidth) / 2, (Me.Height - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.Width - vsizef.Width) / 2, (Me.Height - vsizef.Height) / 2)


End Select
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlLight, 2), 0, 0, Me.Width, 0)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlLight, 2), 0, 0, 0, Me.Height)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlDark, 4), 0, Me.Height, Me.Width, Me.Height)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlDark, 4), Me.Width, 0, Me.Width, Me.Height)
cbrush.Dispose()
cbrush = Nothing
gp.Dispose()
gp = Nothing


End If
Case 2
'画图像
Dim cHeight As Integer = 0
Dim cWidth As Integer = 0
Dim vsizef As SizeF


If Me.pressed Then
'文本颜色取按下的颜色
Dim cbrush As New System.Drawing.SolidBrush(Me.pressedImgColor)
Select Case Me.TxtImgLayout
Case Layout.Left
vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageHeight > vsizef.Height Then
cHeight = Me.ImageHeight
Else
cHeight = vsizef.Height
End If


'高度取大的
Me.Height = cHeight
' 预留8个像素
Me.Width = ImageWidth + vsizef.Width + 8
'虽然预留了8个像素 但是只平均8个像素
gp.DrawString(Ctext, Me.Font, cbrush, 4, (cHeight - vsizef.Height) / 2)
'图像的X坐标是vsizef.Width + 8
Dim imgRect As Rectangle = New Rectangle(vsizef.Width + 8, (cHeight - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(1)), BackgroundImageColor(Imagelist1.Images.Item(1)))
gp.DrawImage(Imagelist1.Images.Item(1), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing


Case Layout.right


vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageHeight > vsizef.Height Then
cHeight = Me.ImageHeight
Else
cHeight = vsizef.Height
End If


'高度取大的
Me.Height = cHeight
' 预留8个像素
Me.Width = ImageWidth + vsizef.Width + 8
'图像的Y坐标是(cHeight - ImageHeight) / 2
Dim imgRect As Rectangle = New Rectangle(0, (cHeight - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(1)), BackgroundImageColor(Imagelist1.Images.Item(1)))
gp.DrawImage(Imagelist1.Images.Item(1), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
'虽然预留了8个像素 但是只平均6个像素
gp.DrawString(Ctext, Me.Font, cbrush, Me.ImageWidth + 3, (cHeight - vsizef.Height) / 2)
Case Layout.up
vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageWidth > vsizef.Width Then
cWidth = Me.ImageWidth
Else
cWidth = vsizef.Width
End If
'高度预留4个像素
Me.Height = ImageHeight + vsizef.Height + 4
' 宽度取大的 预留8个像素
Me.Width = cWidth + 8
'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, 3, 2)


'图像的Y坐标是vsizef.Height + 4
Dim imgRect As Rectangle = New Rectangle((Me.Width - ImageWidth) / 2 - 1, vsizef.Height + 4, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(1)), BackgroundImageColor(Imagelist1.Images.Item(1)))
gp.DrawImage(Imagelist1.Images.Item(1), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing


Case Layout.down


vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageWidth > vsizef.Width Then
cWidth = Me.ImageWidth
Else
cWidth = vsizef.Width
End If
'高度预留4个像素
Me.Height = ImageHeight + vsizef.Height + 4
' 宽度取大的 预留8个像素
Me.Width = cWidth + 8
'图像的X坐标是(Me.Width - ImageWidth) / 2 - 1
Dim imgRect As Rectangle = New Rectangle((Me.Width - ImageWidth) / 2 - 1, 0, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(1)), BackgroundImageColor(Imagelist1.Images.Item(1)))
gp.DrawImage(Imagelist1.Images.Item(1), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.Width - vsizef.Width) / 2 - 1, ImageHeight + 2)
Case Layout.middle
vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageWidth > vsizef.Width Then
cWidth = Me.ImageWidth
Else
cWidth = vsizef.Width
End If
If Me.ImageHeight > vsizef.Height Then
cHeight = Me.ImageHeight
Else
cHeight = vsizef.Height
End If
'高度预留4个像素
Me.Height = cHeight
' 宽度取大的 预留8个像素
Me.Width = cWidth
'图像的X坐标是(Me.Width - ImageWidth) / 2 - 1
Dim imgRect As Rectangle = New Rectangle((Me.Width - ImageWidth) / 2, (Me.Height - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(1)), BackgroundImageColor(Imagelist1.Images.Item(1)))
gp.DrawImage(Imagelist1.Images.Item(1), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.Width - vsizef.Width) / 2, (Me.Height - vsizef.Height) / 2)
End Select
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlDark, 2), 0, 0, Me.Width, 0)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlDark, 2), 0, 0, 0, Me.Height)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlLight, 4), 1, Me.Height + 1, Me.Width + 1, Me.Height + 1)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlLight, 4), Me.Width + 1, 1, Me.Width + 1, Me.Height + 1)


cbrush.Dispose()
cbrush = Nothing
gp.Dispose()
gp = Nothing
Else
'文本颜色取前景色
Dim cbrush As New System.Drawing.SolidBrush(Me.ForeColor)
Select Case Me.TxtImgLayout
Case Layout.Left
vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageHeight > vsizef.Height Then
cHeight = Me.ImageHeight
Else
cHeight = vsizef.Height
End If


'高度取大的
Me.Height = cHeight
' 预留8个像素
Me.Width = ImageWidth + vsizef.Width + 8
'虽然预留了8个像素 但是只平均8个像素
gp.DrawString(Ctext, Me.Font, cbrush, 4, (cHeight - vsizef.Height) / 2)
'图像的X坐标是vsizef.Width + 8
Dim imgRect As Rectangle = New Rectangle(vsizef.Width + 8, (cHeight - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
Case Layout.right


vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageHeight > vsizef.Height Then
cHeight = Me.ImageHeight
Else
cHeight = vsizef.Height
End If


'高度取大的
Me.Height = cHeight
' 预留8个像素
Me.Width = ImageWidth + vsizef.Width + 8
'图像的Y坐标是(cHeight - ImageHeight) / 2
Dim imgRect As Rectangle = New Rectangle(0, (cHeight - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
'虽然预留了8个像素 但是只平均6个像素
gp.DrawString(Ctext, Me.Font, cbrush, Me.ImageWidth + 3, (cHeight - vsizef.Height) / 2)
Case Layout.up
vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageWidth > vsizef.Width Then
cWidth = Me.ImageWidth
Else
cWidth = vsizef.Width
End If
'高度预留4个像素
Me.Height = ImageHeight + vsizef.Height + 4
' 宽度取大的 预留8个像素
Me.Width = cWidth + 8
'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, 3, 2)


'图像的Y坐标是vsizef.Height + 4
Dim imgRect As Rectangle = New Rectangle((Me.Width - ImageWidth) / 2 - 1, vsizef.Height + 4, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing


Case Layout.down


vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageWidth > vsizef.Width Then
cWidth = Me.ImageWidth
Else
cWidth = vsizef.Width
End If
'高度预留4个像素
Me.Height = ImageHeight + vsizef.Height + 4
' 宽度取大的 预留8个像素
Me.Width = cWidth + 8
'图像的X坐标是(Me.Width - ImageWidth) / 2 - 1
Dim imgRect As Rectangle = New Rectangle((Me.Width - ImageWidth) / 2 - 1, 0, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.Width - vsizef.Width) / 2 - 1, ImageHeight + 2)
Case Layout.middle
vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageWidth > vsizef.Width Then
cWidth = Me.ImageWidth
Else
cWidth = vsizef.Width
End If
If Me.ImageHeight > vsizef.Height Then
cHeight = Me.ImageHeight
Else
cHeight = vsizef.Height
End If
'高度预留4个像素
Me.Height = cHeight
' 宽度取大的 预留8个像素
Me.Width = cWidth
'图像的X坐标是(Me.Width - ImageWidth) / 2 - 1
Dim imgRect As Rectangle = New Rectangle((Me.Width - ImageWidth) / 2, (Me.Height - ImageHeight) / 2, ImageWidth, ImageHeight)
Dim imageAttr As New ImageAttributes
imageAttr.SetColorKey(BackgroundImageColor(Imagelist1.Images.Item(0)), BackgroundImageColor(Imagelist1.Images.Item(0)))
gp.DrawImage(Imagelist1.Images.Item(0), imgRect, 0, 0, ImageWidth, ImageHeight, GraphicsUnit.Pixel, imageAttr)
imgRect = Nothing
imageAttr = Nothing
'文本起始坐标(3,2)
gp.DrawString(Ctext, Me.Font, cbrush, (Me.Width - vsizef.Width) / 2, (Me.Height - vsizef.Height) / 2)


End Select
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlLight, 2), 0, 0, Me.Width, 0)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlLight, 2), 0, 0, 0, Me.Height)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlDark, 4), 0, Me.Height, Me.Width, Me.Height)
gp.DrawLine(New Pen(System.Drawing.SystemColors.ControlDark, 4), Me.Width, 0, Me.Width, Me.Height)
cbrush.Dispose()
cbrush = Nothing
gp.Dispose()
gp = Nothing
End If
End Select
End If
'画一条边框
'e.Graphics.DrawRectangle(New Pen(System.Drawing.SystemColors.ControlDark), 0, 0, Me.ClientSize.Width + 1, Me.ClientSize.Height + 1)
MyBase.OnPaint(e)
End Sub
'确定按钮的宽度高度(工具栏专用)
Public Sub RefreshPicBtn()
Dim gp As Graphics = Me.CreateGraphics
Dim cHeight As Integer = 0
Dim cWidth As Integer = 0
Dim vsizef As SizeF


Ctext = Caption


Select Case Me.TxtImgLayout
Case Layout.Left
vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageHeight > vsizef.Height Then
cHeight = Me.ImageHeight
Else
cHeight = vsizef.Height
End If


'高度取大的
Me.Height = cHeight
' 预留8个像素
Me.Width = ImageWidth + vsizef.Width + 8
Case Layout.right


vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageHeight > vsizef.Height Then
cHeight = Me.ImageHeight
Else
cHeight = vsizef.Height
End If


'高度取大的
Me.Height = cHeight
' 预留8个像素
Me.Width = ImageWidth + vsizef.Width + 8
Case Layout.up
vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageWidth > vsizef.Width Then
cWidth = Me.ImageWidth
Else
cWidth = vsizef.Width
End If
'高度预留4个像素
Me.Height = ImageHeight + vsizef.Height + 6
' 宽度取大的 预留8个像素
Me.Width = cWidth + 8
Case Layout.down


vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageWidth > vsizef.Width Then
cWidth = Me.ImageWidth
Else
cWidth = vsizef.Width
End If
'高度预留4个像素
Me.Height = ImageHeight + vsizef.Height + 6
' 宽度取大的 预留8个像素
Me.Width = cWidth + 8
Case Layout.middle
vsizef = gp.MeasureString(Ctext, Me.Font)
If Me.ImageWidth > vsizef.Width Then
cWidth = Me.ImageWidth
Else
cWidth = vsizef.Width
End If
If Me.ImageHeight > vsizef.Height Then
cHeight = Me.ImageHeight
Else
cHeight = vsizef.Height
End If
'高度预留4个像素
Me.Height = cHeight
' 宽度取大的 预留8个像素
Me.Width = cWidth
End Select
End Sub
'鼠标按下
Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
Me.pressed = True
Me.Invalidate()
MyBase.OnMouseDown(e)


End Sub
'鼠标抬起
Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
Me.pressed = False
Me.Invalidate()
MyBase.OnMouseUp(e)
End Sub


'颜色变为图片画背景用
Function MakeBitmap(ByVal ButtonColor As Color, ByVal width As Integer, ByVal height As Integer) As Bitmap
Dim bmpThis As New Bitmap(width, height)
Dim g As Graphics = Graphics.FromImage(bmpThis)
g.FillRectangle(New SolidBrush(ButtonColor), 0, 0, bmpThis.Width, bmpThis.Height)
g.Dispose()
Return bmpThis


End Function
'销毁时清空
Public Sub DisposePictureButton()
Me.Imagelist1.Images.Clear()
Me.Imagelist1.Dispose()
End Sub
'获取图片的背景色
Private Function BackgroundImageColor(ByVal image As Image) As System.Drawing.Color
Dim bmp As Bitmap = New Bitmap(image)
Return bmp.GetPixel(0, 0)
End Function




End Class
iteye_6236
关注
VB.net在Wince5.0下实现自定义控件的MouseLeave事件
执着于我的执着
03-15 1123
主要就是要获取当前鼠标位置是否还在控件的rectangle区域内；实现步骤： 1.获取当前鼠标的屏幕坐标用：Control.MousePosition.X, Control.MousePosition.Y。 2.获取控件的rectangle区域的屏幕坐标 Dim rect As Rectangle = Me.RectangleToScreen(Me.ClientRectangle)。 3.判
WinCE 开发自定义控件
PrinceQin的专栏
04-14 3562
最近项目需要在SmartPhone上实现一个HyperLink的功能,显然win32的控件里没有现成的,只有自己开发一个首先注册一个窗口类   int WINAPI WinMain(HINSTANCE hInstance,                   HINSTANCE hPrevInstance,                   LPTSTR    lpC
vb.net 自定义控件（含自定义对话框设置属性） 实例
09-28
vb.net 自定义控件 自定义属性 UITypeEditor UI 类型编辑器 实例 提供一个示例 UITypeEditor，它使用 IWindowsFormsEditorService 显示用于用户输入的 Form。 IWindowsFormsEditorService 只能通过 PropertyGrid 控件的 GetService 方法使用。 此服务通常用于显示来自 UITypeEditor 的 EditValue 方法的窗体。当 PropertyGrid 调用 UITypeEditor 的 EditValue 方法来提供用于编辑属性值的用户界面时，会将对 IServiceProvider 的引用传递给 EditValue 方法，IServiceProvider 通常可提供 IWindowsFormsEditorService 的实例。此服务的方法可用于显示对话框和窗体，或者用于在下拉容器内显示 Control，该容器显示在当前正在编辑的值字段区域附近的属性网格的顶部。 为 UITypeEditor 提供一个接口，用于显示 Windows 窗体，或者在设计模式下在属性网格控件的下拉区域中显示控件。 注意一个问题：设计模式与生成dll文件加载显示结果不同，这就是为什么会在设计模式时运行显示灰色，不能跳出自定义对话框，只有在生成文件加载才显示。
使用VB.NET开发自定义Windows控件
06-09 604
前言      Microsoft? Visual Basic? 的组件支持历来都是它的一大卖点，于是第三方软件开发商们纷纷开发出各种具有新功能性的可视控件 (也有少数非可视控件) 供 Visual Basic 程序员选用。这种特殊的 Visual Basic 开发形式创造了无数的第三方控件——有的是共享软件/自由软件，有的则被放到柜台上销售。现在，人们甚至可以直接用 Visual Basic 开
VB.net基础:简单的自定义控件MyPictureBox
weixin_33895016的博客
09-17 372
这里标题中的“简单”，并不是说代码简单，而是说思路比较简单。VS.net中的PictureBox有个缺点就是不好控制位置和大小。所以MyPictureBox就是这样一种Picturebox：它有一个属性ViewMode，表示显示图片的模式，包括FitSize，TrueSize和StretchImage。后两者看名字也看得出意思来，FitSize则是一个折中的方式：当图片大小小于MyPictureB...
打造WinCE 6.0系统中的自定义图片按钮控件
开发者需要掌握VB.Net编程语言、Windows CE系统的特性以及相关的开发工具来完成这一任务。通过精心设计和实现，开发出的自定义控件能够满足特定的业务需求，为嵌入式设备提供更加丰富的交互方式。
wince下 datagrid 添加控件，并隐藏了
11-16
7. **编程实现**：在C#或VB.NET中，使用.NET Compact Framework库进行编程。首先，创建DataGrid对象并设置其属性，然后动态创建Button和CheckBox对象，并将它们添加到DataGrid的行或单元格中。最后，注册事件处理...
CEbuttonwince下按钮
03-30
2. **Windows CE 应用程序开发**：在WinCE上开发应用通常使用Visual Studio集成开发环境，配合Windows CE SDK（Software Development Kit），可以使用C++、C#或VB.NET等语言进行编程。 3. **按钮控件（Button）**：...
VB.NET自定义控件 —— 添加控件自定义属性
weixin_30687587的博客
12-29 1265
　　如果需要将控件的自定义属性放到属性面板中，可参考下面的方法： 　　注：需要 Imports System.ComponentModel，另外属性必须是Public，这样才能显示到属性面板。 自定义控件属性 1 ''' <summary>XML注释</summary> 2 <Browsable(True), _ 3 Categor...
VB.NET制作自己控件（Usercontroll）
04-19
VB.NET制作自己控件（Usercontroll） 最基础vb.net 控件教程 把功能封装在控件里面
WinCE下自定义控件示例
04-01
自定义一个picturebox的控件 语言：C#
各种自定义wince 控件源码
12-18
很多种自定义wince 控件源码,很有参考价值. 有朋友说这个包被破坏了，所以我又上传了一次．这个不要再下载．
C# WinCE/Mobile 自定义控件原码 票亮按钮 透明图片按钮 支持背景的Label等
12-27
WinCE自定义控件原代码 C# VS2008开发 有以下4个控件： MyButton 自定义绘制的按钮，圆角比之前的漂亮很多 MyImageButton 图片按钮。使用bmp图片可以设置透明 MyLabel 支持背景图片的Label MyPictureControl 用来设置图片。可使bmp图片透明
ImageButton，WINCE，自定义用户控件的实现，C#
01-02
ImageButton，WINCE，自定义图片按钮控件的实现，C#，可以在wince环境里调试
[VB.NET]开发用户自定义控件
VB.NET学习网-VB.NET实例、VB.NET教程、VB.NET源码下载
12-02 2489
开发用户自定义控件 实例说明在本实例中将自行制作一个用户自定义控件并在另外的一个应用程序中加以引用。程序运行后，可以更改其中的内容，然后单击save即可。程序运行结果如图58-1所示。图58-1 运行结果技术要点l 定制用户控件界面l 为用户控件添加属性和过程l 编译用户控件l 引用用户控件<!--google_ad_client = "pub-833394
【Wince-自定义控件】ImageButton 带图片、文字
04-28 318
1.看图 可以实现MouseDown改变背景颜色或背景图片。 遗憾是没有实现键盘触发按钮事件。 2.选择继承自Control基类 public class ImageButton : Control 3.创建几个枚举类型 public enum TextAlignStyle { TopCente...
如何自定义一个VB.NET控件类
最新发布
盛卋書生的博客
11-26 946
如何自定义一个VB.NET控件类,直接上代码
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值