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
Private Sub Command1_Click()
'On Error Resume Next
Dim oCtrl As Control, c As String * 1
For Each oCtrl In Me.Controls
For i = 1 To oCtrl.Properties.Count
c = ""
If oCtrl.Properties(i).Type = 8 Then
c = Chr(34)
End If
Debug.Print oCtrl.Properties(i).Name & "=" & c & oCtrl.Properties(i) & c
Next i
Next oCtrl
Debug.Print vbCrLf
End Sub
se pude imprimir la propiedad por default segun el control..
(o en su defecto indicandola en el codigo 1 x 1.... :S
)
Private Sub Command1_Click()
'On Error Resume Next
Dim oCtrl As Control, c As String * 1
For Each oCtrl In Me.Controls
Debug.Print oCtrl.Name
Debug.Print oCtrl
Next oCtrl
Debug.Print vbCrLf
End Sub
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
