自定義按鈕點擊事件引發

Question

Public Class MyNewButton 
     Inherits Button 

    Private _NewTag as string 
    Public Property NewTag() As String 

    Get 
       Return _NewTag 
      End Get 
      Set(ByVal value As Integer) 
       _NewTag = value 
      End Set 


    End Property 

End Class 

兩次現在，編譯後的代碼，並獲得新的按鈕，並使用它像下面這樣：

Dim NewBtn as MyNewButton 

    NewBtn.Text="New Button" 
    NewBtn.NewTag="Here New tag string" ' This is the custom property 
    Addhandler NewBtn.Click Addressof Btn_Click() 








Private Sub Btn_Click() 

     msgbox("New Button") 
    End Sub 

問題是，當我點擊該按鈕的方法Btn_Click（）執行兩次 併爲此解決??????鈮。我正在使用vb.net windows應用程序而不是web應用程序

Answer 1

首先，您的代碼無法運行。 value as integer是錯誤的，它必須是as String喜歡的屬性。 糾正錯誤，我無法重現您的問題。我不認爲這可能源於你給出的那些代碼部分。

除此之外，性能現在可能是一個班輪，http://msdn.microsoft.com/en-us/library/dd293589%28v=vs.100%29.aspx