请大家一起来讨论一下 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 请大家一起来讨论一下

标题：请大家一起来讨论一下

只看楼主

随风的故事

等　级：新手上路
帖　子：32
专家分：0
注　册：2005-10-8

楼主

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

请大家一起来讨论一下

Private Sub Text1_KeyPress(KeyAscii As Integer)
If ((Asc("") < 49 And Asc("") > 57) Or (Asc("") <> 46) Or (Asc("") <> 118)) Then
Text1.Text = Text1.Text & ""
End If
End Sub

搜索更多相关主题的帖子: 118　

2005-10-10 21:14

辉少

等　级：新手上路
威　望：2
帖　子：147
专家分：7
注　册：2005-8-25

第 2 楼

得分:0

说说你的要求先啦！

辉少QQ:469781880 博客:http:///bbs/boke.asp?25189.index.html

2005-10-10 21:32

随风的故事

等　级：新手上路
帖　子：32
专家分：0
注　册：2005-10-8

第 3 楼

得分:0

要求把除1----9和点以外的信息键盘书不进去

2005-10-10 21:55

leon2

等　级：新手上路
威　望：7
帖　子：731
专家分：0
注　册：2005-3-18

第 4 楼

得分:0

你可以这样写:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not ((KeyAscii >= 49) And (KeyAscii <= 57)) Then '不在 1 ~ 9 范围
KeyAscii = 0 '这样就可以不显示输入的字符了
Beep '提示用户输入不正确，发出"嘀"声
End If
End Sub

2005-10-10 23:16

随风的故事

等　级：新手上路
帖　子：32
专家分：0
注　册：2005-10-8

第 5 楼

得分:0

怎么可以输退格键啊

2005-10-11 11:37

leon2

等　级：新手上路
威　望：7
帖　子：731
专家分：0
注　册：2005-3-18

第 6 楼

得分:0

改成:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not ((KeyAscii >= 49) And (KeyAscii <= 57)) And KeyAscii <> vbKeyBack Then '不在 1 ~ 9 和退格键范围
KeyAscii = 0 '这样就可以不显示输入的字符了
Beep '提示用户输入不正确，发出"嘀"声
End If
End Sub

2005-10-11 13:15

slore

等　级：贵宾
威　望：16
帖　子：1108
专家分：0
注　册：2005-7-1

第 7 楼

得分:0

Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc("0") To Asc("9"), vbKeyBack '允许 0~9数字和退格键 Case Asc(".") '只允许一个小数点 If InStr(1, Text1.Text, ".") > 0 Then KeyAscii = 0 Case Else '其他键无效并发出Beep声音 KeyAscii = 0 Beep End Select End Sub

快上课了……

2005-10-11 13:27

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-29792-1-1.html