代码如下
If Txt1.Text <> Int(Txt1.Text) Then MsgBox "你输入的有小数", 48 + 1, "提示" And Txt1.Text = ""
请各位大虾解决下
vb中text中如果输入错误就用msgbox提示信息然后将text内容清除
答案:3 悬赏:20 手机版
解决时间 2021-05-06 11:25
- 提问者网友：富士山上尢
- 2021-05-05 14:45
最佳答案
- 五星知识达人网友：往事隔山水
- 2021-05-05 15:07
If InStr(1, Text1.Text, ".") <> 0 Then
MsgBox "你输入的有小数", 48 + 1, "提示"
Text1.Text = ""
End If
MsgBox "你输入的有小数", 48 + 1, "提示"
Text1.Text = ""
End If
全部回答
- 1楼网友：鱼忧
- 2021-05-05 16:45
If InStr(Text1.text, ".") > 0 Then
MSEG=MsgBox ("你输入的有小数", 0, "提示" )
Text1.Text = ""
end if
- 2楼网友：荒野風
- 2021-05-05 15:24
If Txt1.Text <> Int(Txt1.Text) Then
MsgBox "你输入的有小数", 48 + 1, "提示"
Txt1.Text = ""
end if
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