Borrar arreglos de controles

[lucasarts_18]

Hola a todos:

Siguiente los ejemplos del Guille he logrado crear un mapa con controles dinámicos leídos de la base de datos, ahora no he encontrado la manera de eliminarlos.

Código:

If li_contador = 1 Then
   I = PicCama.Count
   Load PicCama(I)
   J = LblCama.Count
   Load LblCama(J)
   Set PicCama(I).Container = FrmCamas
   Set LblCama(J).Container = PicCama(I)
   vAlto = 315
   PicCama(I).Top = vAlto
   PicCama(I).Left = 275
   PicCama(I).Visible = True
   LblCama(J).Visible = True
   LblCama(J).Caption = vCamaScreen
Else
   ...
   ...
   ...
End If

Como se los cargo mediante la palabra load, luego le establezco sus posiciones, finalmente lo hago visible, pero hasta ahora no he podido quitarlo, con unload no hubo caso.

Gracias amigos, cualquier solución es de agradecer.

Saludos .-

[Avellaneda]

Hola, la instrucción Erase elimina los elementos de una matriz de objetos (los deja a Nothing):

Erase PicCama

[lucasarts_18]

Hola:

Intente borrar Erase PicCama(5) y me dió error. Intentaré Erase PicCama.

Gracias, Avellaneda, estaré avisando como me fue.

[seba123neo]

pues claro que te dio error, tenes que poner el nombre del array como te dijeron...no el indice de un elemento del array...

saludos.

[lucasarts_18]

Iniciado por seba123neo

pues claro que te dio error, tenes que poner el nombre del array como te dijeron...no el indice de un elemento del array...

saludos.

Hola saba...

lo que manejo es un arreglo de controles (textbox), si lo borro con Erase PicCama, me sale lo siguiente:

---------------------------
Microsoft Visual Basic
---------------------------
Error de compilación:

Se esperaba una matriz
---------------------------
Aceptar Ayuda
---------------------------

Saludos. -

[David]

Puedes usar:

Código vb:

Unload Elemento(Indice)
 

[lucasarts_18]

Iniciado por David el Grande

Puedes usar:

Código vb:

Unload Elemento(Indice)
 

Hola David, tampoco pude con esta instrucción, ya que me salía, no se puede eliminar en este contexto, ese es el mensaje que me muestra visual.

Estos controles los tengo dentro de un frame, no se si tendría que ver esto.

Sigo investigando....

[lucasarts_18]

Estimados gracias a todos, funciona !!!!!!!!!!!!!!!!!!!

El asunto es que dentro del pinture box tenía un label, entonces estaba tratando de eliminar un contenedor que tenía dentro otro objeto creado en tiempo de ejecución.

Ahora si:

Unload LblCama(2) 'descargo primero el objeto interior
Unload PicCama(2) ' luego descargo el objeto contenedor

Ufff, costo dar con la solución, espero que a alguien le sea útil.

Gracias Totales !!!!!!!!!!!

[lucasarts_18]

Siempre hay un pero...

Este es mi código para eliminar

Código:

Private Sub CmbPiso_Click()
   If IsNumeric(CmbPiso.Text) Then
      For I = 1 To LblCama.Count - 1
         Unload LblCama(I)
         Unload PicCama(I)
      Next
      generarMapa (CInt(CmbPiso.Text))
   End If
End Sub

Private Sub Command_Click()
   
   For I = 1 To LblCama.Count - 1
      Unload LblCama(I)
      Unload PicCama(I)
   Next
End Sub

Si del combo lo ejecuto, me sale el mensaje que no se puede descargar, pero si lo dejo en otro control y lo ejecuto desde allí, por ejemplo un botón como el command_click, funciona bien.

Necesito implementarlo en un solo control, es decir en este caso es un combobox.

Alguna otro sugerencia compañeros ?

Gracias...