Visual Basic

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

yaronbo wrote:

My guess is that it is being blocked by the hosting/ISP company,

yaronbo wrote:

Any ideas how to solve this issue?

dgv.Columns[0].DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter;