Ver Mensaje Individual
  #7 (permalink)  
Antiguo 31/03/2006, 17:45
Avatar de Fabuazul
Fabuazul
 
Fecha de Ingreso: febrero-2006
Ubicación: Entre cuatro paredes
Mensajes: 693
Antigüedad: 18 años, 3 meses
Puntos: 7
Cita:
Iniciado por aldo1982
en si lo ke veo es ke desde VB al usar el punto no lo toma sino ke toma la coma .. osea hay alguna manera parra ke al pulsar el punto lo reemplace poruna coma ??
Si se puede!!!

ReplaceCharInStr(text1.Text, ",", ".")

Agregas un modulo con esto:


Public Function ReplaceCharInStr(sData As String, Sr As String, sW As String) As String
Dim d As Integer
Dim c As String * 1
Dim tmp As String
For d = 1 To Len(sData)
c = Mid(sData, d, (d + 1))
If c = Sr Then
tmp = Mid(sData, 1, d - 1)
tmp = tmp & sW
tmp = tmp & Mid(sData, d + 1)
sData = tmp
End If
Next
ReplaceCharInStr = sData
End Function

y listo
__________________
Sí tienes alguna duda.... puedo ayudar a ampliarla.:-D