ナレッジベース

Imports GrapeCity.Win.MultiRow
Imports InputManCell = GrapeCity.Win.MultiRow.InputMan
Imports GrapeCity.Win.Editors

Private Sub GcMultiRow1_EditingControlShowing(ByVal sender As System.Object, ByVal e As EditingControlShowingEventArgs) Handles GcMultiRow1.EditingControlShowing
　　Dim gcMultiRow As GcMultiRow = TryCast(sender, GcMultiRow)
　　If TypeOf gcMultiRow.CurrentCell Is InputManCell.GcNumberCell Then
　　　　RemoveHandler e.Control.KeyUp, AddressOf GcNumber_KeyUp
　　　　AddHandler e.Control.KeyUp, AddressOf GcNumber_KeyUp
　　End If
End Sub

Private Sub GcNumber_KeyUp(ByVal sender As System.Object, ByVal e As KeyEventArgs)
　　Dim gcNumber As GcNumber = TryCast(sender, GcNumber)
　　If (e.KeyData = Keys.Delete Or e.KeyData = Keys.Back) And gcNumber.Text = "0" Then
　　　　e.Handled = True
　　　　gcNumber.Clear()
　　End If
End Sub

using GrapeCity.Win.MultiRow;
using InputManCell = GrapeCity.Win.MultiRow.InputMan;
using GrapeCity.Win.Editors;

private void gcMultiRow1_EditingControlShowing(object sender, EditingControlShowingEventArgs e)
{
　　GcMultiRow gcMultiRow = sender as GcMultiRow;

　　if (gcMultiRow.CurrentCell is InputManCell.GcNumberCell)
　　{
　　　　e.Control.KeyUp -= new KeyEventHandler(gcNumber_KeyUp);
　　　　e.Control.KeyUp += new KeyEventHandler(gcNumber_KeyUp);
　　}
}

private void gcNumber_KeyUp(object sender, KeyEventArgs e)
{
　　GcNumber gcNumber = sender as GcNumber;
　　if ((e.KeyData == Keys.Delete || e.KeyData == Keys.Back) && gcNumber.Text == "0")
　　{
　　　　e.Handled = true;
　　　　gcNumber.Clear();
　　}
}