[MultiRow6.0]Cell焦点离开时，如何做format处理

收藏

Cell焦点离开时，如何做format处理

比如：自己写了CustomCell继承TextBoxCell ，EditType里放CustomTextBoxEditingControl
输入 1234
焦点离开后自动变换为 1，234
做个自动添加数字逗号的功能

可以在CustomTextBoxEditingControl的TerminateEditingControl里设置Cell的Value吗？
但一般做法都是调用DirtyStateChanged来实现改变Cell的Value。
所以我写了OnTextChanged方法来触发DirtyStateChanged
但最后没有变成Format后的值

dfdf
Public Class CustomTextBoxEditingControl
Protected Overrides Sub OnTextChanged(ByVal e As EventArgs)
Me.OnDirtyStateChanged(args)
End Sub
Public Property FormattedValue() As Object Implements IEditingControl.FormattedValue
Get
Return Format(CInt(Me.Value), "#,###")
End Get
Set(ByVal value As Object)
.......................................
End Set
End Class

复制代码

robert · robert

我觉得不需要自定义Cell就可以实现。请尝试以下代码看是否满足需求。

Dim template1 As Template = New Template1()
Dim cell = template1.Row.Cells("textBoxCell1")
cell.Style.Format = "#,###"
cell.ValueType = GetType(Integer)
GcMultiRow1.Template = template1

复制代码

jerryannie · jerryannie

恩，这样可以实现

但如果Format的式样是比较特殊的
有没有办法直接设定Cell的DisplayText的值呢？

robert · robert

使用CellFormatting和CellParsing事件可以定制任何Format的逻辑。
我写了一个例子，让Cell在编辑的时候自动在数字后边加个“元”字。你可以参考这段代码定制你的Format逻辑。

Private Sub GcMultiRow1_CellFormatting(sender As Object, e As GrapeCity.Win.MultiRow.CellFormattingEventArgs) Handles GcMultiRow1.CellFormatting
If e.Value IsNot Nothing Then
e.Value = e.Value.ToString() + "元"
e.FormattingApplied = True
End If
End Sub
Private Sub GcMultiRow1_CellParsing(sender As Object, e As GrapeCity.Win.MultiRow.CellParsingEventArgs) Handles GcMultiRow1.CellParsing
If e.Value IsNot Nothing Then
Dim text = e.Value.ToString()
If text.EndsWith("元") Then
text = text.Substring(0, text.Length - 1)
End If
Dim intValue As Int32
Int32.TryParse(text, intValue)
e.Value = intValue
e.ParsingApplied = True
End If
End Sub

复制代码

jerryannie · jerryannie

ok 我去试试谢了

		自动登录	找回密码
密码			立即注册

[MultiRow6.0]Cell焦点离开时，如何做format处理

4 个回复

活字格认证

微信认证勋章