• Top Members
    Reps
    Posts
  • 834 Replies
    2585 Replies
  • 716 Replies
    2025 Replies
  • 331 Replies
    1928 Replies

Controls?

Please LOCK your topics once you have found the solution to your question so we know you no longer require help with your query.
User avatar
Dummy1912
VIP - Donator
Posts: 1959

Controls?

Mon Dec 12, 2016 6:18 pm

Hello,

We have a custom usercontrol call 'SkinDate'
where we add at CreateHandle() in a Panel with our 'SkinDateAdding' controls

'SkinDate info

Code: Select all

    Dim l1 As New SkinDateAdding
    Dim l2 As New SkinDateAdding
    Dim l3 As New SkinDateAdding
    Dim ct As New Panel

Protected Overrides Sub CreateHandle()
        MyBase.CreateHandle()
        l1.Dock = DockStyle.Top
        l2.Dock = DockStyle.Top
        l3.Dock = DockStyle.Top

        ct.Location = New Point(0, 21)
        Controls.Add(ct)
        ct.Controls.Add(l3)
        ct.Controls.Add(l2)
        ct.Controls.Add(l1)

    End Sub
now this works fine
if we add a new custompanel in our form with the skindateadding control
we like to add our data in those controls

like so in our example
but its not working :(

and no we don't get any errors
just the skindate controls has been added by manually
any ideas please

'Form1 with a custompanel that contains our SkinDate

Code: Select all

For Each itm As Control In EnumerateAllControls(Me)
            For Each c As Control In itm.Controls
                If TypeOf c Is SkinDate Then
                    CType(c, SkinDateAdding).Description = "Test"
                    CType(c, SkinDateAdding).Description = "Test2"
                        CType(c, SkinDateAdding).Description = "test3"
                    End If
            Next
        Next

User avatar
CodenStuff
Site Admin
Posts: 4367

Re: Controls?

Tue Dec 13, 2016 5:00 pm

Send me your stuff I'll have a nosey :)
Welcome to CodenStuff.com Learn Code, Love Code. Thank you for being a member of the community.

User avatar
CodenStuff
Site Admin
Posts: 4367

Re: Controls?

Thu Dec 15, 2016 1:52 pm

Your code is a little fiddly but if I understand you correctly you can do it like this:

First open SkinDate.vb and make these public:

Code: Select all

Public l1 As New SkinDateAdding
    Public l2 As New SkinDateAdding
    Public l3 As New SkinDateAdding
Then in your form3 change your handle code to this:

Code: Select all

    Protected Overrides Sub CreateHandle()
        MyBase.CreateHandle()
        TabStop = False

        'l1.Dock = DockStyle.Top
        ''  l1.Description = Description
        ''l1.EventColor = eventcolor

        'l2.Dock = DockStyle.Top

        'l3.Dock = DockStyle.Top

        For Each itm As Control In EnumerateAllControls(Me)
            For Each c As Control In itm.Controls
                'ct.Location = New Point(0, 21)
                'Controls.Add(ct)
                If TypeOf c Is SkinDate Then
                    DirectCast(c, SkinDate).l1.Description = "Test1"
                    DirectCast(c, SkinDate).l2.Description = "Test2"
                    DirectCast(c, SkinDate).l3.Description = "Test3"
                End If
            Next
        Next
    End Sub
You would access them directly by their names l1, l2 and l3 ect
Welcome to CodenStuff.com Learn Code, Love Code. Thank you for being a member of the community.

User avatar
Dummy1912
VIP - Donator
Posts: 1959

Re: Controls?

Thu Dec 15, 2016 5:27 pm

Ah... silly me lol
Thanks again dear friend

Post Reply

Return to “Coding Help & Support”