how can i create objects at runtime in a picturebox?

[vfiroiu]

I want to create an array of lines when my form loads inside of a picture box, without having to copy-paste on the form. so far, i have created a line on the form and set its index to 0. then, in the code i put

For LinCount = 1 To (somenumber)
Load BoxlinBorder(Li nCount)
Next LinCount

which creates the lines without any errors. I still need to put the lines into a picturebox somehow, and i would like to declare everything in code, not on the form. That is, is there some way to create the line array without having to make a line on the form first? Any help is appreciated.

Thanks,
vfiroiu

[Dököll]

For LinCount = 1 To (somenumber)
Load BoxlinBorder(LinCount)
Next LinCount

That is, is there some way to create the line array without having to make a line on the form first? Any help is appreciated.

Thanks,
vfiroiu

Not sure how this would work, vfiroiu, but have you tried doing this in form load?

[vfiroiu]

Yes, the above code is in Form - Activate. By the way, BoxlinBorder() is a line array with only one element (BoxlinBorder(0 ), which i created in the form), I don't think i made that clear.

[Killer42]

Yes, the above code is in Form - Activate. By the way, BoxlinBorder() is a line array with only one element (BoxlinBorder(0 ), which i created in the form), I don't think i made that clear.

Have you made any progress on this?

I see the problem. I've loaded arrays of controls like this at runtime myself, but have always done so by creating the "zeroth" element at design time and simply loading more occurrences at runtime. Is there a real need to avoid this, or is it just that you're determined to "beat this thing"? :-)

Anyway, I'll have a play around and see whether I can come up with anything.

[Killer42]

Oh, by the way. I think (not sure) that you can place the line control into a picturebox by setting the line's .Container property.

[Killer42]

Ok, I've got something for you.

Here's some code which creates a line control at runtime. I've done it as the first element of an array, simply because arrays are so powerful and convenient. But it was all done at runtime. Give it a try, it'll give you a basis to work from.

Option Explicit
 
Dim MyLine() As Control
 
Private Sub Form_Load()
  ReDim MyLine(0 To 5)
  Set MyLine(0) = Form1.Controls.Add("VB.Line", "SomeName", Form1)
  With MyLine(0)
    .X1 = 0
    .X2 = 500
    .Y1 = 0
    .Y2 = 500
    .Visible = True
    .BorderColor = 0&
    ' To move the line control into picturebox Picture1, do this...
    ' Set .Container = Picture1
  End With
End Sub

[vfiroiu]

hmmm, I've tried the .Container to put the line in the picture box.... but i suppose i had the syntax wrong. I will try this, thanks for the help!

[Killer42]

hmmm, I've tried the .Container to put the line in the picture box.... but i suppose i had the syntax wrong. I will try this, thanks for the help!

You probably left out the Set keyword - same mistake I made until I checked the doco.

[vfiroiu]

by the way: what is the purpose of "somename"?

[vfiroiu]

I now get an error when i try to use expressions like MyLine.Count
It isn't terribly important, but i would like to know why and how to fix it, if possible

also: i get an error when i try to

for lincount = 1 to somenumber
Load MyLine(lincount )
next lincount