• Miércoles 24 de Julio de 2024, 07:18

Autor Tema:  Obtener Las Propiedades De Un Control En Vb  (Leído 1906 veces)

F_Tanori

  • Moderador
  • ******
  • Mensajes: 1919
  • Nacionalidad: mx
    • Ver Perfil
Obtener Las Propiedades De Un Control En Vb
« en: Jueves 27 de Diciembre de 2007, 12:04 »
0
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
" 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
===========================================================================================================================