fpspread textbox 光标问题。。

收藏

我用的 Spread for WinForm 7.0,其中有一列是邮政编码，里面有的是iputman gctextbox，当输入超过三位的时候，会在三位后边加一个“-”，例如：123-。
当我输入完第四位的时候，如123-4 ，光标会跑到第一个数字1的前面，我要是再继续输入的时候，需要重新用鼠标点击到数字4的后边.请问怎么让光标始终定位在最后一个数字的后边？

iceman · iceman

回复 1楼gengwh的帖子

gengwh 你好，
可以通过 maskcelltype 实现该功能：

FarPoint.Win.Spread.CellType.MaskCellType maskcell = new FarPoint.Win.Spread.CellType.MaskCellType();
maskcell.Mask = "###-###-####";
fpSpread1.ActiveSheet.Cells[0, 0].CellType = maskcell;

复制代码

没能重现你的问题，能否发代码上来测试？

gengwh · gengwh

我是通过前台设置的类型为gctextbox.

Private Sub fpSpread_EditChange(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.EditorNotifyEventArgs) Handles fpSpread.EditChange
If spdGaihan.ActiveColumnIndex = 3 Then
fpSpread.EditModeReplace = False
spdGaihan.Cells(spdGaihan.ActiveRowIndex, spdGaihan.ActiveColumnIndex).Text = Post_No_Edit(spdGaihan.Cells(spdGaihan.ActiveRowIndex, spdGaihan.ActiveColumnIndex).Text)
End If
End Sub

复制代码

Public Function Post_No_Edit(ByVal strPostNo As String) As String
Dim strLen As Integer
Dim intPos As Integer
Dim strWork As String
strLen = Len(strPostNo)
strWork = strPostNo
Do
intPos = InStr(1, strWork, "-")
If intPos = 0 Then
Exit Do
ElseIf intPos = 1 Then
strWork = Mid(strWork, 2, strLen - 1)
Else
strWork = Mid(strWork, 1, intPos - 1) & Mid(strWork, intPos + 1, strLen)
End If
Loop Until intPos = 0
strLen = Len(strWork)
If strLen <= 3 Then
ElseIf strLen >= 4 Then
strWork = Mid(strWork, 1, 3) & "-" & Mid(strWork, 4, strLen - 3)
End If
Post_No_Edit = strWork
End Function

复制代码

iceman · iceman

回复 3楼gengwh的帖子

请问 2# 中的代码能否满足需求？

gengwh · gengwh

回复 4楼iceman的帖子

还差一点，就是点击textbox的时候，会出现___-____请问这个有办法去掉么？

gengwh · gengwh

___-____请问输入的时候这个下划线有办法去掉么？

iceman · iceman

回复 6楼gengwh的帖子

gengwh 你好，

不好意思，下划线无法去除。

gengwh · gengwh

那按照我上边提供的源码，类型为gctextbox。能重现我的那个错误吗？

iceman · iceman

回复 8楼gengwh的帖子

不好意思，没能重现问题，能否提供可运行工程？

gengwh · gengwh

回复 9楼iceman的帖子

test.zip是简单地一个源码。text.exe.zip是编译后的程序。
麻烦您帮我看一下。当输入第四个数字的时候，光标怎么会
跑到第一个的位置。

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

[已处理] fpspread textbox 光标问题。。

14 个回复

浏览过的版块

活字格认证

微信认证勋章

元老葡萄