Título: Pasar un textbox a una función o mètodo en vb 6.0 Publicado por: marc85 en 1 Septiembre 2017, 22:02 pm 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 Título: Re: Pasar un textbox a una función o mètodo en vb 6.0 Publicado por: ivancea96 en 2 Septiembre 2017, 02:22 am ¿Qué problema te genera ese código?
Título: Re: Pasar un textbox a una función o mètodo en vb 6.0 Publicado por: marc85 en 2 Septiembre 2017, 17:39 pm 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 Título: Re: Pasar un textbox a una función o mètodo en vb 6.0 Publicado por: PalitroqueZ en 2 Septiembre 2017, 18:26 pm no utilices procedimientos sub, utiliza la función propiamente.
Código: Function pepe (x as tipo de datos) Título: Re: Pasar un textbox a una función o mètodo en vb 6.0 Publicado por: ivancea96 en 2 Septiembre 2017, 18:34 pm no utilices procedimientos sub, utiliza la función propiamente. Código: Function pepe (x as tipo de datos) Un Sub se utiliza cuando no va a haber retorno. Es mejor utilizar Sub en estos casos, es para lo que sirve. Título: Re: Pasar un textbox a una función o mètodo en vb 6.0 Publicado por: Serapis en 3 Septiembre 2017, 00:33 am 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 ... Citar 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: If Typeof(txt) is textbox then |