junlingzhu2002 发表于 2012-4-4 14:50:00

Delete键

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

robert 发表于 2012-4-5 14:39:00

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

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


Public Class MyClearAction
    Implements IAction

    Public Function CanExecute(ByVal target As GrapeCity.Win.MultiRow.GcMultiRow) As Boolean Implements GrapeCity.Win.MultiRow.IAction.CanExecute
      If (target.SelectedCells.Count > 0) Then
            Return True
      End If
      Return False
    End Function

    Public ReadOnly Property DisplayName() As String Implements GrapeCity.Win.MultiRow.IAction.DisplayName
      Get
            Return "MyClearAction"
      End Get
    End Property

    Public Sub Execute(ByVal target As GrapeCity.Win.MultiRow.GcMultiRow) Implements GrapeCity.Win.MultiRow.IAction.Execute
      For Each Item As Cell In target.SelectedCells
            Item.Value = Nothing
      Next
    End Sub
End Class

junlingzhu2002 发表于 2012-4-9 13:13:00

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

robert 发表于 2012-4-9 13:36:00

不客气，你也很厉害的，大家关注的领域不一样。
页: [1]
查看完整版本: Delete键