This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Option Explicit | |
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' | |
' Copyright ©1996-2011 VBnet/Randy Birch, All Rights Reserved. | |
' Some pages may also contain other copyrights by the author. | |
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' | |
' Distribution: You can freely use this code in your own | |
' applications, but you may not reproduce | |
' or publish this code on any web site, | |
' online service, or distribute as source |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Private Sub cmdChangeWindowsDecimalPointComma_Click() | |
Dim LCID As Long | |
LCID = GetSystemDefaultLCID() | |
Dim bOk As Boolean | |
Dim txt As String | |
txt = GetUserLocaleInfo(LCID, LOCALE_SDECIMAL) | |
bOk = SetLocaleInfo(LCID, LOCALE_SDECIMAL, ",") |