如何通過刪除按鈕在DataGrid中刪除選定的行

Question

可能重複：
how to delete row from datagridview with a delete button?

我有System.Windows.Forms.DataGrid。如何通過點擊刪除按鈕刪除選定的行？選定的行，而不是當光標在單元格!!!!!

如果我點擊所選行上的刪除鍵，它會立即刪除行。我想在這裏顯示對話框來確認。

謝謝！

Answer 1

下面是一個將引發事件的代碼，讓用戶即將刪除一行。

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 



Protected Overrides Sub OnMouseDown(ByVal e As 
System.Windows.Forms.MouseEventArgs) 

Dim hti As DataGrid.HitTestInfo = Me.HitTest(New Point(e.X, e.Y)) 

If hti.Type = DataGrid.HitTestType.ColumnResize Or hti.Type = 
DataGrid.HitTestType.RowResize Then 

Return 'no baseclass call 

End If 

MyBase.OnMouseDown(e) 

End Sub 

Public Sub New() 

Trace.WriteLine(Me.VertScrollBar.Visible.ToString) 

End Sub 

Protected Overrides Sub OnMouseMove(ByVal e As 
System.Windows.Forms.MouseEventArgs) 

Dim hti As DataGrid.HitTestInfo = Me.HitTest(New Point(e.X, e.Y)) 

If hti.Type = DataGrid.HitTestType.ColumnResize Or hti.Type = 
DataGrid.HitTestType.RowResize Then 

Return 'no baseclass call 

End If 

MyBase.OnMouseMove(e) 

End Sub 


End Class