TEXT框中输入货币格式问题

[flashrain]

如何让TEXT里只允许输入货币格式，比如数字和小数点

[huangchunhong]

用这个 IsNumeric 函数

• 打赏
• 举报

回复 赞

[jian_aa]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789." + vbBack, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Exit Sub
End If
End Sub

• 打赏
• 举报

回复 赞

[sysmaster]

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

• 打赏
• 举报

回复 赞

[sysmaster]

调为：
bool = Chr(KeyAscii) Like "[0-9.]" Or KeyAscii = 8

• 打赏
• 举报

回复 赞

[CAnders]

isnumeric

• 打赏
• 举报

回复 赞

[onlineboy]

也可以在text1_keypress过程中判断

• 打赏
• 举报

回复 赞