ComponentOne FlexGrid(C1FlexGrid) 将光标设定进入单元格

[lianhg]

单元格双击时，可进入编辑状态。现在，想单击也能进入编辑状态。即 将光标设定进入单元格

[msd88]

''' <summary>
''' 指定具有焦点并已被选为活动的单元格进入编辑状态
''' </summary>
''' <remarks></remarks>
Sub InEditMode(ByVal GrdObj As DataGridView)
Dim oldMode As DataGridViewEditMode = GrdObj.EditMode
GrdObj.EditMode = DataGridViewEditMode.EditProgrammatically
GrdObj.BeginEdit(True)
GrdObj.EditMode = oldMode
End Sub

[msd88]

放在CellEnter和CellDoubleClick事件中
Private Sub GrdModi_CellEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles GrdModi.CellEnter
If Me.GrdModi.CurrentCellAddress.Y = -1 Then
Exit Sub
End If
If Not GrdModi.Columns(e.ColumnIndex).ReadOnly Then
InEditMode(Me.GrdModi)
End If
End Sub

Private Sub GrdModi_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles GrdModi.CellDoubleClick
If Not Me.GrdModi.CurrentCell.IsInEditMode Then
InEditMode(Me.GrdModi)
End If
Call Me.CellEditKeyPress(Me.GrdModi.EditingControl, New System.Windows.Forms.KeyPressEventArgs(Chr(6)))
End Sub

[oo渣渣oo]

补充msd88(七色)

如果你是C1 2007版的,那么代码如下:

Private Sub C1FlexGrid1_EnterCell(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1FlexGrid1.EnterCell
C1FlexGrid1.StartEditing()
End Sub

结束编辑用FinishEditing