[解决了]显示小数点前导0问题?

sunny-xie

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

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

tmtony

如果显示为.003,则与程序无关,则在控制面板 区域 设置中 数字格式中设置显示前导零

gdfsslec

也可以用代码来实现

sunny-xie

可否在文本框里输入的时候就自动完成转换?

sunny-xie

控制面版里是可改,
哎,总不能让每个用到这个库的人去改的吧

还是能自动完成转换好

sunny-xie

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

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

还是能自动完成转换好

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

tmtony

原帖由 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

写在窗体open事件里是可以

tz-chf

调用了API，会被卡巴拦截，反而引起客户误会。还是让他自己到控制面板里改好。