Visual Basic

public class form1
   private withevents mForm2 as form2

   private sub ChildKeyDown(sChar as string) handles mForm2.ChildKeyDown
      msgbox("the key pressed was: " & sChar
   end sub

   'add logic to show form2
end class

public class form2
    event ChildKeyDown(sChar as string)

    private textbox1_keydown(sender , e ) handles textbox1.keydown
          raiseevent childkeydown(e.keychar)
    end sub
end class

If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then<br />
    MsgBox("Save Done")<br />
End If

MidwestLimey wrote:

Where is this existing click handler coming from?

MidwestLimey wrote:

If you have, then keep a reference to the delegate for later assignment.

MidwestLimey wrote:

If you're refering to one used by the control internally, it maybe accessible via reflection - but that would be very poor design.

       For Each Mi As ToolStripItem In FileMenu.DropDownItems<br />
            If TypeOf (Mi) Is ToolStripMenuItem Then<br />
                Dim mmi As New ToolStripButton<br />
                mmi.Text = ""<br />
                mmi.Image = Mi.Image<br />
                mmi.ToolTipText = Mi.Text<br />
                Dim pArray() As Object = {Mi, New System.EventArgs}<br />
<br />
                Dim delegateMn As System.EventHandler = CType(CallByName(Me, Mi.Name & "_Click", CallType.Method), System.EventHandler)<br />
                AddHandler mmi.Click, delegateMn<br />
<br />
                tsProgramm.Items.Add(mmi)<br />
            ElseIf TypeOf (Mi) Is ToolStripSeparator Then<br />
                Dim mmi As New ToolStripSeparator<br />
                tsProgramm.Items.Add(mmi)<br />
            Else<br />
<br />
            End If<br />
        Next

Dim myDelegate As EventHandler = AddressOf MenuItem_Click

---

I'm largely language agnostic

---

After a while they all bug me

---

devvvy wrote:

IsRowEmpty(oRw) ' Do I need to code IsRowEmpty?

<br />
Dim rngActive As Excel.Range<br />
Set rngActive = Selection<br />
For Each oRecord In rngActive.Rows<br />
 ... do something ...<br />
Next oRecord<br />

Imports System.Data.OleDb
.
.
.
    If File.Exists(e.FullPath) Then
        Dim connStr As String = String.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Extended Properties=Excel 8.0;HDR=Yes;IMEX=1", e.FullPath)
        Dim conn As New OleDbConnection(connStr)
        Dim ds As New System.Data.DataSet
        Dim comm As New OleDbDataAdapter("SELECT INCIDENT_NO,INC_TYPE,ESTATE,TOWN,COUNTY,NAME_AND_PHONE_NO,CALLSIGN,[REASON MOBILISED]," & _
            "MOBS_DT,MTI,INATT,STOP,MAV,AHS,OPERATOR_INFO FROM [Sheet1$]", conn)
        comm.Fill(ds)
    End If