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

自定义按钮单击事件触发两次

1 个答案: