AYUDA!!!!!!
Publicado por Matias (80 intervenciones) el 28/08/2007 23:01:17
Estoy haciendo un programa en el que nesecito conocer los contenedores de los controles y si algun control esta adentro de "Picture1" entonces lo tiene que hacer invisible.
Este es el codigo que hice para ir probando :
Private Sub Command1_Click()
On Error Resume Next
Dim Chicho As Control
For i = 0 To Me.Count - 1
Set Chicho = Me.Controls(i)
List1.AddItem Chicho.Name & " , " & Chicho.Container
Next
End Sub
Esto me agrega en un listbox los nombre de los controles que son contenidos por algun otro control (Ejemplo un Boton dentro de un frame)
El problema es que si un control esta dentro de algun PictureBox no me da el nombre del PictureBox sino que me da Cero, por el contrario, si esta dentro de un Frame, me da el nombre
Ejemplo de lo que me aparece en la lista
Commnad2 , 0
Commnad3 , Frame1
Command4 , 0
Los que tienen el cero es porque estan contenidos por un picture
QUE HAGO!!!!
Ayuda!
Gracias de anteMano.
Este es el codigo que hice para ir probando :
Private Sub Command1_Click()
On Error Resume Next
Dim Chicho As Control
For i = 0 To Me.Count - 1
Set Chicho = Me.Controls(i)
List1.AddItem Chicho.Name & " , " & Chicho.Container
Next
End Sub
Esto me agrega en un listbox los nombre de los controles que son contenidos por algun otro control (Ejemplo un Boton dentro de un frame)
El problema es que si un control esta dentro de algun PictureBox no me da el nombre del PictureBox sino que me da Cero, por el contrario, si esta dentro de un Frame, me da el nombre
Ejemplo de lo que me aparece en la lista
Commnad2 , 0
Commnad3 , Frame1
Command4 , 0
Los que tienen el cero es porque estan contenidos por un picture
QUE HAGO!!!!
Ayuda!
Gracias de anteMano.
Valora esta pregunta
0