如何在 vb.net 中制作自定义按钮 [关闭]答案

【问题标题】：How to make custom buttons in vb.net [closed]如何在 vb.net 中制作自定义按钮 [关闭]
【发布时间】：2010-09-18 05:05:47
【问题描述】：

你知道任何可以帮助我在 vb.net 中制作自定义按钮的教程吗？因为 Visual Studio 2008 不允许您创建圆形或三角形的按钮。我已经尝试搜索并找到了这个，但是我无法使用它，因为有很多错误。 http://www.codeproject.com/KB/buttons/CButton.aspx

【问题讨论】：

标签： vb.net visual-studio-2008 interface

【解决方案1】：

您可以使用 WPF 创建任何形状的 Button。

见以下网址

http://www.codeproject.com/KB/WPF/glassbuttons.aspx

【讨论】：

如何使用它来设置按钮样式，

【解决方案2】：

创建各种形状的自定义按钮非常简单，这是在表单（picHome）中添加图片框后的基本代码：

    Private Sub picHome_Click(sender As System.Object, e As System.EventArgs) Handles picHome.Click
        Try
            Dim tPic As PictureBox = DirectCast(sender, PictureBox)
            If Not IsNothing(tPic.Image) Then
                tPic.Image.Dispose()
                tPic.Image = Nothing
            End If
            tPic.Image = Global.CustomButton.My.Resources.btnDemoHome30_MOver
            lbMsg.Text = "HOME BUTTON CLICKED"
        Catch ex As Exception

        End Try
    End Sub

    Private Sub picHome_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles picHome.MouseDown
        Try
            Dim tPic As PictureBox = DirectCast(sender, PictureBox)
            If Not IsNothing(tPic.Image) Then
                tPic.Image.Dispose()
                tPic.Image = Nothing
            End If
            tPic.Image = Global.CustomButton.My.Resources.btnDemoHome30_MClick
        Catch ex As Exception

        End Try
    End Sub

    Private Sub picHome_MouseEnter(sender As Object, e As System.EventArgs) Handles picHome.MouseEnter
        Try
            Dim tPic As PictureBox = DirectCast(sender, PictureBox)
            If Not IsNothing(tPic.Image) Then
                tPic.Image.Dispose()
                tPic.Image = Nothing
            End If
            tPic.Image = Global.CustomButton.My.Resources.btnDemoHome30_MOver
            lbMsg.Text = "MOUSE OVER HOME BUTTON"
        Catch ex As Exception

        End Try
    End Sub

要查看它的实际效果，请观看此视频教程https://www.youtube.com/watch?v=989M3qYrlKo，如果您仍有任何问题，请返回此处。

【讨论】：