给MyTextBoxCell类添加一个HighlightText属性,通过设置这个属性来控制是否全选Text
代码如下:- Class MyTextBoxCell
- Inherits TextBoxCell
- Public HighlightText As Boolean = True
- Public Overrides ReadOnly Property EditType As System.Type
- Get
- Return GetType(MyTextBoxEditingControl)
- End Get
- End Property
- Protected Overrides Sub InitializeEditingControl(ByVal rowIndex As Integer, ByVal formattedValue As Object, ByVal style As GrapeCity.Win.MultiRow.CellStyle)
- MyBase.InitializeEditingControl(rowIndex, formattedValue, style)
- DirectCast(Me.GcMultiRow.EditingControl, MyTextBoxEditingControl).HighlightText = HighlightText
- End Sub
- Public Overrides Function Clone() As Object
- Dim myCell = DirectCast(MyBase.Clone(), MyTextBoxCell)
- myCell.HighlightText = Me.HighlightText
- Return myCell
- End Function
- End Class
- Class MyTextBoxEditingControl
- Inherits TextBoxEditingControl
- Public HighlightText As Boolean
- Public Overrides Sub PrepareEditingControlForEdit(ByVal selectAll As Boolean)
- MyBase.PrepareEditingControlForEdit(HighlightText)
- End Sub
- End Class
复制代码 |