Visual Basic - pasar un textbox como referencia

Life is soft - evento anual de software empresarial
 
Vista:

pasar un textbox como referencia

Publicado por Buka (94 intervenciones) el 11/10/2003 00:37:33
Hola amigos,

Mi problema es el siguiente, tengo una formulario y un textbox, en el evento change del textbox envio el contenido de este a una funcion, el codigo es el siguiente:

Private Sub txufa_Change()
txufa = cambios2(txufa)
End Sub

la funcion se encuentra en un modulo y tiene el siguiente prototipo:

Function cambios2(tex As TextBox) As TextBox

Bien, como se daran cuenta, necesito pasar el contenido del textbox (txufa) a esta funcion, esta la procesa y la envia de vuelta. pero cuando se gatiila el evento Change en tiempo de ejecución me aparece este mensaje de VB:

"La variable de objeto o la variable de bloque With no esta establecida"

cual es la solucion a este problema??

gracias por su atencion
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:pasar un textbox como referencia

Publicado por Fabian (501 intervenciones) el 12/10/2003 07:05:03
No esplicas bien cual es tu proposito, pero deberias probar en cualquier caso con esto:
Function cambios2(tex As string) As variant

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

RE:pasar un textbox como referencia

Publicado por Buka (94 intervenciones) el 13/10/2003 17:09:08
hola,
ok logre pasar el contenido del texto del form a la funcion que esta en el modulo, el resto de la funcion es la siguiente (en el modulo):

Function cambios2(texto As String) As Variant
Dim tex As TextBox
Dim posSel As Long
tex.Text = texto
posSel = tex.SelStart
tex.Text = Format(tex.Text, "###,###")
tex.SelStart = posSel + 1
End function

lo que hace esta funcion separar en miles el contenido del textbox (ej: 1.000). la idea es pasar a esta funcion, todos los contenidos de los textbox que tienen valores y que los devuelva con formato (999.999)

el problema ahora es la sentencia

"tex.text=texto"

me tira el mismo error.
tambien intente con: "tex=texto", CON EL MISMO RESUTANDO

espero puedan ayudarme

Buka
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