如何在vb.net中製作自定義按鈕

Question

你知道任何可以幫助我在vb.net中製作自定義按鈕的教程嗎？因爲Visual Studio 2008不允許您創建圓形或三角形形狀的按鈕。我嘗試過搜索並找到了這一個，但我無法使用它，因爲有很多錯誤。 http://www.codeproject.com/KB/buttons/CButton.aspx

Answer 1

你可以使用WPF來創建任何形狀的按鈕。

見下面的網址

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

Answer 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，如果你還有任何問題請回到這裏。