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

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 7
Ha disminuido su posición en 10 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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

Publicado por mario (6 intervenciones) el 01/09/2017 22:03:34
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

1
2
3
4
5
6
7
8
9
10
11
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
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
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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

Publicado por Andres Leonardo (1798 intervenciones) el 02/09/2017 00:00:05
El tema es por uqe necesitas el control...

pero en todo caso como lo has hecho si esta bien
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
sin imagen de perfil
Val: 7
Ha disminuido su posición en 10 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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

Publicado por mario (6 intervenciones) el 02/09/2017 00:08:32
Eso mismo pienso yo que está bien pero la verdad me manda un mensaje "No coinciden los tipos"
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
Imágen de perfil de Leonardo Daniel A.
Val: 52
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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

Publicado por Leonardo Daniel A. (34 intervenciones) el 02/09/2017 00:19:12
Hola, tienes mal el TypeOf, debes poner el nombre del parametro ( txt )

1
2
3
4
5
Private Sub validarControl(txt As TextBox)
   If TypeOf txt Is TextBox Then
       txt.Text = ""
    End If
End Sub
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
sin imagen de perfil
Val: 7
Ha disminuido su posición en 10 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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

Publicado por mario (6 intervenciones) el 02/09/2017 17:30:48
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:

1
2
3
4
5
6
7
8
9
10
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
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
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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

Publicado por Andres Leonardo (1798 intervenciones) el 04/09/2017 15:27:08
puedes poner entre parentesis .. pero usas CALL

1
Call validarControl( textBoxAlterno)

Pruebalo y me avisas
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