TEXT框中输入货币格式问题

flashrain 2004-05-06 03:48:21
如何让TEXT里只允许输入货币格式,比如数字和小数点
...全文
98 6 打赏 收藏 举报
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
onlineboy 2004-05-07
也可以在text1_keypress过程中判断
  • 打赏
  • 举报
回复
CAnders 2004-05-07
isnumeric
  • 打赏
  • 举报
回复
sysmaster 2004-05-07
调为:
bool = Chr(KeyAscii) Like "[0-9.]" Or KeyAscii = 8
  • 打赏
  • 举报
回复
sysmaster 2004-05-07
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim bool As Boolean
bool = Chr(KeyAscii) Like "[1-9 .]" Or KeyAscii = 8
If Not bool Then
KeyAscii = 0
End If
End Sub
  • 打赏
  • 举报
回复
jian_aa 2004-05-07
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789." + vbBack, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Exit Sub
End If
End Sub
  • 打赏
  • 举报
回复
huangchunhong 2004-05-07
用这个 IsNumeric 函数
  • 打赏
  • 举报
回复
相关推荐
发帖
VB基础类
加入

7595

社区成员

VB 基础类
社区管理员
  • VB基础类社区
申请成为版主
帖子事件
创建了帖子
2004-05-06 03:48
社区公告
暂无公告