如何实现Textbox只能“显示”数字

2008-05-16 04:17:10 273 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

编写只能输入数字的TextBox 在进行WinForm编程的过程中经常会遇到需要TextBox只能输入数字的情况.在网上搜一下要么就是重写TextBox的WndProc,要么就是自己处理KeyPress事件. 真有这么麻烦么?当然不:) WinForm里的TextBox类实质上是对Windows公用控件里的EDIT类的封装.只允许输入数字这种便利的功能M$当然早给我们做好了.只是在TextBox里没实现而已阅读详情

功能如题，不但要考虑从键盘键入，还要考虑复制粘贴，鼠标右键粘贴和代码赋值。键盘部分已经实现了，麻烦的是后面。

如果粘贴的字符串只要有一个字母，该字符串就无法粘贴进去，但是也不能影响Textbox里已经存在的字符串。代码赋值也是这样。

语言的话，最好VB

另外如果各位还能考虑到其他情况也欢迎写出来。有分加，不过本人的分数不多...

...全文

Halcon实战：5个工业质检案例教你玩转机器视觉（附完整代码）本文通过5个工业质检实战案例，详细拆解了如何运用Halcon视觉软件库解决精密测量、包装检测、字符识别、透明物缺陷检测及深度学习质检等复杂问题。每个案例均提供完整代码与核心思路，旨在帮助工程师掌握从问题分析到方案落地的系统方法论，提升机器视觉项目的实战能力与鲁棒性。阅读详情

sunshine3110

控件 1,453 成员 41,351 内容

+ 关注 + 加入社区

切换为时间正序

sunshine3110 2008-05-27

打赏
举报

謝謝大家的幫助，問題已經解決了。
這么久沒有結貼真是不好意思。

of123 2008-05-16

打赏
举报

这样更好一些，其它字符也进不来。
Private Sub Text1_Change()
Dim p As Integer

p = Text1.SelStart

If Text1 Like "*[!.0-9]*" Then
Text1 = Text1.Tag
Text1.SelStart = p

Else
Text1.Tag = Text1
End If
End Sub

of123 2008-05-16

打赏
举报

如果允许使用 Change 事件（没有闪动），应该是非常简单的。

Private Sub Text1_Change()
Dim p As Integer

p = Text1.SelStart

If Text1 Like "*[A-Za-z]*" Then
Text1 = Text1.Tag
Text1.SelStart = p

Else
Text1.Tag = Text1
End If
End Sub

tanjiunnya 2008-05-16

打赏
举报

[Quote=引用 19 楼 sunshine3110 的回复:]
还是不对啊……，已经明确了不能在changed事件里面了，怪我表达不清楚。不好意思

根本的思路是，获得即将要写入的字符串，如果不是数字就不让写入，就是代码不知道怎么实现了。
[/Quote]

13楼给你的思路，就是我给你的代码范例。
如果是写入的，你就用KeyPress, KeyDown 来捕抓吧。

sunshine3110 2008-05-16

打赏
举报

还是不对啊……，已经明确了不能在changed事件里面了，怪我表达不清楚。不好意思

根本的思路是，获得即将要写入的字符串，如果不是数字就不让写入，就是代码不知道怎么实现了。

tanjiunnya 2008-05-16

打赏
举报

刚才笔误了，把楼上的 Test1_Change() 更正为 Text1_Change()

tanjiunnya 2008-05-16

打赏
举报

[Quote=引用 15 楼 sunshine3110 的回复:]
引用 13 楼 myjian 的回复:
他爱输入什么输入什么,在使用数据的时候判断一下就行了,IsNumeric(),不合格的输入就让他重新输入

//

顶顶这个思路.

这是在关键路口设关卡.

这确实是我要的思路
可否给一些事例代码，因为我的经验还不是很深，谢谢。
[/Quote]

Private Sub Test1_Change()
If IsNumeric(Text1) Then
'是数字，允许通过
:
:
Else
'不是数字，显示错误信息
MsgBox "输入错误，请输入正确的数字！"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End If
End Sub

Michael_Zang 2008-05-16

打赏
举报

我也关注

sunshine3110 2008-05-16

打赏
举报

[Quote=引用 13 楼 myjian 的回复:]
他爱输入什么输入什么,在使用数据的时候判断一下就行了,IsNumeric(),不合格的输入就让他重新输入

//

顶顶这个思路.

这是在关键路口设关卡.
[/Quote]
这确实是我要的思路
可否给一些事例代码，因为我的经验还不是很深，谢谢。

sunshine3110 2008-05-16

打赏
举报

[Quote=引用 12 楼 Tiger_Zhao 的回复:]
如果原先是 "1"，再粘贴加上 "23 "，你期望结果是什么？
如果通过 Change 中过滤，结果是 "123"，一样是合法的。
[/Quote]
不错的想法，
这种情况就是直接衔接的关系，没有运算，和字符串一样，光标停在哪里就插到哪里。

