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

sunny-xie

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

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

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 编辑 ]

sunny-xie

写在窗体open事件里是可以