Set the parent of a control at runtime

[abdul]

The Parent property on every control is only read-only at runtime. What other way would I set the parent of any control at runtime? I Have tried "SetParent" but it won't work for label control (doesn't have hWnd property) and don't know why it doesn't respond to any event when it's showed up on it's new parent form.

[crptcblade]

try

Set Label1.Container = Frame1

[Stiletto]

Originally posted by abdul
The Parent property on every control is only read-only at runtime. What other way would I set the parent of any control at runtime? I Have tried "SetParent" but it won't work for label control (doesn't have hWnd property) and don't know why it doesn't respond to any event when it's showed up on it's new parent form.

Sorry for this question, but *** is Parent?, and what blade's code does?

[abdul]

Originally posted by crptcblade
try

Set Label1.Container = Frame1

Hmmm, it's not working. Shows me "Invalid Object Use" error.
My code is like:

Set frmExtra.Command1.Container = whichform

So the code is in the module, and it takes the control from frmExtra and shows that on whichform.

[crptcblade]

Sorry, that method won't work between forms.

[abdul]

Originally posted by Stiletto

Sorry for this question, but *** is Parent?, and what blade's code does?

Parent property of a specific control contains the object that this control in placed on. Blade's code doesn't work yet.
BTW, are you drunk?

[abdul]

Originally posted by crptcblade
Sorry, that method won't work between forms.

Awww, any other way you can think of to switch the control among different forms?

[Stiletto]

Originally posted by abdul


Parent property of a specific control contains the object that this control in placed on. Blade's code doesn't work yet.
BTW, are you drunk?

Me, no...
So you mean like this:

Form1.Command1.Container = Form1

?

[abdul]

Originally posted by Stiletto

Me, no...
So you mean like this:

Form1.Command1.Container = Form1

?

Maybe this will work but I want to go from one form to another like this:

Form1.Command1.Container = Form2

[crptcblade]

Can I ask why you need to do this? Maybe there is a better way.

[abdul]

I want the user to be able to add different controls on the form at runtime. Obviously, I'll have more than 1 form and each form should be loaded with no control (empty like in vb) then you can choose a control from the toolbar and draw it on the form you have chosen. Right now, I have places all the common controls on one form, frmExtra, and when the user wants to draw a control on a specific form, I just increase the dimension of the array of that specific control and then move it to the form where the user wants to draw it.
Maybe there is another way but I can't think of that right now...

[Stiletto]

Lemme get this. If the control is on Form1, so the Container property of that control will be Form1, is that correct?
If so, as i understand it, you cant do this Abdul:

Form1.Command1.Container = Form2

Since the control is on Form1.
Or this is possible, and it will remove the control from form1 to form2?

[abdul]

This method will give you an error message that's why I am looking for another way to do this.

[abcdefghijklmno]

just make a control array on the form u want 2 add 2 then use:

load command(x)
command(x).top=command(x-1).top+120
command(x).visible=true

[abdul]

Yes, but I'll have to do that on every single form. I am trying another way right now but I think this method will also work with more ease.

[BuggyProgrammer]

try using the SetParent API

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
 
SetParent Form1.Command1.hWnd, Form2.hWnd

[abdul]

Originally posted by BuggyProgrammer
try using the SetParent API

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
 
SetParent Form1.Command1.hWnd, Form2.hWnd

1) Somehow, it just doesn't respond to any event on the command button quite right.
2) It won't work for a label control because it doesn't have a 'Hwnd" property.

[BuggyProgrammer]

well then you're out of solutions now.........