[原创]大家帮帮忙来探讨一下 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → [原创]大家帮帮忙来探讨一下

标题：[原创]大家帮帮忙来探讨一下

只看楼主

随风的故事

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

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

[原创]大家帮帮忙来探讨一下

怎么限制点的输入啊,在文本框中

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

2005-10-25 21:21

slore

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

得分: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-25 22:30

随风的故事

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

得分:0

大哥,你的那个不对啊

2005-10-25 23:12

syh878

等　级：新手上路
威　望：2
帖　子：461
专家分：0
注　册：2005-9-2

得分:0

是不是要做计算器啊？？你看看我写的吧

Sst2hqVt.rar (2.24 KB) [原创]大家帮帮忙来探讨一下

2005-10-26 08:59