如何將一個按鈕添加到窗口中，就像firefox一樣？

Question

如何在窗口中添加一個按鈕，就像Firefox一樣？ （VB.NET如果可能的話）：

screenshot http://www.mediafire.com/convkey/d021/92rxd53chcvcj0k6g.jpg

Answer 1

這是我做的，當我在VB編程了的方式。這是有點矯枉過正，但無論如何： 該按鈕有3個州Normal, Enter, Down。爲這些狀態拍攝3張圖片（它不一定是png格式）。將它們粘貼到您的資源。可以說他們被命名爲button, buttonEnter and buttonDown。使用標籤控件不是按鈕。

Private Sub Label1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown 
    Label1.Image = My.Resources.buttonDown 
End Sub 

Private Sub Label1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.MouseEnter 
    Label1.Image = My.Resources.buttonEnter 
End Sub 

Private Sub Label1_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.MouseLeave 
    Label1.Image = My.Resources.button 
End Sub 

Private Sub Label1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseUp 
    Label1.Image = My.Resources.buttonEnter 
End Sub 

Private Sub Label1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove 
    Static i As Integer = 1 
    Static j As Integer = 1 

    If e.Button = Windows.Forms.MouseButtons.Left Then 
     If e.X < 0 Or e.X > Label1.Width Or e.Y < 0 Or e.Y > Label1.Height Then 
      If i Then 
       Label1.Image = My.Resources.button 
       i = 0 
       j = 1 
      End If 
     Else 
      If j Then 
       Label1.Image = My.Resources.buttonDown 
       j = 0 
       i = 1 
      End If 
     End If 
    End If 
End Sub 

瓦爾特