Como especificar a nuestra aplicaci�n que configuraci�n regional usar.
 

Fecha: 01/Sep/2003 (02/Sep/2003)

Autor: Angel Enrique Ruiz Pastor (Vzla), [email protected]

 

.

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 Button
 
Ahora 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.Globalization

Ahora en el evento Click de Button colocamos el siguiente c�digo:

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))

 
 
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 Sub

Ahora ejecute su aplicaci�n presionando F5.


ir al ndice

Fichero con el c�digo de ejemplo, (arConfiguracionRegionalPropia.zip - 23,0 KB)