Office中国论坛/Access中国论坛

标题: [解决了]显示小数点前导0问题? [打印本页]

作者: sunny-xie 时间: 2008-3-31 12:13
标题: [解决了]显示小数点前导0问题?
[attach]29368[/attach]

看了资料,有说设置固定格式就好,怎么设置不来?
在文本框输入时0~1之间的数值显示为0.000的格式(如0.003 而不是显示.003)
很多人遇到的问题,请达人详细解答!

[ 本帖最后由 sunny-xie 于 2008-4-1 08:36 编辑 ]

作者: tmtony 时间: 2008-3-31 12:16
如果显示为.003,则与程序无关,则在控制面板区域设置中数字格式中设置显示前导零

作者: gdfsslec 时间: 2008-3-31 13:59
也可以用代码来实现

作者: sunny-xie 时间: 2008-3-31 14:25
标题: 回复 4# 的帖子
可否在文本框里输入的时候就自动完成转换?

作者: sunny-xie 时间: 2008-3-31 14:27
控制面版里是可改,
哎,总不能让每个用到这个库的人去改的吧

还是能自动完成转换好

作者: sunny-xie 时间: 2008-3-31 17:08
Dim Buffer As String * 100
   Dim lngLocale As Long
   Dim GetLanguage As String
   lngLocale = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_ILZERO, Buffer, 99)
   GetLanguage = LPSTRToVBString(Buffer)
   If GetLanguage = 0 Then SetLocaleInfo lngLocale, LOCALE_ILZERO, 1
能否让这个代码在窗体打开时自动把控制面版里的设置改为显示前导0?

[ 本帖最后由 sunny-xie 于 2008-3-31 17:11 编辑 ]

作者: gdfsslec 时间: 2008-3-31 18:07

原帖由 sunny-xie 于 2008-3-31 14:27 发表
控制面版里是可改,
哎,总不能让每个用到这个库的人去改的吧

还是能自动完成转换好

用代码的目的就是这样啊，放在启动窗体里就是喽。

作者: tmtony 时间: 2008-4-1 13:19

原帖由 sunny-xie 于 2008-3-31 17:08 发表
Dim Buffer As String * 100
   Dim lngLocale As Long
   Dim GetLanguage As String
   lngLocale = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_ILZERO, Buffer, 99)
   GetLanguage = LPSTRToVB ...

这个方法试过是否可以

作者: sunny-xie 时间: 2008-4-1 15:32
标题: 回复 9# 的帖子
写在窗体open事件里是可以

作者: tz-chf 时间: 2008-7-21 10:55
调用了API，会被卡巴拦截，反而引起客户误会。还是让他自己到控制面板里改好。

作者: wjb5645 时间: 2008-7-21 16:12
还差一步哟,没有象控制面版里修改有个应用确定马上就修正了(看区域选项里还在等确定呢),你要等win重启才有效呀?
望能完善!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)