Reemplazar Comas por Puntos en visual basic

[oJosLoCos]

No es tan sencillo.... almenos yo no lo veo así.

Los resultados de la formula de la equacion de segundo grado van saliendo , ya que es un proyecto visual. De nada me sirve declarar variable para remplazar 1 vez la coma por el punto , necesito saber como hacerlo siempre , `Para que este marcado en todo el programa.. , ya que sino , como explico en el primer post , el programa hace una operacion , que sale en un nuevo txtbox , i si ese numero va en decimal , lleva una , y la coma no la reconoce como separacion entre entero y decimal , por lo tanto no puede seguir operando correctamente.

[Hasseds]

Código [Seleccionar] Expandir




Private Sub Text1_Change()
  Text1 = Replace(Text1, ",", ".")
End Sub

Private Sub Text2_Change()
Text2 = Replace(Text2, ",", ".")
End Sub




[BlackZeroX]

No se si funcione bien lo acabo de hace con el Block de Notas...

Corregido: Solo ingresa numeros con coma decimal el codigo te devuelve la suma con las comas decimales pertinentes.

Código (vb) [Seleccionar] Expandir



Private Sub Form_Load()
   Dim res  As String
   res = SumaFormatodecimal(3, "3,454.456,45", "3,454.456,45")
   Call ReplacePuntoPorcomaDescimal(res)
   Call MsgBox(res)
End Sub

Public Function SumaFormatodecimal(ParamArray Numeros()) As String
Dim Num             As Variant
Dim Aux             As String

   For Each Num In Numeros
       Aux = Num
       Call ReplaceComaDescimal(Aux)
       SumaFormatodecimal = Val(SumaFormatodecimal) + Val(Aux)
   Next
End Function

Public Sub ReplaceComaDescimal(ByRef ValStr As String)
   ValStr = Replace(ValStr, ",", "")
End Sub

Public Sub ReplacePuntoPorcomaDescimal(ByRef ValStr)
Dim spl()               As String
Dim LenAfter          as integer
   spl = Split(CStr(ValStr), ".")
   LenAfter = IIf(IniArray(spl), Len(spl(1)), 0)
   ValStr = FormatNumber(ValStr, LenAfter, vbTrue, vbTrue, vbTrue)
End Sub

Public Function IniArray(varArray() As String) As Boolean
On Error Resume Next
   If ((Not varArray) = -1) Then
       IniArray = False
   Else
       IniArray = True
   End If
End Function



Dulces Lunas!¡.

[BlackZeroX]

para los textbox haces un for each

mira esta pagina:

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/163-for-each-deshabilitar-frame.htm

[oJosLoCos]

Muchas gracias , tanto al ejemplo como al aporte , me ha servido , empezare a hacerlo..
Gracias