VB 用tab检查怎么编写?

[复制链接]
查看11 | 回复1 | 2009-3-27 22:06:29 | 显示全部楼层 |阅读模式
在text1输入要求
输入非数字字符和负数是跳出警告的框
通过按Tab键进行检查
就是鼠标移到另一个框的时候跳出来警告,怎么编写呀?请高手指点

回复

使用道具 举报

千问 | 2009-3-27 22:06:29 | 显示全部楼层
Private Sub Text1_LostFocus()
'检查是否全部都是数字
If IsNumeric(Text1.Text) = False Then
MsgBox "请输入数字"
End If
If Val(Text1.Text) < 0 Then
MsgBox "请输入大于0的数字"
End IfEnd Sub直接在text1的lastfocus事件中区写代码...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行