SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: F_Tanori en Jueves 27 de Diciembre de 2007, 12:04

Título: Obtener Las Propiedades De Un Control En Vb
Publicado por: F_Tanori en Jueves 27 de Diciembre de 2007, 12:04

Compañeros ....

Estoy un  poco olvidado de VB6, quisiera ver si alguien sabe una manera de recorrer las propiedades de un control (en VB6)....

Algo por el estilo de este codigo....  no funciona pues la coleccion Properties no existe en VB6 :(

Código: Text

1. Private Sub Command1_Click()
2. 'On Error Resume Next
3.     Dim oCtrl As Control, c As String * 1
4.     For Each oCtrl In Me.Controls
5.         For i = 1 To oCtrl.Properties.Count
6.             c = ""
7.             If oCtrl.Properties(i).Type = 8 Then
8.                 c = Chr(34)
9.             End If
10.             Debug.Print oCtrl.Properties(i).Name & "=" & c & oCtrl.Properties(i) & c
11.         Next i
12.     Next oCtrl
13.     Debug.Print vbCrLf
14. End Sub
15.  
16.  

se pude imprimir la propiedad por default segun el control..
(o en su defecto indicandola en el codigo 1 x 1.... :S  :P)

Código: Text

1.  
2. Private Sub Command1_Click()
3. 'On Error Resume Next
4.     Dim oCtrl As Control, c As String * 1
5.    
6.     For Each oCtrl In Me.Controls
7.             Debug.Print oCtrl.Name
8.             Debug.Print oCtrl
9.     Next oCtrl
10.     Debug.Print vbCrLf
11. End Sub
12.  

Pero lo que se busca es que se algo dinamico, y recorrer todas las propiedades de cada control, y ya saben se agradece cualquier orientacion e ideas ;)


Gracias
Saludos