| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> 图形编程 >> 实例分析正文
最新推荐 更多内容
VB.Net创建自绘式按钮的实例
VB.Net创建自绘式按钮的实例
作者:ilu    来源:乐博网整理     更新时间:2009-8-24

乐博网lob.cn提示:此代码运行环境为vb.net2008

VB.Net创建自绘式按钮的代码:

Public Class Form1
    '以复合控件方式创建自绘式按钮
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.MyButton = New MyButtonClass()
        MyButton.Location = New System.Drawing.Point(50, 50)
        MyButton.Size = New System.Drawing.Size(170, 90)
        Me.Controls.Add(MyButton)
    End Sub
    Friend WithEvents MyButton As MyButtonClass
    Private Sub MyButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyButton.Click
        MessageBox.Show("这是在测试自绘式按钮响应鼠标单击事件", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
End Class
Public Class MyButtonClass
    Inherits UserControl
    'Inherits Button
    'Inherits Control
    '绘制新按钮
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim MyGraphics = e.Graphics
        Dim MyPtsA As Point() = {New Point(0, 0), New Point(90, 0), New Point(170, 0), New Point(170, 50), New Point(170, 90), New Point(90, 90), New Point(0, 90), New Point(0, 50)}
        Dim MyColsA As Color() = {Color.White, Color.Black, Color.White, Color.Black, Color.White, Color.Black, Color.White, Color.Black}
        Dim MyPGBrushA = New System.Drawing.Drawing2D.PathGradientBrush(MyPtsA)
        MyPGBrushA.SurroundColors = MyColsA
        MyGraphics.FillRectangle(MyPGBrushA, 0, 0, 170, 90)
        Dim MyText = "自绘式按钮"
        Dim MyFont As New Font("隶书", 22)
        Dim MyBrush As New SolidBrush(Color.White)
        Dim MyPoint As New PointF(3.0F, 30.0F)
        MyGraphics.DrawString(MyText, MyFont, MyBrush, MyPoint)
    End Sub
End Class

 


 

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    VB.Net显示Tree图像的实例
    VB.Net显示Forest图像的实例
    VB.Net制表的实例
    VB.Net图像文件中装入图像的实例
    VB.Net图像文件添加透明文字的实例
    VB.Net图像文件旋转变换的实例
    VB.Net图像文件剪切变换的实例
    VB.Net图像文件缩放变换的实例
    VB.Net图像文件平移变换的实例
    VB.Net图像文件单色变换的实例

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]