Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 58 Then
KeyAscii = 0
End If
End Sub
If KeyAscii < 48 Or KeyAscii > 58 Then
KeyAscii = 0
End If
End Sub
解决方案 »
- 跪求 VB 将SQL表导出成excel文件 和 将excel导入到SQL表中
- 如何给自定义函数添加描述信息
- 紧急求救!!!
- 小弟在线等要多少分不成问题只要能帮小弟把这个程序调试通过。
- datetime:13239623230这个的值是怎么得到的
- 数据的删除?
- 怪了!怎么不能把Form2.0中的控件加入表单?
- 老板毕竟是老板,打工的始终是打工的!!!愤怒中,散分去去晦气。
- 哪位好心人能告诉我 dbOperate Sql 这个语句的含义啊,我才开始学vb,不明白啊!
- VB中将一个字符串分解赋值给一个数组,请进去看例子 (求解送分)
- 莱鸟问题 能不能在linux下用vb编的程序 请指教!!!!1
- 高手请进,问题与回调和编译有关
http://www.csdn.net/expert/topic/114/114714.shtm