Visual Basic - Como configurar Windows con el separador decimal

Life is soft - evento anual de software empresarial
 
Vista:

Como configurar Windows con el separador decimal

Publicado por Carlos (31 intervenciones) el 20/06/2004 13:30:53
Amigos deseo que windows trabaje con coma en los separadores decimales. Como podria indicarlo por codigo cuando se inicia la aplicacion Visual. Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como configurar Windows con el separador decima

Publicado por Cecilia Colalongo (3116 intervenciones) el 20/06/2004 17:25:50
Lo puedes hacer con GetLocaleInfo y SetLocaleInfo:

Public 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

Public Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long

Public Const LOCALE_ICURRDIGITS = &H19 ' # local monetary digits
Public Const LOCALE_ICURRENCY = &H1B ' positive currency mode
Public Const LOCALE_IDIGITS = &H11 ' number of fractional digits
Public Const LOCALE_IINTLCURRDIGITS = &H1A ' # intl monetary digits
Public Const LOCALE_ILZERO = &H12 ' leading zeros for decimal
Public Const LOCALE_INEGCURR = &H1C ' negative currency mode
Public Const LOCALE_INEGSEPBYSPACE = &H57 ' mon sym sep by space from neg amt
Public Const LOCALE_INEGSIGNPOSN = &H53 ' negative sign position
Public Const LOCALE_INEGSYMPRECEDES = &H56 ' mon sym precedes neg amt
Public Const LOCALE_IPOSSEPBYSPACE = &H55 ' mon sym sep by space from pos amt
Public Const LOCALE_IPOSSIGNPOSN = &H52 ' positive sign position
Public Const LOCALE_IPOSSYMPRECEDES = &H54 ' mon sym precedes pos amt

Ten en cuenta que no es lo más convieniente ya que ninguna aplicación es quien para cambiar una configuración del sistema operativo decidida por el usuario.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar