AddressOf avec le paramètre

D'une manière ou d'une autre j'ai besoin de lien groupID (et d'un autre nombre entier) pour le bouton, je suis l'ajout dynamique.. des idées?

Ce que je peux faire;

AddHandler mybutton.Click, AddressOf PrintMessage

Private Sub PrintMessage(ByVal sender As System.Object, ByVal e As System.EventArgs)
    MessageBox.Show("Dynamic event happened!")
End Sub

Ce que je ne peux pas faire, mais que vous voulez;

AddHandler mybutton.Click, AddressOf PrintMessage(groupID)

Private Sub PrintMessage(ByVal groupID as Integer)
    MessageBox.Show("Dynamic event happened!" & groupID .tostring)
End Sub

source d'informationauteur natli

  1. 31

    Il n'y a aucun moyen de le faire avec AddressOf lui-même. Ce que vous cherchez est une expression lambda. 

    AddHandler myButton.Click, Function(sender, e) PrintMessage(groupId)

Private Sub PrintMessage(ByVal groupID as Integer)
    MessageBox.Show("Dynamic event happened!" & groupID .tostring)
End Sub
  2. 3

    Vous pouvez créer votre propre bouton de classe et ajouter tout ce que vous voulez, il

    Public Class MyButton
    Inherits Button

    Private _groupID As Integer
    Public Property GroupID() As Integer
        Get
            Return _groupID
        End Get
        Set(ByVal value As Integer)
            _groupID = value
        End Set
    End Property

    Private _anotherInteger As Integer
    Public Property AnotherInteger() As Integer
        Get
            Return _anotherInteger
        End Get
        Set(ByVal value As Integer)
            _anotherInteger = value
        End Set
    End Property

End Class

    Vous pouvez accéder au bouton par un moulage de la sender

    Private Sub PrintMessage(ByVal sender As Object, ByVal e As EventArgs)
    Dim btn = DirectCast(sender, MyButton)
    MessageBox.Show( _
      String.Format("GroupID = {0}, AnotherInteger = {1}", _
                    btn.GroupID, btn.AnotherInteger))
End Sub

    Ces nouvelles propriétés peuvent même être défini dans les propriétés de la fenêtre (sous Misc).

    Les contrôles définis dans le projet en cours s'affichent automatiquement dans la boîte à outils.

  3. 0

    L'utilisation de la Balise de propriété du bouton.

    Button1.Tag = someObject

    AddressOf obtient l'adresse d'une méthode, et donc vous ne pouvez pas vous passer des paramètres.

  4. 0

    Il ya quelques façons de le faire en fonction de la complexité et le nombre de paramètres requis.
    1. L'utilisation de la Balise pour l'ajout d'une structure complexe
    2. Hériter de la classe de Bouton et ajouter les valeurs que les membres de la classe, puis les remplir avant de l'utiliser. Qui vous donne beaucoup plus de flexibilité.

    Si vous utilisez la version web
    3. Vous ne pouvez pas l'ajouter à la Balise, mais pour de simples valeurs de l'attribuer à l'indice d'utilisation .Les attributs.Add("nom"). Cela s'ajoute à les balises HTML et non du côté Serveur. Vous pouvez ensuite utiliser l'index pour accéder à un serveur côté de la structure pour les systèmes complexes.
    4. Des sessions d'utilisation de stocker des valeurs et de stocker la session de référence à l'attribut de Nom comme décrit ci-dessus (#3).

  5. 0

    Vous pouvez utiliser les délégués qui très clair pour votre code de suivi:

    Définir un délégué

    Public Delegate Sub ControlClickDelegate(ByVal sender As Object, ByVal e As EventArgs)

    Bouton personnalisé de classe

    Public Class CustomButton
    Inherits System.Windows.Forms.Button
#Region "property delegate"

    Private controlClickDelegate As ControlClickDelegate

    Public Property ClickHandlerDelegate As ControlClickDelegate
        Get
            Return controlClickDelegate
        End Get
        Set(ByVal Value As ControlClickDelegate)
            controlClickDelegate = Value
        End Set
    End Property

#End Region

    Public Sub RegisterEventHandler()
        AddHandler Me.Click, AddressOf OnClicking
    End Sub

    Private Sub OnClicking(ByVal sender As Object, e As System.EventArgs)
        If (Me.controlClickDelegate IsNot Nothing) Then
            Me.controlClickDelegate(sender, e)
        End If
    End Sub

End Class

    MainForm

    Public Class MainForm
    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

        Me.CusButton1.ClickHandlerDelegate = AddressOf Me.btnClick
        Me.CusButton1.RegisterEventHandler()
    End Sub

    Private Sub btnClick(ByVal sender As Object, ByVal e As EventArgs)
        Me.TextBox1.Text = "Hello world"
        End Sub

End Class
  6. 0

    Ci-dessous a fonctionné pour moi:

    Dim bStart = New Button With {.Text = "START"}
AddHandler bStart.Click, Function(sender, e) TriggerProcess(any Long value)


Private Function TriggerProcess(ByVal paramName As Long) As Boolean
 ' any processing logic
 Return True
End Function