自定义按钮点击事件引发

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