Fallo Byref
Tengo un programa VB6 con esta sub:
Public Sub Aj(ByRef Texto)
Texto = Trim(Texto)
Texto = Replace(Texto, "'", "")
End Sub
en un formulario hago esta llamada:
Aj CNC_ID.Text
CNC_ID es una caja de texto.
Mi problema es que a pesar de que le paso por referencia el texto y este cambia en el entorno del sub, el texto de la caja de texto no varia.
Se como solucionarlo con una función, pero ¿por qué no funciona?
Parece que duplique el parámetro a pesar de que lo recibe por referencia.
Gracias de antemano.
Public Sub Aj(ByRef Texto)
Texto = Trim(Texto)
Texto = Replace(Texto, "'", "")
End Sub
en un formulario hago esta llamada:
Aj CNC_ID.Text
CNC_ID es una caja de texto.
Mi problema es que a pesar de que le paso por referencia el texto y este cambia en el entorno del sub, el texto de la caja de texto no varia.
Se como solucionarlo con una función, pero ¿por qué no funciona?
Parece que duplique el parámetro a pesar de que lo recibe por referencia.
Gracias de antemano.
1 respuesta
Respuesta de rafart
1