Programadores, los invoco(en el horno-problema)

[Rise_Against]

che tengo un problem. me baje d la net un source code d un programa de inventario. la cuestion es q el programa lo hizo un loco de las filipinas o por ahi y en esos lugares la , es . y el . es ,. me pa q por eso estan como estan
osea 1.000(mil aca en arg) en filipino se escribe 1,000 no se si me entienden...
si estas con la region "argentina"(en panel d control,region settings) a la hora d usar el prgrama hace cualquier cosa pq interpreta todo al reves. si lo cambias a la region d filipinas anda pero t queda q los. son , y al reves.
hay alguna forma de pasarlo a la "forma argentina"
el programa es en vb. osea no se alguna funcion o algo

grax

[CoyoteX]

Call SetLocaleInfo(GetSystemDefaultLCID(), LOCALE_SDECIMAL, ".")

[CoyoteX]

obviamente tenes que definir las constantes

[Rise_Against]

par aq yo no soy capo d las programacion,explicate mejor plz
osea en donde defino eso un un modulo, en todos los forms?

copie y pegue esto en un modulo y me dio infinidad d errores:

Option Explicit

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Copyright ©1996-2008 VBnet, Randy Birch, All Rights Reserved.
' Some pages may also contain other copyrights by the author.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Distribution: You can freely use this code in your own
'               applications, but you may not reproduce 
'               or publish this code on any web site,
'               online service, or distribute as source 
'               on any media without express permission.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public thisCombo As ComboBox

Public Const LOCALE_SLANGUAGE As Long = &H2     'localized name of language
Public Const LOCALE_SSHORTDATE As Long = &H1F   'short date format string
Public Const LOCALE_SLONGDATE As Long = &H20    'long date format string
Public Const DATE_LONGDATE As Long = &H2
Public Const DATE_SHORTDATE As Long = &H1
Public Const HWND_BROADCAST As Long = &HFFFF&
Public Const WM_SETTINGCHANGE As Long = &H1A

Public Declare Function PostMessage Lib "user32" _
   Alias "PostMessageA" _
  (ByVal hwnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   lParam As Any) As Long

Public Declare Function EnumDateFormats Lib "kernel32" _
   Alias "EnumDateFormatsA" _
  (ByVal lpDateFmtEnumProc As Long, _
   ByVal Locale As Long, _
   ByVal dwFlags As Long) As Long

Public Declare Sub CopyMemory Lib "kernel32" _
   Alias "RtlMoveMemory" _
  (Destination As Any, _
   Source As Any, _
   ByVal Length As Long)

Public Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long

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 Function GetUserLocaleInfo(ByVal dwLocaleID As Long, _
                                  ByVal dwLCType As Long) As String

   Dim sReturn As String
   Dim r As Long

  'call the function passing the Locale type
  'variable to retrieve the required size of
  'the string buffer needed
   r = GetLocaleInfo(dwLocaleID, dwLCType, sReturn, Len(sReturn))
    
  'if successful..
   If r Then
    
     'pad the buffer with spaces
      sReturn = Space$(r)
       
     'and call again passing the buffer
      r = GetLocaleInfo(dwLocaleID, dwLCType, sReturn, Len(sReturn))
     
     'if successful (r > 0)
      If r Then
      
        'r holds the size of the string
        'including the terminating null
         GetUserLocaleInfo = Left$(sReturn, r - 1)
      
      End If
   
   End If
    
End Function


Public Function EnumCalendarDateProc(lpDateFormatString As Long) As Long

  'application-defined callback function for EnumDateFormats
  
  'populates combo assigned to global var thisCombo
   thisCombo.AddItem StringFromPointer(lpDateFormatString)
   
  'return 1 to continue enumeration
   EnumCalendarDateProc = 1
   
End Function


Private Function StringFromPointer(lpString As Long) As String

   Dim pos As Long
   Dim buffer As String
   
  'pad a string to hold the data
   buffer = Space$(128)
   
  'copy the string pointed to by the return value
   CopyMemory ByVal buffer, lpString, ByVal Len(buffer)
   
  'remove the trailing null and trim
   pos = InStr(buffer, Chr$(0))
   
   If pos Then
      StringFromPointer = Left$(buffer, pos - 1)
   End If

End Function

[Piluex]

Igual yo no lo impondria, sino que lo preuntaria.

[CoyoteX]

igual al cerrar la app... tiene que revertirla...

[CoyoteX]

te falta esto :

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

[judío ginger daywalker petiso]

no propusiste una solucion mas negra porque no se te ocurrio, no?? deja que te ayudo...

remapea a nivel de OS las teclas '.' y ',' y listo!!

PROBLEM SOLVED

K

[CoyoteX]

que solucion eh.... para eso arranca las teclas y cambialas... o pegale un sticker arriba con la tecla cambiada y ya esta...

supongo que es muy practica tu solucion cuando lo que desarrollas lo usas vos solo

[judío ginger daywalker petiso]

creo que no entendiste que todo mi post era ironico...

hacer cambios system-wide que se prenden y apagan con tu programa ES UNA NEGRADA.

K

[CoyoteX]

y si... pero lamentablemente el encontro una solucion filipina.. en otros casos se encuetran soluciones afganas.... armenias o turkmenistanas... y da igual... para solucionar una solucion de mierda tenes que hacer cosas chanchas... porque lo logico es desarrollar vos toda la solucion para no pasar por eso

[Piluex]

Em, onda simple, te fijas cual es, y usas eso como referencia, el user de la pc esta acostumbrado, de ultima si cometes alguna negrada como guardar un float como string guarda tambien que caracter de decimales usaste, es una pavada che.

[Piluex]

Igual ahora que lo pienso no deberia hacer nada. Onda, que le pida al filipino q le arregle el programa y le done algunos dolarucos.

[Rise_Against]

bueno gte gracias x responder.
Coyotex, probe lo q me dijiste y me dice:
Ambiguous name detected:GetSystemDefaultLCID

ahora voy a leer lo d kkkkkk a ver q onda
gracias dnuevo

[judío ginger daywalker petiso]

POR DIOS, NO LEAS LO MIO CHABON!!!

MAAAAAASIVEEE FAILUREEEEEEEEEE

K