最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
自定义控件--xp风格按钮（可设置文字颜色）
时间：2022-07-02 12:02:29 编辑：袖梨 来源：一聚教程网
Imports System.Drawing
Imports System.ComponentModel
Public Class winxpbutton
Inherits System.Windows.Forms.Button
Private my_mouseDown As Boolean = False '鼠标按下
Private my_mouseHover As Boolean = False '鼠标移到上面
Private m_textcolor As Color = System.Drawing.Color.Black '字体颜色
_
Public Property textcolor() As Color
Get
Return m_textcolor
End Get
Set(ByVal Value As Color)
m_textcolor = Value
Me.Invalidate()
End Set
End Property
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化,true表示将指定的样式应用到控件
'设置控件样式位能够充分地更改控件行为
Me.SetStyle(ControlStyles.UserPaint, True)
Imports System.ComponentModel
Public Class winxpbutton
Inherits System.Windows.Forms.Button
Private my_mouseDown As Boolean = False '鼠标按下
Private my_mouseHover As Boolean = False '鼠标移到上面
Private m_textcolor As Color = System.Drawing.Color.Black '字体颜色
Public Property textcolor() As Color
Get
Return m_textcolor
End Get
Set(ByVal Value As Color)
m_textcolor = Value
Me.Invalidate()
End Set
End Property
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化,true表示将指定的样式应用到控件
'设置控件样式位能够充分地更改控件行为
Me.SetStyle(ControlStyles.UserPaint, True)
相关文章
- 蚂蚁庄园今日课堂答题2024年11月14日 11-16
- 《尼尔：机械纪元》武器黑之倨傲属性及特殊能力介绍 11-15
- 《尼尔：机械纪元》机械生命体的枪获得方法介绍 11-15
- 《尼尔：机械纪元》武器机械生命体的枪属性及特殊能力介绍 11-15
- 《尼尔：机械纪元》天使之圣翼获得方法介绍 11-15
- 《尼尔：机械纪元》武器天使之圣翼属性及特殊能力介绍 11-15