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 

발터는