怀念Foxpro！！！

Question

我一般是写代码对数字输入的控制,我以前用Foxpro 5.0
感觉你的报表比VB的DataReport好用Public Function sffunLimitNumber(ByVal IntVal As Integer) As Integer
'-------------------1-------------------
'目    的：只允许在文本框内输入数字、退格、删除及回车键
'输    入：ByVal IntVal As Integer,任意的键值
'被传递值：无
'返 回 值：过滤后的键值
'输    出：无
'注    解：
'用    法：在文本框的KeyPress事件中输入KeyAscii = sffunLimitNumber(KeyAscii)即可
'修 订 版：
'-------------------1-------------------
If (IntVal <> vbKeyDelete) _
And (IntVal <> vbKeyBack) _
And (IntVal <> 13) _
And (IntVal < 48 Or IntVal > 57) Then
    IntVal = 0
End If
sffunLimitNumber = IntValEnd Function以下网站应该对你有帮助
www.21code.com
www.vbeden.com
www.vbgood.com

Answer 1

有一个叫protoview的公司出了一系列控件，有mask, date, number等，还比较好用，比VB自带的那个好用。不过我现在已经很少用了。如果需要，我可以给你mail过来。

Answer 2

up!
我也要！呵呵！
[email protected]

Answer 3

我试过了，但还有这个问题如某MaskEdit为"99.999"
但用户输入1.56时，因为他没有输入第一位零所以输入不合法，拒绝输入能不能自动跳过第一位？
如上例，输入1时在第一位，接着输入小数点，即可自动移动1到第二位

Answer 4

我很怀念FOXPRO的报表功能,
操作简单而功能强大