还有怎么知道从文件读出来的数据含有非数字?
-
等级
本版专家分：0结帖率 100% -
如何防止在TEXT里输入非数字.比如"123","203"正确;而"29a","_82"等错误?
还有怎么知道从文件读出来的数据含有非数字?展开阅读全文
-
等级
本版专家分：0
-
抢分巴,我daizi200*说话爽快,给分利索.还有其他问题,以后再问,哈哈
-
等级
本版专家分：50422勋章
-
- 银牌 2006年3月 总版技术专家分月排行榜第二
-
-
红花
2006年4月 VB大版内专家分月排行榜第一
2006年3月 VB大版内专家分月排行榜第一
2006年2月 VB大版内专家分月排行榜第一
2006年1月 VB大版内专家分月排行榜第一
2005年10月 VB大版内专家分月排行榜第一
-
-
黄花
2005年12月 VB大版内专家分月排行榜第二
2005年11月 VB大版内专家分月排行榜第二
-
-
Private Sub Text1_KeyPress(KeyAscii As Integer)
Const strIn As String = "1234567890"
Debug.Print Chr(KeyAscii)
If InStr(strIn, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
-
等级
本版专家分：50422勋章
-
- 银牌 2006年3月 总版技术专家分月排行榜第二
-
-
红花
2006年4月 VB大版内专家分月排行榜第一
2006年3月 VB大版内专家分月排行榜第一
2006年2月 VB大版内专家分月排行榜第一
2006年1月 VB大版内专家分月排行榜第一
2005年10月 VB大版内专家分月排行榜第一
-
-
黄花
2005年12月 VB大版内专家分月排行榜第二
2005年11月 VB大版内专家分月排行榜第二
-
-
不过上面的方法不能阻止用户粘贴，要想阻止用户粘贴，用下面的代码：
模块代码：
Option Explicit
Public OldWindowProc As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_WNDPROC = (-4)
Private Const WM_CONTEXTMENU = &H7B
Private Const WM_PASTE = &H302
' *********************************************
' Pass along all messages except the one that
' makes the context menu appear and paste.
' *********************************************
Public Function NewWindowProc(ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If (msg <> WM_PASTE) And (msg <> WM_CONTEXTMENU) Then
NewWindowProc = CallWindowProc( _
OldWindowProc, hWnd, msg, wParam, _
lParam)
End If
End Function
窗体代码：
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const ES_NUMBER = &H2000
Private Sub Form_Load()
Dim style As Long
' Get the current style.
style = GetWindowLong(Text1.hWnd, GWL_STYLE)
' Add ES_NUMBER to the style.
SetWindowLong Text1.hWnd, GWL_STYLE, style Or ES_NUMBER
' Subclass to ignore the context menu.
OldWindowProc = SetWindowLong( _
Text1.hWnd, GWL_WNDPROC, _
AddressOf NewWindowProc)
End Sub
Private Sub Form_Unload(Cancel As Integer)
SetWindowLong Text1.hWnd, GWL_WNDPROC, OldWindowProc
End Sub
-
等级
本版专家分：1734 -
哇，楼上的虽然好，但代码太多了，不能每遇到这样的都要这样做啊，我觉得在确定事件里判断也更好，（写一功能函数调用）
-
等级
本版专家分：182 -
哈哈,我想了一想.发现,其实根本不要+API来防止粘贴,因为"Ctrl+V"的时候已经屏蔽掉了"Ctrl"键了,所以已经无法"粘贴了"
还有,"1234567890"把"backspace"也屏蔽掉了,只能增不能减,哈哈.
-
等级
本版专家分：677 -
干嘛不在Text1_change中判断输入的是不是数字呢？
-
等级
本版专家分：166865勋章
-
-
微软MVP
2005年1月 荣获微软MVP称号
2004年1月 荣获微软MVP称号
-
-
红花
2007年5月 VB大版内专家分月排行榜第一
2007年4月 VB大版内专家分月排行榜第一
2005年12月 VB大版内专家分月排行榜第一
2004年2月 VB大版内专家分月排行榜第一
2004年1月 VB大版内专家分月排行榜第一
2003年11月 VB大版内专家分月排行榜第一
2003年10月 VB大版内专家分月排行榜第一
-
-
黄花
2007年6月 VB大版内专家分月排行榜第二
2006年3月 VB大版内专家分月排行榜第二
2006年2月 VB大版内专家分月排行榜第二
2006年1月 VB大版内专家分月排行榜第二
2004年9月 VB大版内专家分月排行榜第二
2004年8月 VB大版内专家分月排行榜第二
2004年3月 VB大版内专家分月排行榜第二
2003年12月 VB大版内专家分月排行榜第二
2003年9月 VB大版内专家分月排行榜第二
2003年7月 VB大版内专家分月排行榜第二
2003年6月 VB大版内专家分月排行榜第二
2003年5月 VB大版内专家分月排行榜第二
-
-
蓝花
2005年11月 VB大版内专家分月排行榜第三
2004年7月 VB大版内专家分月排行榜第三
-
-
用setwindowlong为textbox附加ES_NUMBER风格即可
-
等级
本版专家分：130 -
Private Sub txtTimeout_KeyPress(KeyAscii As Integer)
If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then
KeyAscii = 0
End If
End Sub
'仅允许输入数字,并且BACKSPACE键可以用.
- L1-053 电子汪 (10 分)—团体程序设计天梯赛
L1-053 电子汪 (10 分) 据说汪星人的智商能达到人类 4 岁儿童的水平，更有些聪明汪会做加法计算。比如你在地上放两堆小球，分别有 1 只球和 2 只球，聪明汪就会用“汪！汪！汪！”表示 1 加 2 的结果是 3。 本题要求...
- 重启开源，分享无限--微软面试187题精选
重启开源，分享无限--诚邀你加入微软面试187题的解题中 前期回顾 我想，只要是稍微浏览过我博客的朋友都知道，本博客内总体上...2、面试与编程（涉及到微软面试100题系列，程序员编程艺术系列，海量数据处理
- 十月上旬百度，阿里巴巴，迅雷搜狗最新面试七十题（第201-270题）
十月百度，阿里巴巴，迅雷搜狗最新面试七十题（第201-270题）引言 当即早已进入10月份，十一过后，招聘，笔试，面试，求职渐趋火热。而在这一系列过程背后浮出的各大IT公司的笔试/面试题则蕴含着诸多思想与设计，...
- 《科研诚信与学术规范》参考答案最新版
1【单选题】 为了确保学术和科研（ ），多大学制定了荣誉法则。 A、效率 B、质量 C、风格 D、诚信 正确答案： D 我的答案：D 2【判断题】 大学建立荣誉制度的初衷旨在预防大学生考试作弊。 正确答案：√ 我的答案：...
- 微软公司等数据结构+算法面试100题(第1-100题)全部出炉
微软等公司数据结构+算法面试100题(第1-100题)首次完整亮相 作者:July、2010年12月6日。更新：现今，这100题的答案已经全部整理出来了，微软面试100题2010年版全部答案集锦：...
- Java之美[从菜鸟到高手演变]之智力题【史上最全】
智力题，每个正式的笔试、面试都会出，而且在面大企业的时候必然会问到，笔者曾在很多面试中，都被问到过，不过答得都不是很好，因为时间很短，加上我们有时候过于紧张，所以做出这类问题，还是有一定的难度，从这篇...
- 科研诚信与学术规范
1【单选题】 为了确保学术和科研（ ），多大学制定了荣誉法则。 A、效率 B、质量 C、风格 D、诚信 正确答案： D 我的答案：D 2【判断题】 大学建立荣誉制度的初衷旨在预防大学生考试作弊。 正确答案：√...
- git am PATCH 失败的处理方法
参考：http://www.cnblogs.com/domainfei/articles/2433504.html http://blog.sina.com.cn/s/blog_5372b1a301015y0n.html 英文原文地址：http://www.pizzhacks.com/bugdrome/2011/10/deal-with-git-am-failures/
- 20考研 | 2020考研全程规划，19上岸复旦学长。各科各阶段复习规划。
本文会解决你在考研各科在不同时期不同阶段遇到的所有问题，方法具体到草稿纸怎么使用，课本具体怎么使用，相信我，读完你一定会有巨大收获。我总结了我一年以来遇到的所有问题，使用的所有方法。 既然最终目的是在...
- Stanford概率图模型（Probabilistic Graphical Model）— 第一讲 贝叶斯网络基础
概率图模型（Probabilistic Graphical Model）系列来自Stanford公开课Probabilistic Graphical Model中Daphne Koller 老师的讲解。（https://class.coursera.org/pgm-2012-002/class/index）主要内容包括（转载请...
- 程序员编程艺术第三十六~三十七章、搜索智能提示suggestion,附近点搜索
第三十六~三十七章、搜索智能提示suggestion，附近地点搜索题记 写博的近三年，整理了太多太多的笔试面试题，如微软面试100题系列，和眼下这个程序员编程艺术系列，真心觉得题目年年变，但解决问题的方法永远都是那...
- 如何做cc150算法题
高频题： http://blog.csdn.net/sushiplus/article/details/17596305 解题思路和答案： http://hawstein.com/posts/ctci-solutions-contents.html Coding前问好问题： 当我看...
- 腾讯、百度、网易游戏、华为Offer及笔经面经
面试完毕，已跟网易游戏签约。遂敲一份笔经面经，记录下面试经过。类似于用日记记录自己，同时希望对师弟师妹有一定帮助。不是炫耀，只是希望攒RP，希望各位不要鄙视我。 正所谓“饮水思源”。...
- 俺的招聘经验[2]：考察技术 vs 考察非技术
之所以把这个话题单独拿出来，写一个帖子，是因为俺注意到：很多公司在招聘时，光考察技术能力，而完全忽略了非技术能力（俺在“招聘的误区”中提到过）。今天，俺来解释一下，考察“非技术能力”的重要性。 ★...
- 如何优雅地送妹子礼物？
一颗林萌 ，剁手已剁成哆啦A梦。 刘巍然-学酥 等 15240 人赞同 ----------------------------------------------------------------------------------------- 有转载需要请私信，不接受未通知作者本人直接...
- 中企动力面试题--逻辑题，(3顶黑帽子，2顶白帽子)，有多少人戴黑帽子?
有3个青年都说自己最聪明，这时来了个老头，拿出来3顶黑帽子，2顶白帽子，让3个人都闭上眼睛，老头把3顶黑帽子一人头上戴上了一顶，让3个人都睁开眼睛，说谁能说出自己头上的帽子是什么颜色的谁就最聪明。...
- 2019北京理工大学计算机考研经验
我是19届考研大军中的一位二战考生，因为相对...我的初试总分是368分。其中政治69，英语62，数学一121，813专业课116。虽然算不得高分，但我的一些小经验可能会对一些同学有些参考价值。 政治 我当时听的是徐涛...
- 回文数系列题目(经典算法)
NYOJ 回文串系列题目 acm
- 程序员编程艺术：第八章、从头至尾漫谈虚函数
程序员编程艺术：第八章、从头至尾漫谈虚函数作者：July。...同时，原狂想曲系列已经更名为程序员编程艺术系列，因为不再只专注于“面试”，而在“编程”之上了。ok，如果有不正之处，望不吝赐教。谢谢。第
- 2011国内名企IT笔试题汇总
2. 百度最新面试题：现在有1千万个随机数，随机数的范围在1到1亿之间。现在要求写出一种算法，将1到1亿之间没有在随机数中的数求出来。 3. Alibaba笔试题：给定一段产品的英文描述，包含M个英文字母，每个英文...
- CSDN日报20170320——《Java 程序员的面试经历和题库》
所以一直在面试中，整理了下最近遇到的一些面试题，供大家参考。其中会包含一些面试的小经验，如果您是面霸，希望能给予指导。自己不是大牛，如果您是大牛，也可以忽略之。我面试的岗位是Java后端开发工程师。
- 微软面试100题2010年版全部答案集锦（含下载地址）
微软等数据结构+算法面试100题全部答案集锦作者：July、阿财。时间：二零一一年十月十三日。引言 无私分享造就开源的辉煌。 今是二零一一年十月十三日，明日14日即是本人刚好开博一周年。在一周年之际，特此分享出...
- 我是主考官:应聘者给我的圈套
故事（5）：应聘者给我的圈套☆★☆★快来！！10月25日读者见面会☆★☆★ 大家也许总以为主考官是最聪明的，主考官只有给应聘者下圈套的份儿，怎么会被应聘者下了圈套了呢？ 其实也没有什么可奇怪的，一个公司的主...
- 我从事的软件培训果真是一个很不入流的职业吗？
一直生活在自我感觉良好和对未来前景充满美好幻想之中的我，前日一朋友兼公司高端股东告诉我，一些高端人士对我个人和我从事的工作根本就看不上眼，特别是看到了我帮学生做面试题的那一系列博文《 联想利泰的一道做...
- 机器学习干货贴
1.Kaggle Ensembling Guide 摘要：Creating ensembles from submission files Voting ensembles. Averaging Ra... 2.[导读]Machine Learning Theory 摘要：机器学习相关理论，Machine Learning Theory - Part 1: ...
- 蔡琴歌词大全
细雨 曲：马兆骏 词：马兆骏 我轻拔琴弦 让音符流转为你唱首歌 听我细诉思念让微风带来你的呢喃让细雨清洗我烦忧虽然相逢难 无法阻挡我的深情等你在黎明 盼你在夕阳 总有一天希望会实现我轻拔琴弦 让音符流转为你唱...
- 经典算法（20）给女朋友讲明白 迷宫问题
使用图文并茂的方式讲解了经典算法中的 【迷宫问题】，有完整的代码实现。
- 漫谈程序员系列：找工作的辟邪剑谱
去咖啡厅喝个咖啡或者酒吧喝个小酒就把工作搞定的程序员可以洗洗睡了，记住回自己家睡……别 if - else 了，选择太多不是好事儿……
- 雅思
1.雅思口语5分有多差? 摘要：对于排名靠前的国外名校,往往不仅要求雅思总分高,还对口语单科有要求7分.随着澳洲和加拿大技术移民越来越难,对雅思口语分数线也上升到了7分.而雅思口语考试往... 2.雅思写作的核心 ...
- BAT机器学习面试1000题系列（第1~305题）
BAT机器学习面试1000题系列 整理：July、元超、立娜、德伟、贾茹、王剑、AntZ、孟莹等众人。本系列大部分题目来源于公开网络，取之分享，用之分享，且在撰写答案过程中若引用他人解析则必注明原作者及来源链接...