0 
  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() 执行了两次并且对此的解决方案?????? NB。我正在使用 vb.net windows 应用程序而不是 web 应用程序

4

1 回答 1

0

首先，您的代码无法运行。value as integer错了，一定是as String财产之类的。已更正，我无法重现您的问题。我不认为它可能源自您给出的那些代码部分。

除此之外，属性现在可能是单行的， http: //msdn.microsoft.com/en-us/library/dd293589%28v=vs.100%29.aspx

于 2012-09-22T20:59:20.803 回答