（分享）解决数字的前导零不显示的问题

tmtony

1。在控制面板中的区域设置中，将 数字前导零显示格式 修改一下

2。使用API代码
   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

tdhgj

good

purplerose

有人在群里问过这个问题，数字前导0不显示，正好用上，谢谢！

飘过

厉害