2024年05月18日 首页 业界新闻 技术文档 黑客安全 源代码 应用下载 电子图书 电脑硬件 游戏世界 分类信息 编程论坛 博客日志  
‹‹ 上一主题 | 下一主题 ››
 12 12
发新话题
打印

自定义类型数组怎么付值

Nothing

管理员

Rank: 9Rank: 9Rank: 9Rank: 9Rank: 9
11# 大 中 小 发表于 2005-12-2 11:17  只看该作者
If Val(fh) >= 0 And Val(fh) <= 9 Then

这句有问题，不论你输入的是什么样的字符，只要不是数字 Val返回的值就是0

例如 Val("-")返回值就是0
你可以使用这样的
If IsNumeric(fh) Then

TOP

只爱陌生人

中级程序员

Rank: 3Rank: 3Rank: 3
12# 大 中 小 发表于 2006-4-13 11:35  只看该作者
在文本框的KeyPress事件里写上以下代码：
If (KeyAscii <> 8 And KeyAscii < 48) Or KeyAscii > 57 Then
    KeyAscii = 0
End If
这样就可以使只能在文本框里输入数字。keyascii=8是backspace键。
希望有一点帮助

TOP

‹‹ 上一主题 | 下一主题 ››
 12 12
发新话题