• Domingo 22 de Diciembre de 2024, 09:15

Autor Tema:  Como pasar un array de TextBoxes como parámetro a un Sub  (Leído 2069 veces)

silmacper

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Como pasar un array de TextBoxes como parámetro a un Sub
« en: Jueves 9 de Octubre de 2008, 22:51 »
0
Hola a todos !

Estoy trabajando con forms que tienen varias cajas de texto, y se me ocurrió agruparlas en arrays de controles para facilitar las tareas en comun como validar e inicializar.
En un form tengo 3 textboxes en un array de controles, y un boton que les tiene que borrar su contenido.

Lo que quiero hacer es lo siguiente: en el onClick del boton, quiero pasar el array de textboxes como parametro a un Sub que les borra su contenido.

Este es el código que tengo:

Private Sub Command1_Click()
   Call delete(Text1())
End Sub

Sub delete(ByRef textbox() As Control)
   Dim i As Integer
   For i = 1 To 3
      textbox(i).Text = ""
   Next
End Sub

El problema es que presionar el botón command1 me da el siguiente error:
Error de compilación: Error de tipo: Se esperaba una matriz o un tipo definido por el usuario.

Si alguien sabe donde esta mi error y me puede dar una mano con esto, desde ya le agradezco mucho!

Silvana

F_Tanori

  • Moderador
  • ******
  • Mensajes: 1919
  • Nacionalidad: mx
    • Ver Perfil
Re: Como pasar un array de TextBoxes como parámetro a un Sub
« Respuesta #1 en: Jueves 9 de Octubre de 2008, 23:35 »
0
Aqui hay una opcion enviarlo como objeto, no como control ya que no todos los controles tienen las mismas propiedades

Código: Visual Basic
  1.  
  2. Private Sub Command1_Click()
  3.    delete Text1
  4. End Sub
  5.  
  6. Sub delete(ByRef textbox As Object)
  7.     Dim i As Integer
  8.     For i = textbox.LBound To textbox.UBound
  9.         textbox(i).Text = ""
  10.     Next
  11. End Sub
  12.  


Comentarios:

El procedimiento no deberia llamarse delete pues no elimina el objeto deberia tener otro nombre (aunque esto no afecta, es por entendimiento) ejemplos: deleteText,Erase,CleanTextBox etc. :P , pues se entiende como eliminar el objeto


Saludos
" ExIsTo y A vEcEs PiEnSo "

NOTA:
===========================================================================================================================
Este foro es para ayudar, aprender, compartir... usenlo para eso,
NO SE RESUELVEN DUDAS POR MENSAJE PRIVADO Y MENOS POR CORREO
===========================================================================================================================

silmacper

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re: Como pasar un array de TextBoxes como parámetro a un Sub
« Respuesta #2 en: Viernes 10 de Octubre de 2008, 00:28 »
0
Hola,

Me funcionó perfecto tu explicación.

Muchisimas gracias F_Tanori !