[RESOLVED] [VB6] - catch the container scalemode value

has you know, the control can be puted in a container(form\picturebox). i have these code, but only give me the form and not the container:(

Code:

---

Public Function ContainerScaleMode() As Integer
    ContainerScaleMode = UserControl.ParentControls(0).ScaleMode
End Function

---

can anyone help me?
thanks

You might be able to loop thru the controls and compare hWnds

Code:

---

On Error Resume Next
For I = 0 to UserControl.ParentControls.Count-1
    If UserControl.ParentControls(I).hWnd = UserControl.ContainerHwnd Then
          ' found it
          Exit For
    End If
Next
On Error Goto 0

---

Edited: I believe code like this has too much room for failure. What if the user changes your control's container during runtime? What if the user changes the container's ScaleMode during runtime? What if your control is in a frame, frames have no ScaleMode property. If your code must rely on the container's scalemode, force the user to supply either the container or the container's scalemode as a property. That way if it fails to work, it is because of incorrect property settings, not your control. And your control does not need to try to overcome the problem with flawed hacks.

Last but not least. Except for passing event parameters in user scalemode (use ScaleX,ScaleY with vbContainerPosition & vbContainerSize), you can simply use pixels for form-related positions/sizes. Most controls have hWnds, APIs can get & set a control's position and size very easily.

Try this experiment.
1. Create a new usercontrol. Set its backcolor to black so it is easy to see
2. Add this code in its click event:

Code:

---

Debug.Print "2010 = "; CLng(ScaleX(2010, vbPixels, vbContainerPosition)); " in container's scalemode"
Debug.Print "2010 = "; CLng(ScaleX(2010, vbPixels, vbContainerSize)); " in container's scalemode"

---

3. Add a picturebox to your form, then put usercontrol in the picturebox.
4. Set picturebox scalemode to twips & run project and click on usercontrol
5. Set picturebox scalemode to pixels & run project and click on usercontrol

Use vbContainerPosition when you are converting coordinates. Use vbContainerSize for dimensions. I have not seen a situation where using the wrong one returns the wrong values. However, since VB provided two options, best to use the right one for the job.

Quote:

---

Originally Posted by LaVolpe

You might be able to loop thru the controls and compare hWnds

Code:

---

On Error Resume Next
For I = 0 to UserControl.ParentControls.Count-1
    If UserControl.ParentControls(I).hWnd = UserControl.ContainerHwnd Then
          ' found it
          Exit For
    End If
Next
On Error Goto 0

---

Edited: I believe code like this has too much room for failure. What if the user changes your control's container during runtime? What if the user changes the container's ScaleMode during runtime? What if your control is in a frame, frames have no ScaleMode property. If your code must rely on the container's scalemode, force the user to supply either the container or the container's scalemode as a property. That way if it fails to work, it is because of incorrect property settings, not your control. And your control does not need to try to overcome the problem with flawed hacks.

Last but not least. Except for passing event parameters in user scalemode (use ScaleX,ScaleY with vbContainerPosition & vbContainerSize), you can simply use pixels for form-related positions/sizes. Most controls have hWnds, APIs can get & set a control's position and size very easily.

Try this experiment.
1. Create a new usercontrol. Set its backcolor to black so it is easy to see
2. Add this code in its click event:

Code:

---

Debug.Print "2010 = "; CLng(ScaleX(2010, vbPixels, vbContainerPosition)); " in container's scalemode"
Debug.Print "2010 = "; CLng(ScaleX(2010, vbPixels, vbContainerSize)); " in container's scalemode"

---

3. Add a picturebox to your form, then put usercontrol in the picturebox.
4. Set picturebox scalemode to twips & run project and click on usercontrol
5. Set picturebox scalemode to pixels & run project and click on usercontrol

Use vbContainerPosition when you are converting coordinates. Use vbContainerSize for dimensions. I have not seen a situation where using the wrong one returns the wrong values. However, since VB provided two options, best to use the right one for the job.

---

i found the solution more faster and easy:
[CODE]Public Function ContainerScaleMode() As Integer
ContainerScaleMode = Extender.Container.ScaleMode
End Function[/CODE
but i need ask 2 things:
1 - after compiler the Extender object can give errors in other project?
2 - why the method "Container" isn't showed(when you write "Extender.")?
thanks

Quote:

---

Originally Posted by joaquim

i found the solution more faster and easy:

Code:

---

Public Function ContainerScaleMode() As Integer
ContainerScaleMode = Extender.Container.ScaleMode
End Function

---

but i need ask 2 things:
1 - after compiler the Extender object can give errors in other project?
2 - why the method "Container" isn't showed(when you write "Extender.")?
thanks

---

Hmmm
Yes potential problems. You are assuming that all Extender objects expose a Container property and that all Container properties have ScaleModes; they may not. Again a VB Frame does not have a ScaleMode property. What if your control was inside some custom usercontrol?

Recommend doing this correctly. Use ScaleX,ScaleY with the vbContainerPosition or vbContainerSize constants. If you do, you will not get those potential errors and you will not need to know the container's scalemode. Your choice of course.

Quote:

---

Originally Posted by LaVolpe

Hmmm
Yes potential problems. You are assuming that all Extender objects expose a Container property and that all Container properties have ScaleModes; they may not. Again a VB Frame does not have a ScaleMode property. What if your control was inside some custom usercontrol?

Recommend doing this correctly. Use ScaleX,ScaleY with the vbContainerPosition or vbContainerSize constants. If you do, you will not get those potential errors and you will not need to know the container's scalemode. Your choice of course.

---

if the extender can give me errors, then how can i change these:

Code:

---

lngOldPosX = Extender.Left
        lngOldPosY = Extender.Top

---

?
then i only need convert pixels to right scalemode in container.

Code:

---

L1 = Extender.Left + LimColLeft
                        T1 = Extender.Top + LimColTop
                        W1 = LimColWidth
                        H1 = LimColHeight

---

i only need convert pixels to container scalemode(the limcol values).
thanks

Does your usercontrol have an hWnd?
If so....

Code:

---

Dim uRect As RECT, tPT as POINTAPI
GetWindowRect UserControl.hWnd, uRect
tPT.X = uRect.Left: tPT.Y = uRect.Top
ScreenToClient UserControl.ContainerHwnd, tPT
' now tPT has the top/left coords of your usercontrol relative to the container

---

Quote:

---

Originally Posted by LaVolpe

Does your usercontrol have an hWnd?
If so....

Code:

---

Dim uRect As RECT, tPT as POINTAPI
GetWindowRect UserControl.hWnd, uRect
tPT.X = uRect.Left: tPT.Y = uRect.Top
ScreenToClient UserControl.ContainerHwnd, tPT
' now tPT has the top/left coords of your usercontrol relative to the container

---

---

thanks

for convert the position:

Code:

---

Left=CLng(ScaleX(leftvalue, vbPixels, vbContainerPosition))
top=CLng(ScaleY(topvalue, vbPixels, vbContainerPosition))

---

and convert the size:

Code:

---

width= CLng(ScaleX(widthvalue, vbPixels, vbContainerSize))
height=CLng(Scaley(heightvalue, vbPixels, vbContainerSize))

---

tell me if the isn't right.
thanks for help me

I think you have it. But for the size of your usercontrol (for example), your widthValue & widthHeight are usercontrol.Width/Height and scalemode is always Twips.

Code:

---

width= CLng(ScaleX(UserControl.Width, vbTwips, vbContainerSize))
height=CLng(ScaleY(UserControl.Height, vbTwips, vbContainerSize))

---

Quote:

---

Originally Posted by LaVolpe

I think you have it. But for the size of your usercontrol (for example), your widthValue & widthHeight are usercontrol.Width/Height and scalemode is always Twips.

Code:

---

width= CLng(ScaleX(UserControl.Width, vbTwips, vbContainerSize))
height=CLng(ScaleY(UserControl.Height, vbTwips, vbContainerSize))

---

---

sorry, but in these case i use, in my UC, everything, is in pixels.
thanks for everything.
PS: sorry, but i can't rate you, because i don't have "points" for use it:(.

You didn't understand that example.
1. UserControl's Width & Height is always in Twips as is a VB form's Width & Height
:: the uc's ScaleWidth & ScaleHeight may be in pixels but not the Width & Height
2. The 2nd parameter in ScaleX & ScaleY is the scalemode you are converting from
3. The 3rd parameter in ScaleX & ScaleY is the scalemode you are converting to

Quote:

---

Originally Posted by LaVolpe

You didn't understand that example.
1. UserControl's Width & Height is always in Twips as is a VB form's Width & Height
:: the uc's ScaleWidth & ScaleHeight may be in pixels but not the Width & Height
2. The 2nd parameter in ScaleX & ScaleY is the scalemode you are converting from
3. The 3rd parameter in ScaleX & ScaleY is the scalemode you are converting to

---

sorry, but in these case is in pixels:

Code:

---

L1 = Extender.Left + LimColLeft
T1 = Extender.Top + LimColTop
W1 = LimColWidth
H1 = LimColHeight

---

the limcol variables are in pixels. thats why that i need convert them to scalemode values.
thanks

for finish i forgot to ask 1 thing.
if i can't use extender.name(for do a test), then how can i see the sprite2d name?

Try: Ambient.DisplayName
Double check that. I'm not on a pc with VB6 and just going from memory.

Quote:

---

Originally Posted by LaVolpe

Try: Ambient.DisplayName
Double check that. I'm not on a pc with VB6 and just going from memory.

---

yes.. works... thanks

Quote:

---

Originally Posted by joaquim

yes.. works... thanks

---

Hello LaVolpe, I have got a similar problem, but I couldn't solve it with your code advices. Please see the attached archive: its a subclassing control for lazy noobs :D. Open the test form of the test project and change the FitSizeTo property to see the whole magic :). - It works perfectly if the parent form is in vbTwips mode, but not if it is switched to vbPixels.

Do you have an idea to overcome the problem without adding a ParentScaleMode property?


- Attachment removed, moved to another thread:
http://www.vbforums.com/showthread.php?t=604704 -