Como especificar a nuestra aplicación
que configuración regional usar. Fecha: 01/Sep/2003 (02/Sep/2003) Autor: Angel Enrique Ruiz Pastor (Vzla), aruiz1979@hotmail.com
|
.
|
Este código nos muestra como realizar que nuestro Sistema trabaje en cualquier PC con la misma configuración Regional.
Abra un nuevo proyecto, En Proyectos de Visual Basic seleccione la plantilla Aplicación para Windows.
Agregue al Formulario un Texbox, un Label y un ButtonAhora le indicamos que:La propiedad del Texbox Text = """La propiedad del Label Text ="Introduzca el Monto"La propiedad del Button Text ="Ver"Ahora nos vamos a la parte de Código y en la primera Línea Colocamos:Imports
System.GlobalizationAhora en el evento Click de Button colocamos el siguiente código:Dim Cifra As Decimal Dim MiCultura As CultureInfo Dim Posicion As IntegerDim MiFormato As NumberFormatInfo = New CultureInfo(MiCultura.CurrentCulture.ToString(), False).NumberFormat
MiFormato.NumberDecimalSeparator = ","
Cifra = TextBox1.Text
Posicion = InStr(Cifra.ToString("N", MiFormato), MiFormato.NumberDecimalSeparator)
Cifra = Mid(Cifra.ToString, 1, Posicion + MiFormato.NumberDecimalDigits)
MessageBox.Show(Cifra.ToString("N", MiFormato))
Quedaría de la siguiente forma:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Cifra As Decimal Dim MiCultura As CultureInfo Dim Posicion As Integer Dim MiFormato As NumberFormatInfo = New CultureInfo(MiCultura.CurrentCulture.ToString(), False).NumberFormat MiFormato.NumberDecimalSeparator = "," Cifra = TextBox1.Text Posicion = InStr(Cifra.ToString("N", MiFormato), MiFormato.NumberDecimalSeparator) Cifra = Mid(Cifra.ToString, 1, Posicion + MiFormato.NumberDecimalDigits) MessageBox.Show(Cifra.ToString("N", MiFormato)) End SubAhora ejecute su aplicación presionando F5.
Fichero con el código de ejemplo, (arConfiguracionRegionalPropia.zip - 23,0 KB)