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() が2回実行され、これに対する解決策???? 注意 Web アプリケーションではなく vb.net Windows アプリケーションを使用しています

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 に答える