rsaatpresys
rsaatpresys
/ Form1.frm
Created
October 31, 2017 12:23
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, ",") |
rsaatpresys
/ Module.bas
Created
October 31, 2017 12:18
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 |