2017-07-27 81 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