[菜鸟求助] 如何将输入文本的数字+或-呢~ - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → [菜鸟求助] 如何将输入文本的数字+或-呢~

标题：[菜鸟求助] 如何将输入文本的数字+或-呢~

只看楼主

adsl794613

等　级：新手上路
帖　子：5
专家分：0
注　册：2005-9-29

楼主

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

[菜鸟求助] 如何将输入文本的数字+或-呢~

还有如何限制文本筐为

只输入数字呢???

搜索更多相关主题的帖子: 文本　数字　输入　

2005-09-29 19:53

slore

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

第 2 楼

得分: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
        KeyAscii = 0
        Beep  '其他的发出Beep声音
End Select
End Sub

快上课了……

2005-10-01 08:28

leon2

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

第 3 楼

得分: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 vbKeyUp           '上箭头键
        '增加数字
        Text1.Text = CStr(Val(Text1.Text) + 1)
Case vbKeyDown      '下箭头键
        '减少数字
        Text1.Text = CStr(Val(Text1.Text) - 1)
Case Else
        KeyAscii = 0
        Beep  '其他的发出Beep声音
End Select
End Sub

2005-10-02 14:55

zi_feng

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

第 4 楼

得分:0

厉害

2005-10-12 15:18

老鸟a

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

第 5 楼

得分:0

哦！厉害