嗷嗷叫的老马 2008-05-16

打赏
举报

[Quote=引用 11 楼 dbcontrols 的回复:]
你的思路不对
他爱输入什么输入什么,在使用数据的时候判断一下就行了,IsNumeric(),不合格的输入就让他重新输入

引用 2 楼 sunshine3110 的回复:
判断是比较容易，但是处理就不容易了
[/Quote]

//

顶顶这个思路.

这是在关键路口设关卡.

Tiger_Zhao 2008-05-16

打赏
举报

如果原先是 "1"，再粘贴加上 "23 "，你期望结果是什么？
如果通过 Change 中过滤，结果是 "123"，一样是合法的。

dbcontrols 2008-05-16

打赏
举报

你的思路不对
他爱输入什么输入什么,在使用数据的时候判断一下就行了,IsNumeric(),不合格的输入就让他重新输入

[Quote=引用 2 楼 sunshine3110 的回复:]
判断是比较容易，但是处理就不容易了
[/Quote]

sunshine3110 2008-05-16

打赏
举报

[Quote=引用 9 楼 Tiger_Zhao 的回复:]

因为用户一次只能操作一个控件，单个控件的闪烁是看不出来的。
变换前的文本根本不用关心，只要保证变换后始终是合法的就可以了。
[/Quote]

应该还是要的，因为不能影响原先已经在里面的文本，而changed事件文本已经改变了。
我觉得7楼的myjian 思路对头，现在的关键问题就是获取要写入的值，符合要求的进来，不符合的出去，这是最好的。
就是代码不知道写在那里，该怎么写了……

Tiger_Zhao 2008-05-16

打赏
举报

[Quote=引用 6 楼 sunshine3110 的回复:]

其实……这个也不太符合要求，因为在变换以后再做处理有可能出现文字闪一下的情况。
而且如何获取变换之前的文本呢？
[/Quote]

因为用户一次只能操作一个控件，单个控件的闪烁是看不出来的。
变换前的文本根本不用关心，只要保证变换后始终是合法的就可以了。

tanjiunnya 2008-05-16

打赏
举报

[Quote=引用 4 楼 sunshine3110 的回复:]
引用 1 楼 tanjiunnya 的回复:
在keypress / keydown 用keycode / ascii code做判断
也可以用 IsNumeric()来判断。

首先谢谢你的回答，不过这只是对键盘的判断，还有复制粘贴和鼠标右键粘贴以及直接赋值该如何处理，
[/Quote]

嗯。粘贴的过程可以通过Change来进行判断。

嗷嗷叫的老马 2008-05-16

打赏
举报

[Quote=引用楼主 sunshine3110 的帖子:]
如果粘贴的字符串只要有一个字母，该字符串就无法粘贴进去，但是也不能影响Textbox里已经存在的字符串。代码赋值也是这样。
[/Quote]

给你思路:

子类化拦截粘贴消息已经做到了.

只需要在这个消息到来时对当前剪贴板内容做一次过滤即可.

至于"代码赋值也是这样",为什么不使用一个预处理函数先处理好要准备赋值的内容呢?

要靠一个控件这样来限制,你那个软件也应该重写了.

sunshine3110 2008-05-16

打赏
举报

[Quote=引用 3 楼 Tiger_Zhao 的回复:]
在 Change 事件中将不合法的字符删除，注意根据删除的位置调整 SelStart、SelLength 属性
[/Quote]
其实……这个也不太符合要求，因为在变换以后再做处理有可能出现文字闪一下的情况。
而且如何获取变换之前的文本呢？

嗷嗷叫的老马 2008-05-16

打赏
举报

参考以下帖子:

http://topic.csdn.net/u/20070815/17/f1c68367-7fe3-42ef-ab8f-00f07525908e.html

http://topic.csdn.net/u/20070723/17/fcb3dcf0-eb5c-4144-b6e9-bf33fc86097f.html

我使用的关键字:

http://www.google.cn/search?hl=zh-CN&q=%E6%96%87%E6%9C%AC%E6%A1%86+%E5%8F%AA%E8%83%BD%E8%BE%93%E5%85%A5%E6%95%B0%E5%AD%97+%E5%97%B7%E5%97%B7%E5%8F%AB%E7%9A%84%E8%80%81%E9%A9%AC&meta=&aq=f

sunshine3110 2008-05-16

打赏
举报

[Quote=引用 1 楼 tanjiunnya 的回复:]
在keypress / keydown 用keycode / ascii code做判断
也可以用 IsNumeric()来判断。
[/Quote]

首先谢谢你的回答，不过这只是对键盘的判断，还有复制粘贴和鼠标右键粘贴以及直接赋值该如何处理，

加载更多回复（3）

如何实现Textbox只能“显示”数字

相关推荐