MouseClick Event On a Datagrid

Hi,

I need to be able to "trap" a mouse click event on a DataGrid and I have found the following VB code:-

Private Sub DGV_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgvMyDatagrid.MouseClick

If sender.HitTest(e.X, e.Y).Type = DataGridViewHitTestType.RowHeader Then
    sender.EditMode = DataGridViewEditMode.EditOnKeystrokeOrF2
    sender.EndEdit()
Else
    sender.EditMode = DataGridViewEditMode.EditOnEnter
End If

End Sub

Or if you prefer the following C# Code:-

private void dataGridView1_MouseClick( object sender, MouseEventArgs e ) {
DataGridView.HitTestInfo hitInfo = this.dataGridView1.HitTest(e.X, e.Y);
if( hitInfo.Type == DataGridViewHitTestType.RowHeader ) {
    this.dataGridView1.EditMode = DataGridViewEditMode.EditOnKeystrokeOrF2;
    this.dataGridView1.EndEdit();
}
else
{
  this.dataGridView1.EditMode = DataGridViewEditMode.EditOnEnter;
}
}

Which I have converted to the following Cobol Code:-

method-id. "dgvMain_MouseClick" final private.
01 ls-cHitTestInfo type "System.Windows.Forms.DataGridView+HitTestInfo".
01 ls-x binary-long.
01 ls-y binary-long.
procedure division using by value sender as object e as type "System.Windows.Forms.MouseEventArgs".
    invoke dgvMain::"HitTest"(ls-x, ls-y) returning ls-cHitTestInfo

    if ls-cHitTestInfo::"Type" = type "System.Windows.Forms.DataGridViewHitTestType"::"RowHeader"
        set ls-x to ls-x
    else
        set ls-y to ls-y
    end-if
end method "dgvMain_MouseClick".

However its not working.

It builds and runs ok but it always goes down the "set ls-y to ls-y" path can anyone advise what I'm doing wrong?

Many thanks

Neil.