Visual Basic

Addhandler pCloseCtrl.click, addressof EventHandler(pObj,pArgs)

private sub EventHandler(pobj as object,pargs as eventargs)
'do your code here
end sub

evilnoodle wrote:

anonymous function,

AddHandler pCloseCtrl.Click, AddressOf Function(pObj, pArgs) Do
    If Me.formIsDirty Then
        MessageBox.Show("There are unsaved changes, please save the changes before closing.")
    Else
        pForm.Close()
       
    End If
End Function

evilnoodle wrote:

Your second solution is a far miss, VS wont accept that syntax.

evilnoodle wrote:

The first solution is closer but when I do the EventHandler(pObj, pArgs) I get a compile time error stating that: 'AddressOf' operand must be the name of a method (without parentheses)
When I remove the parenthesis, it works but I get a NullReferenceException on that same line at runtime.

AddHandler frm.Click, AddressOf EventHandler


    Private Sub EventHandler(ByVal pobj As Object, ByVal pargs As EventArgs)
        'do your code here
        MessageBox.Show("test")
    End Sub

Public Class DataFormLogic(Of T)

    Public Sub New(ByRef DGV As DataGridView)

        AddHandler DGV.UserDeletingRow, AddressOf MyDelete

        'Also tried this, which give a delegate signature error at compile time
        'AddHandler DGV.UserDeletingRow, New EventHandler(AddressOf MyDelete)

    End Sub
    
Private Sub MyDelete(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowCancelEventArgs)
        MsgBox("Eureka!!!!!")
    End Sub
End Class

Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim dt As new DataTable()
        dt.Columns.Add(New DataColumn("Col1"))
        dt.Columns.Add(New DataColumn("Col2"))
        Dim row As DataRow = dt.NewRow
        row.Item("col1") = "col1"
        row.Item("col2") = "col2"
        dt.Rows.Add(row)
        row = dt.NewRow
        row.Item("col1") = "col11"
        row.Item("col2") = "col22"
        dt.Rows.Add(row)
        DataGridView1.DataSource = dt
        Dim temp As New Class1(DataGridView1)
    End Sub
End Class

Public Class Class1
    Public Sub New(ByRef dgv As DataGridView)
        AddHandler dgv.UserDeletingRow, AddressOf mydelete
    End Sub
    Private Sub mydelete(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowCancelEventArgs)
        MessageBox.Show("Eureka!!!!")
    End Sub
End Class

evilnoodle wrote:

Wow you reply fast, you're either in my time zone, or you never sleep!

evilnoodle wrote:

thank you very much

evilnoodle wrote:

I figured it out just before reading this post.

AddHandler pCloseCtrl.Click, AddressOf ClickHandler

Private Sub ClickHandler(pObj As Object, pArgs As EventArgs)
    'your code here
End Sub

Private Sub test()
	AddHandler pCloseCtrl.Click, AddressOf AddressOf AnonymousMethod1
End Sub
Private Sub AnonymousMethod1(ByVal pObj As Object, ByVal pArgs As Object)
	If Me.formIsDirty Then
		MessageBox.Show("There are unsaved changes, please save the changes before closing.")
	Else
		pForm.Close()
	End If
End Sub