cambiar configuracion regional

spidermanfgz
02 de Noviembre del 2003
Necesito conocer el código en visual basic 5.0 que me permita obtener los parámetros de configuración regional de una computadora como son fecha, moneda, etc. e igualmente modificarlos. El sistema operativo con el que trabaja mi computadora es XP. Se puede lograr esto con visual Basic 3.0??

AlexSpain
02 de Noviembre del 2003
Es la primera vez que respondo, yo también lo necesito aunque bajo visual basic 6.0, extraido de "canalvisualbasic.com". Espero que te sirva. Un saludo.

Cambiar la configuración regional del equipo desde un codigo en visual basic 6. Concretamente, cambiar la configuración del simbolo decimal y del simbolo de separación de miles.

Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean

Private Const LOCALE_SYSTEM_DEFAULT = &H800 'presentar información del sistema
Private Const LOCALE_USER_DEFAULT = &H400 'presentar información del usuario

Private Const LOCALE_SDECIMAL = &HE ' decimal separator
Private Const LOCALE_STHOUSAND = &HF ' thousand separator

Private Sub Command1_Click()
Dim X&

X = SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SDECIMAL, ",")
X = SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_STHOUSAND, ".")
End Sub