Delete Key in datagrid - problem

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi,
I have got a grid initally which will display value.
when user wants to delete a particular row - they can either can click on that row and press "DELETE" button or after selecting a row they can use "REMOVE" button which will in turn will ask for confirmation to delete.
But when i click even on rowheader sometimes this it comes to PreProcessMessage. Not always. Why soo?Any clue?

Also I want datagrid to be readonly. Only when delete button is press just this confirmation dialog should come to delete a row. Any one done like this?

Thanks and Regards,
Sachi
 
Hi,

Public Class ConfirmDeleteDataGrid

Inherits DataGrid

Public Event DeletedRow(ByVal sender As Object, ByVal e As EventArgs)

Private Const WM_KEYDOWN = &H100



Public Overrides Function PreProcessMessage(ByRef msg As
System.Windows.Forms.Message) As Boolean

Dim keyCode As Keys = CType((msg.WParam.ToInt32 And Keys.KeyCode), Keys)

If msg.Msg = WM_KEYDOWN And keyCode = Keys.Delete Then

If MessageBox.Show("Delete This Row?", "Confirm Delete", _

MessageBoxButtons.YesNo) = DialogResult.No Then

Return True

Else

RaiseEvent DeletedRow(Me, New EventArgs)

End If

End If

Return MyBase.PreProcessMessage(msg)

End Function

Protected Overrides Function ProcessDialogKey(ByVal keyData As
System.Windows.Forms.Keys) As Boolean

Dim pt As Point

Dim hti As DataGrid.HitTestInfo

pt = Me.PointToClient(Cursor.Position)

hti = Me.HitTest(pt)

If keyData = Keys.Delete Then

If hti.Type = Me.HitTestType.RowHeader Then

If MessageBox.Show("Delete this row?", "Confirm Delete", _

MessageBoxButtons.YesNo) = DialogResult.No Then

Return True

Else

RaiseEvent DeletedRow(Me, New EventArgs)

End If

End If

End If

Return MyBase.ProcessDialogKey(keyData)

End Function





End Class

Ken
 
Back
Top