Delete键

行选择时，一行或者多行
点击键盘的Delete键，
怎样删除被选择行中所有的ReadOnly的项目，

默认情况下按Delete不能清除ReadOnlyCell的值。如果有这样的需求需要自定义Action。请参考以下代码。

2. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
3.         GcMultiRow1.ShortcutKeyManager.Unregister(Keys.Delete)
4.         GcMultiRow1.ShortcutKeyManager.Register(New MyClearAction(), Keys.Delete)
5.     End Sub

复制代码

2. Public Class MyClearAction
3.     Implements IAction
5.     Public Function CanExecute(ByVal target As GrapeCity.Win.MultiRow.GcMultiRow) As Boolean Implements GrapeCity.Win.MultiRow.IAction.CanExecute
6.         If (target.SelectedCells.Count > 0) Then
7.             Return True
8.         End If
9.         Return False
10.     End Function
12.     Public ReadOnly Property DisplayName() As String Implements GrapeCity.Win.MultiRow.IAction.DisplayName
13.         Get
14.             Return "MyClearAction"
15.         End Get
16.     End Property
18.     Public Sub Execute(ByVal target As GrapeCity.Win.MultiRow.GcMultiRow) Implements GrapeCity.Win.MultiRow.IAction.Execute
19.         For Each Item As Cell In target.SelectedCells
20.             Item.Value = Nothing
21.         Next
22.     End Sub
23. End Class

复制代码

非常感谢，
什么时候才能变得跟版主一样厉害呀:-D

不客气，你也很厉害的，大家关注的领域不一样。