programatically adding events trouble

[kcwallace]

I am trying to dynamically create a form with the code below. The form is created perfectly. However, I need to get xxx to run as the dynamic form closes.

 

I added a handler, but it gives me an error ("does not have the same signature as the delagate 'Delegate Sub CanceleventHandler'"). I do not see what is wrong.

 

Can anyone help?

 

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
       Dim f As New Form
       Dim ADO As New ADONET
       Dim SQL As String = "SELECT * FROM MiscData"
       Dim Cmd As SqlCommand = ADO.GetCmd(SQL, ADO.SetCnn(ADO.CnnStrBdgTot))
       Dim DS As DataSet
       Dim DA As SqlDataAdapter = ADO.GetDA(Cmd, DS)
       Dim DR As SqlDataReader = Cmd.ExecuteReader

       Dim FldCnt As Int16 = DS.Tables(0).Columns.Count
       Dim X As Int16
       Dim txtBox As TextBox

       Dim CtrlTop As Int16 = 10
       DR.Read()
       For X = 1 To FldCnt - 1
           txtBox = New TextBox
           With txtBox
               .Name = DS.Tables(0).Columns(X).ColumnName
               .Top = CtrlTop
               .Left = 100
               .Text = DR(X)
           End With
           Dim lbl As New Label
           With lbl
               .Top = CtrlTop
               .Name = "lbl" & txtBox.Name
               .Text = txtBox.Name
               CtrlTop += .Height
           End With

           f.Controls.Add(lbl)
           f.Controls.Add(txtBox)
       Next
       AddHandler f.Closing, AddressOf xxx

       f.Show()
   End Sub

   Private Sub xxx(ByVal sender As System.Object, ByVal e As System.EventArgs)
       Dim t As System.Windows.Forms.Control
       Dim f As Form = Me
       Dim x As String
       Dim SQL As String = "UPDATE MiscData SET "
       For Each t In f.Controls
           If TypeOf t Is TextBox Then
               SQL = SQL & t.Name & "='" & t.Text & "', "
           End If
       Next t
       SQL = Mid(SQL, 1, Len(SQL) - 2)
       Dim ado As New ADONET
       ado.ActionSQL(SQL, ado.SetCnn(ado.CnnStrBdgTot))
   End Sub

[snarfblam]

Your method signature is wrong. e should be FormClosingEventArgs.

[kcwallace]

Thank you very much