（1）可以设置属性里的dataformat，如附图。
（2）也可以为文本框添加KeyPress事件，判断输入字符的ASCII码，如果为数字则显示，否则不显示。
如建立一个文本框名为Text1，添加Text1_KeyPress事件
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2010-04-02
开始学习不在于多,而在于精.
初学者不要过多停留在语言与工具的表面.学习一门能深入底层的语言,最好的选择是:汇编,C,C++.我感觉C/C++足以,汇编用于调试和嵌入汇编就可以了.我选择的是C语言,因为它入门简单,深入难,需要数据结构和算法支持,这样能更好的学习数据结构和算法.
初学者不要使用Java,VC++的MFC,VB,那样会很危险的.如果无深入底层,停留在语言表面过久,不利于初学者未来的发展和继续学习.对! 你可以用JAVA编程,你可以用MFC做出东西,你也可以用VB程序.但是一些比较底层的东西你一点都不知道,连汇编的调试也不懂,程序BUG在那里也不知道.那永远只是一个熟练使用锤子的工人,难道你不想成为建筑工程师吗?楼房是你构思的,图纸是你画的,而不是建造楼房中的一个不起眼的埋头工作的工人.
深入底层学习大概: C/C++ ->数据结构->编译原理
数字电路和汇编语言->计算机组成原理
操作系统->Linux内核
自己再动手写一个比较简单的内核.
为什么要学习内核.why?因为内核是一个学习软件工程最好的摸版,有很多技巧,技术,是C/C++课本上无法学到的,这主要是把理论知识总结起来.为什么要自己写一个简单的操作系统内核,大家也知道,没有什么比实践更容易理解.等你把简单的内核完成的时候,你的计算机组成原理,操作系统,Linux内核, 数据结构,C语言,汇编会得到一个更深层次的理解.
这些东西,是那些只能玩玩 VB,VC++,JAVA的低级程序员能理解的吗?这就是为什么有些高级程序员,只要看看的VB的书,不用两三天就能掌握的原因.你叫java程序员来试一下.
所以说,成为了高手,基础打牢靠了,学什么都简单.比起你今年学个java,明年又学个VC++.最后没有一样能学好.不如把时间用来打好基础.
希望各位能给未来的软件产业作出贡献. 希望大家多多支持Linux和开源软件.
我也是一名正在学习中的大一新生.我之所以能有这样的思想,真的没有什么好好奇的.那是我从以前的各位大师身上吸取的思想.我也正在为成为高手而努力.
想为成为高手而努力,就不要把时间浪费在打游戏,打牌,弹吉他等一些事情上了,我们计算机学院的学生都是网游成风,我真为他们担心,更为中国未来软件的产业担心.
初学者不要过多停留在语言与工具的表面.学习一门能深入底层的语言,最好的选择是:汇编,C,C++.我感觉C/C++足以,汇编用于调试和嵌入汇编就可以了.我选择的是C语言,因为它入门简单,深入难,需要数据结构和算法支持,这样能更好的学习数据结构和算法.
初学者不要使用Java,VC++的MFC,VB,那样会很危险的.如果无深入底层,停留在语言表面过久,不利于初学者未来的发展和继续学习.对! 你可以用JAVA编程,你可以用MFC做出东西,你也可以用VB程序.但是一些比较底层的东西你一点都不知道,连汇编的调试也不懂,程序BUG在那里也不知道.那永远只是一个熟练使用锤子的工人,难道你不想成为建筑工程师吗?楼房是你构思的,图纸是你画的,而不是建造楼房中的一个不起眼的埋头工作的工人.
深入底层学习大概: C/C++ ->数据结构->编译原理
数字电路和汇编语言->计算机组成原理
操作系统->Linux内核
自己再动手写一个比较简单的内核.
为什么要学习内核.why?因为内核是一个学习软件工程最好的摸版,有很多技巧,技术,是C/C++课本上无法学到的,这主要是把理论知识总结起来.为什么要自己写一个简单的操作系统内核,大家也知道,没有什么比实践更容易理解.等你把简单的内核完成的时候,你的计算机组成原理,操作系统,Linux内核, 数据结构,C语言,汇编会得到一个更深层次的理解.
这些东西,是那些只能玩玩 VB,VC++,JAVA的低级程序员能理解的吗?这就是为什么有些高级程序员,只要看看的VB的书,不用两三天就能掌握的原因.你叫java程序员来试一下.
所以说,成为了高手,基础打牢靠了,学什么都简单.比起你今年学个java,明年又学个VC++.最后没有一样能学好.不如把时间用来打好基础.
希望各位能给未来的软件产业作出贡献. 希望大家多多支持Linux和开源软件.
我也是一名正在学习中的大一新生.我之所以能有这样的思想,真的没有什么好好奇的.那是我从以前的各位大师身上吸取的思想.我也正在为成为高手而努力.
想为成为高手而努力,就不要把时间浪费在打游戏,打牌,弹吉他等一些事情上了,我们计算机学院的学生都是网游成风,我真为他们担心,更为中国未来软件的产业担心.
第2个回答 2010-04-02
添加一个text1
添加以下控制代码即可
Private Sub Text1_Change()
'这个过程是处理粘贴的，防治粘贴进其它代码
Dim i As Long
Dim key As String
Dim r As String
r = ""
For i = 1 To Len(Text1.Text)
key = Mid(Text1.Text, i, 1)
If key < "0" Or key > "9" Then
'非数字情况累加
r = r & key
End If
Next
Text1.Text = r
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then
'键入数字时无效
KeyAscii = 0
End If
End Sub本回答被提问者采纳
添加以下控制代码即可
Private Sub Text1_Change()
'这个过程是处理粘贴的，防治粘贴进其它代码
Dim i As Long
Dim key As String
Dim r As String
r = ""
For i = 1 To Len(Text1.Text)
key = Mid(Text1.Text, i, 1)
If key < "0" Or key > "9" Then
'非数字情况累加
r = r & key
End If
Next
Text1.Text = r
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then
'键入数字时无效
KeyAscii = 0
End If
End Sub本回答被提问者采纳
第3个回答 2010-04-02
有键盘码的
控制范围就是了
'ESC键 VK_ESCAPE(27) '方向键(←)： VK_LEFT (37) '小键盘0: VK_NUMPAD0 (96)
'回车键: VK_RETURN (13) '方向键(↑)： VK_UP (38) '小键盘1: VK_NUMPAD0 (97)
'TAB键: VK_TAB (9) '方向键(→)： VK_RIGHT (39) '小键盘2: VK_NUMPAD0 (98)
'Caps Lock键: VK_CAPITAL (20) '方向键(↓)： VK_DOWN (40) '小键盘3: VK_NUMPAD0 (99)
'Shift键： VK_SHIFT ($10) 'F1键: VK_F1 (112) '小键盘4: VK_NUMPAD0 (100)
'Ctrl键: VK_CONTROL (17) 'F2键: VK_F2 (113) '小键盘5: VK_NUMPAD0 (101)
'Alt键: VK_MENU (18) 'F3键: VK_F3 (114) '小键盘6: VK_NUMPAD0 (102)
'空格键： VK_SPACE ($20/32) 'F4键: VK_F4 (115) '小键盘7: VK_NUMPAD0 (103)
'退格键: VK_BACK (8) 'F5键: VK_F5 (116) '小键盘8: VK_NUMPAD0 (104)
'左徽标键: VK_LWIN (91) 'F6键: VK_F6 (117) '小键盘9: VK_NUMPAD0 (105)
'右徽标键: VK_LWIN (92) 'F7键: VK_F7 (118) '小键盘.： VK_DECIMAL (110)
'鼠标右键快捷键: VK_APPS (93) 'F8键: VK_F8 (119) '小键盘*： VK_MULTIPLY (106)
'Insert键: VK_INSERT (45) 'F9键: VK_F9 (120) '小键盘+： VK_MULTIPLY (107)
'Home键: VK_HOME (36) 'F10键: VK_F10 (121) '小键盘-： VK_SUBTRACT (109)
'Page Up: VK_PRIOR (33) 'F11键: VK_F11 (122) '小键盘/： VK_DIVIDE (111)
'PageDown: VK_NEXT (34) 'F12键: VK_F12 (123) 'Pause Break键: VK_PAUSE (19)
'End键: VK_END (35) 'Num Lock键: VK_NUMLOCK (144) 'Scroll Lock键: VK_SCROLL (145)
'Delete键: VK_DELETE (46)
都在这呢
控制范围就是了
'ESC键 VK_ESCAPE(27) '方向键(←)： VK_LEFT (37) '小键盘0: VK_NUMPAD0 (96)
'回车键: VK_RETURN (13) '方向键(↑)： VK_UP (38) '小键盘1: VK_NUMPAD0 (97)
'TAB键: VK_TAB (9) '方向键(→)： VK_RIGHT (39) '小键盘2: VK_NUMPAD0 (98)
'Caps Lock键: VK_CAPITAL (20) '方向键(↓)： VK_DOWN (40) '小键盘3: VK_NUMPAD0 (99)
'Shift键： VK_SHIFT ($10) 'F1键: VK_F1 (112) '小键盘4: VK_NUMPAD0 (100)
'Ctrl键: VK_CONTROL (17) 'F2键: VK_F2 (113) '小键盘5: VK_NUMPAD0 (101)
'Alt键: VK_MENU (18) 'F3键: VK_F3 (114) '小键盘6: VK_NUMPAD0 (102)
'空格键： VK_SPACE ($20/32) 'F4键: VK_F4 (115) '小键盘7: VK_NUMPAD0 (103)
'退格键: VK_BACK (8) 'F5键: VK_F5 (116) '小键盘8: VK_NUMPAD0 (104)
'左徽标键: VK_LWIN (91) 'F6键: VK_F6 (117) '小键盘9: VK_NUMPAD0 (105)
'右徽标键: VK_LWIN (92) 'F7键: VK_F7 (118) '小键盘.： VK_DECIMAL (110)
'鼠标右键快捷键: VK_APPS (93) 'F8键: VK_F8 (119) '小键盘*： VK_MULTIPLY (106)
'Insert键: VK_INSERT (45) 'F9键: VK_F9 (120) '小键盘+： VK_MULTIPLY (107)
'Home键: VK_HOME (36) 'F10键: VK_F10 (121) '小键盘-： VK_SUBTRACT (109)
'Page Up: VK_PRIOR (33) 'F11键: VK_F11 (122) '小键盘/： VK_DIVIDE (111)
'PageDown: VK_NEXT (34) 'F12键: VK_F12 (123) 'Pause Break键: VK_PAUSE (19)
'End键: VK_END (35) 'Num Lock键: VK_NUMLOCK (144) 'Scroll Lock键: VK_SCROLL (145)
'Delete键: VK_DELETE (46)
都在这呢
相似回答