如何限制文本只能輸數字不能輸字母(解決) - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 如何限制文本只能輸數字不能輸字母(解決)

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1668 人关注过本帖

标题：如何限制文本只能輸數字不能輸字母(解決)

取消只看楼主加入收藏

jxyga111

来　自：中華人民共和國
等　级：贵宾
威　望：33
帖　子：6015
专家分：895
注　册：2008-3-21
结帖率：70%

楼主

问题点数：0 回复次数：5

如何限制文本只能輸數字不能輸字母(解決)

如何限制文本只能輸數字不能輸字母

[[it] 本帖最后由 jxyga111 于 2008-6-3 13:35 编辑 [/it]]

搜索更多相关主题的帖子: 文本　字母　

2008-05-28 11:42

jxyga111

来　自：中華人民共和國
等　级：贵宾
威　望：33
帖　子：6015
专家分：895
注　册：2008-3-21

第 2 楼

得分:0

用你這個辦法出錯
isnumeric(text1.text)=true
text1.text=MSF.TextMatrix(MSF.Row, 2)
提示要對象或變要是變體行

2008-05-28 17:02

jxyga111

来　自：中華人民共和國
等　级：贵宾
威　望：33
帖　子：6015
专家分：895
注　册：2008-3-21

第 3 楼

得分:0

[bo][un]flyue[/un] 在 2008-5-28 19:01 的发言：[/bo]

他打的是繁体中文，是汉语的一种

多謝替我解釋
樓上的有用有三種例子啊

2008-05-29 10:52

jxyga111

来　自：中華人民共和國
等　级：贵宾
威　望：33
帖　子：6015
专家分：895
注　册：2008-3-21

第 4 楼

得分:0

[bo][un]jxawgyl[/un] 在 2008-6-2 10:05 的发言：[/bo]

版主，能详细说清楚是如何解决。如：
Private Sub Text1_Change()

End Sub
中间添加？

不是改變事件而是鍵盤按下事件
private sub text1_keypress()
    If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 46 Then
        KeyAscii = 0
    End If
end sub

[[it] 本帖最后由 jxyga111 于 2008-6-2 17:04 编辑 [/it]]

[[it] 本帖最后由 jxyga111 于 2008-6-5 08:58 编辑 [/it]]

2008-06-02 11:32