Pasar un textbox a una función o mètodo en vb 6.0

[marc85]

Hola de antemano gracias por la ayuda, necesito saber cómo puedo hacer para pasar un textbox a una función yo lo hago de la siguiente manera

Private Sub Command1_Click()
   'Nombre del textbox del formulario es textBoxAlterno
   validarControl (textBoxAlterno)
End Sub


Private Sub validarControl(txt As TextBox)
    If TypeOf control Is TextBox Then
        txt.Text = ""
    End If
End Sub

[ivancea96]

¿Qué problema te genera ese código?

[marc85]

Gracias por el apoyo, encontré el error el cual era al momento del llamado en 6.0 al parecer cuando se envía un control como parámetro se debe enviar sin parétesis, por lo cual el código quedaría de la siguiente manera:

Private Sub Command1_Click()
'Nombre del textbox del formulario es textBoxAlterno
validarControl textBoxAlterno
End Sub

Private Sub validarControl(txt As TextBox)
If TypeOf control Is TextBox Then
txt.Text = ""
End If
End Sub

[PalitroqueZ]

no utilices procedimientos sub, utiliza la función propiamente.

Código [Seleccionar] Expandir


Function pepe (x as tipo de datos)
pepe=x + "..."
End Function

...
y=pepe(z)
...


[ivancea96]

no utilices procedimientos sub, utiliza la función propiamente.

Código [Seleccionar] Expandir


Function pepe (x as tipo de datos)
pepe=x + "..."
End Function

...
y=pepe(z)
...


Un Sub se utiliza cuando no va a haber retorno. Es mejor utilizar Sub en estos casos, es para lo que sirve.

[Serapis]

Function o sub, no importa, aunque ivancea96, te dice lo correcto...

El problema en tu código es que recibes peras y preguntas que si coco es fruta, luego dame 5 peras ...

Private Sub validarControl(txt As TextBox)
    If TypeOf control Is TextBox Then
        txt.Text = ""
    End If
End Sub

txt = Peras; control = Coco

Si son peras, peras, si son cocos, cocos... no mezcles.

Código [Seleccionar] Expandir


If Typeof(txt) is textbox then
  '... lo que sea que quieras hacer
end if