Sección de códigos , trucos y ejemplos para visual basic

212 - Obtener datos de la configuración Regional

Ejemplo que accede mediante Windows Script Host al registro para obtener los datos principales de la configuración regional: Datos de la Moneda, Números, Fecha y Hora.

vista del formulario de ejemplo con los botones para cada opción que recupera los datos de la configuracion regional de windows

En el ejemplo para acceder al registro se utiliza la Referencia a Windows Script Host Object Model, usando el método regRead, por eso es necesario marcar dicha referencia para poder utilizar este ejemplo, si no hacerlo con el Api de windows con las funciones RegOpenKey y RegOpenKeyEx como funciones principales

La rama del registro donde están todos estos valores es en: Control Panel\International

Nota: yo lo hice averiguando los datos mas comunes, pero hay algunos otros datos. Si se desea agregar algún otro dato, se debe conocer el nombre del valor y pasarle a la función Leer_Dato de este ejemplo, que es un parámetro String, el valor del registro a recuperar.

Colocar 11 Commandbutton. Los 4 primeros son para los datos de la Moneda ( Command1, Command2 etc..)

Los tres Command para los números son: Command5, Command6 y Command7. Los restantes son para los datos de Fecha y Hora.

Nota: no colocarle los caption a los botones ya que está en el código

Código fuente en un formulario:

'Variable para acceder al Registro mediante Wsh - Windows Scripting Host Dim O_Registro As WshShell Private Const LocalMachine As String = "HKEY_LOCAL_MACHINE" Private Const CurrentUser As String = "HKEY_CURRENT_USER" '------------------------------------------ ' Configuración de la MONEDA '------------------------------------------ ' Número de dígitos decimales para la moneda Private Sub Command1_Click() MsgBox Leer_Dato(CurrentUser, "iCurrDigits"), vbInformation End Sub 'Símbolo de Moneda Private Sub Command2_Click() MsgBox Leer_Dato(CurrentUser, "sCurrency"), vbInformation End Sub 'Símbolo del separador decimal para la moneda Private Sub Command3_Click() MsgBox Leer_Dato(CurrentUser, "sMonDecimalSep"), vbInformation End Sub 'Símbolo del separador de miles para la moneda Private Sub Command4_Click() MsgBox Leer_Dato(CurrentUser, "sMonThousandSep"), vbInformation End Sub '------------------------------------------ ' Configuración de los NUMEROS '------------------------------------------ ' Número de dígitos decimales Private Sub Command5_Click() MsgBox Leer_Dato(CurrentUser, "iDigits"), vbInformation End Sub 'Símbolo del separador de miles Private Sub Command6_Click() MsgBox Leer_Dato(CurrentUser, "sThousand"), vbInformation End Sub 'Símbolo del separador decimal Private Sub Command7_Click() MsgBox Leer_Dato(CurrentUser, "sDecimal"), vbInformation End Sub '------------------------------------------ ' Configuración de HORA y FECHA '------------------------------------------ ' Formato de hora Private Sub Command8_Click() MsgBox Leer_Dato(CurrentUser, "sTimeFormat"), vbInformation End Sub 'Símbolo separador de HORA Private Sub Command9_Click() MsgBox Leer_Dato(CurrentUser, "sTime"), vbInformation End Sub ' Formato de Fecha Corta Private Sub Command10_Click() MsgBox Leer_Dato(CurrentUser, "sShortDate"), vbInformation End Sub ' Formato de Fecha Larga Private Sub Command11_Click() MsgBox Leer_Dato(CurrentUser, "sLongDate"), vbInformation End Sub ' Función que lee el valor del registro en la rama Control Panel\International Function Leer_Dato(Principal As String, Valor As String) As String Leer_Dato = O_Registro.RegRead(Principal & "\Control Panel\International\" & Valor) End Function Private Sub Form_Load() Set O_Registro = New WshShell Command1.Caption = " N° Dígitos decimales" Command2.Caption = " Símbolo de Moneda" Command3.Caption = " Separador decimal" Command4.Caption = " Separador de miles" Command5.Caption = " N° Dígitos decimales" Command6.Caption = " Separador de miles" Command7.Caption = " Separador decimal" Command8.Caption = " Formato de hora " Command9.Caption = " Separador de HORA" Command10.Caption = " Fecha Corta " Command11.Caption = " Fecha Larga" End Sub Private Sub Form_Unload(Cancel As Integer) Set O_Registro = Nothing End Sub

Recursos Visual basic 6.0 - Enlaces relacionados

Obtener datos de la configuración regional de windows mediante el Api

Buscar en Recursos vb