ナレッジベース

Imports GrapeCity.Win.MultiRow

　　Private Sub GcMultiRow1_EditingControlShowing(ByVal sender As System.Object, ByVal e As GrapeCity.Win.MultiRow.EditingControlShowingEventArgs) Handles GcMultiRow1.EditingControlShowing
　　　　If GcMultiRow1.CurrentCell.Name = "textBoxCell1" Then
　　　　　　RemoveHandler e.Control.KeyPress, AddressOf Editor_KeyPress
　　　　　　AddHandler e.Control.KeyPress, AddressOf Editor_KeyPress
　　　　End If
　　End Sub

　　Private Sub Editor_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
　　　　Dim editor As TextBoxEditingControl = sender
　　　　Debug.Print(editor.SelectionStart)
　　End Sub

　　private void gcMultiRow1_EditingControlShowing(object sender, GrapeCity.Win.MultiRow.EditingControlShowingEventArgs e)
　　{
　　　　if (e.Control is TextBoxEditingControl)
　　　　{
　　　　　　TextBoxEditingControl text = e.Control as TextBoxEditingControl;
　　　　　　text.KeyDown -= new KeyEventHandler(text_KeyDown);
　　　　　　text.KeyDown += new KeyEventHandler(text_KeyDown);
　　　　}
　　}

　　private void text_KeyDown(object sender, KeyEventArgs e)
　　{
　　　　TextBoxEditingControl editor = (TextBoxEditingControl)gcMultiRow1.EditingControl;
　　　　Console.WriteLine(editor.SelectionStart);
　　}