Visual Basic

dvsriram wrote:

Private Sub Properties_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim al As New ArrayList

For Each ctr As Control In whitepage.Controls
ComboBox1.Items.Add(ctr)
MessageBox.Show(ctr.ToString())
Next

End Sub

Private Sub AddControlsToPropertyCombo(ByVal container As Control)
    ' Enumerate the controls in the root container
    For Each ctr As Control In container.Controls
        ' adding each to the ComboBox
        ComboBox1.Items.Add(ctr)
 
        ' If this control has child controls
        If ctr.HasChildren Then
            ' Call this sub again using this control as the new parent container
            AddControlsToPropertyCombo(ctr)
        End If
    Next

Public Class ControlData
    Private _control As Control
 
    Public ReadOnly Property Control() As Control
        Get
            Return _control
        End Get
    End Property
 
    Public ReadOnly Property Name() As String
        Get
            Return _control.Name
        End Get
    End Property
 
    Public Sub New(ByVal control As Control)
        _control = control
    End Sub
 
    Public Overrides Function ToString() As String
        Return String.Format("{0} : {1}", _control.GetType.FullName, _control.Name)
    End Function
End Class

Private Sub PopulateControlsCombo(ByVal parentContainer As Control)
    For Each c As Control In Panel1.Controls
        ' Create a wrapper for the control we found
        Dim d As New ControlData(c)
        ' Add the wrapped control it to the ComboBox.  The Add method automatically
        ' calls the ToString method of whatever object you pass into it.
        ComboBox1.Items.Add(d)
        ' If this control has child controls...
        If d.Control.HasChildren Then
            ' Call ourself with the current control as the new parent container.
            PopulateControlsCombo(d.Control)
        End If
    Next
End Sub

Dim d As ControlData = DirectCast(ComboBox1.SelectedItem, ControlData)
PropertyGrid1.SelectedObject = d.Control

If (ctrl.GetType().ToString() = "System.Windows.Forms.Label") Then<br />
           Dim d As ContolData = New ContolData(ctrl)<br />
           PropertyGrid1.SelectedObject = d.Control

ComboBox1.SelectedItem = ctrl.name<br />
                    Dim cd As ContolData = New ContolData(ctrl)<br />
                    PropertyGrid1.SelectedObject = cd

dvsriram wrote:

But the code u gave is showing in 2 properties + icons ,If user has to click those icons and then he can see the properties . I want to assign normally .I use like this .

dvsriram wrote:

If (ctrl.GetType().ToString() = "System.Windows.Forms.Label") Then
Dim d As ContolData = New ContolData(ctrl)
PropertyGrid1.SelectedObject = d.Control

If TypeOf ctrl Is Label Then

dvsriram wrote:

2) When i am selecting an item in combobox1 . i am not able to get the properties in propertygrid of that particular item i.e, in ComboBox1_SelectedIndexChanged,i am getting error as "Object reference not set to an instance of an object".Bcoz ,if i take it as control it is displaying in propertygrid .

dvsriram wrote:

3) Exactly my task which looks like creation of controls in vs2005 (drag drop,everything for properties same) but it is has something more but all these things i have to create on pages like page1 ,page2 ...and save with a name . And i have to set the page1 properties i.e., width and height so that it can appear one like in word doc . A4 (sizes) ,A3

@largeinsd wrote:

1) Automate Explorer (or Firefox) to browse the web and download weather images so they're on my machine when i wake up in the morning?

@largeinsd wrote:

2) Create back ups of specific local folders and ftp them to my web server?

Dim currentForm As Form
If TypeOf(currentForm) Is frmPad Then
    Dim padForm As frmPad = DirectCast(currentForm, frmPad)
    ... do whatever you need to do to the form ...
End If