2017-07-27 82 views
0

有人可以帮助我理解VB代码。 我必须编写相应的Java代码。但我无法理解VB代码。这是关于修改区域设置。如何在Java中编写区域设置代码

Dim sTemp As String 
mstrDecimalSepChar = OS_GetRegionalSetting(DecimalSeparator) 
OS_SetRegionalSetting DecimalSeparator, "." 
sTemp = OS_GetRegionalSetting(DecimalSeparator) 

mstrThousandsSepChar = OS_GetRegionalSetting(ThousandsSeparator) 
OS_SetRegionalSetting ThousandsSeparator, "," 
sTemp = sTemp & OS_GetRegionalSetting(ThousandsSeparator) 

SetRegionalSettings = (sTemp = ".,") 
+1

如果你想获得VB专家的意见,我想,你应该标记用vb标签这个问题 –

回答

0
Dim sTemp As String 

mstrDecimalSepChar = OS_GetRegionalSetting(DecimalSeparator)  ' save current system setting for the separator 
OS_SetRegionalSetting DecimalSeparator, "."      ' set separator to "." 

mstrThousandsSepChar = OS_GetRegionalSetting(ThousandsSeparator) ' save current system setting for the separator 
OS_SetRegionalSetting ThousandsSeparator, ","      ' set separator to "," 

sTemp = OS_GetRegionalSetting(DecimalSeparator)     ' retrieve the system settings of the two separators 
sTemp = sTemp & OS_GetRegionalSetting(ThousandsSeparator) 

SetRegionalSettings = (sTemp = ".,")        ' return True if separators are now "." and "," in system settings