默认头像
路人甲
路人甲
  • 注册日期2005-05-12
  • 发帖数74
  • QQ
  • 铜币90枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:2439回复:4

[求助]VB中如何在text中只能输入数字?

楼主#
更多 发布于:2005-05-12 12:54
我是VB新手,在写作业中想在一个text中只输入数字,但是不知道怎么才能做到这点,望高手指点,感激不尽!
喜欢0 评分0
默认头像
gis
管理员
管理员
  • 注册日期2003-07-16
  • 发帖数15951
  • QQ
  • 铜币25345枚
  • 威望15368点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • 帝国沙发管家
  • GIS帝国明星
  • GIS帝国铁杆
1楼#
发布于:2005-05-18 10:40

控制acii码就行,不是数字的,不执行任何时间就ok

GIS麦田守望者,期待与您交流。
举报 回复(0) 喜欢(0)     评分
默认头像
路人甲
路人甲
  • 注册日期2005-05-12
  • 发帖数74
  • QQ
  • 铜币90枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2005-05-18 16:40
举报 回复(0) 喜欢(0)     评分
默认头像
路人甲
路人甲
  • 注册日期2005-05-21
  • 发帖数7
  • QQ
  • 铜币36枚
  • 威望0点
  • 贡献值0点
  • 银元0个
3楼#
发布于:2005-05-21 23:32

Private Sub Text1_KeyPress(KeyAscii As Integer) Dim s As String * 1 s = Chr(KeyAscii) If InStr("0123456789-.,", s) = 0 And KeyAscii <> 8 Then   KeyAscii = 0 End If End Sub

用这个代码试试

举报 回复(0) 喜欢(0)     评分
默认头像
路人甲
路人甲
  • 注册日期2005-05-21
  • 发帖数7
  • QQ
  • 铜币36枚
  • 威望0点
  • 贡献值0点
  • 银元0个
4楼#
发布于:2005-05-21 23:32

Private Sub Text1_KeyPress(KeyAscii As Integer) Dim s As String * 1 s = Chr(KeyAscii) If InStr("0123456789-.,", s) = 0 And KeyAscii <> 8 Then   KeyAscii = 0 End If End Sub

用这个代码试试

举报 回复(0) 喜欢(0)     评分
默认头像

返回顶部