resizing problem

I've got a weird problem in a usercontrol. When I call the sub that does the repainting of it, I also force a resize (in the resize event is code that ensures the control has the right dimensions). Generally, it works fine, but when I change the orientation of the control (vertical vs horizontal), it won't size correctly, even though when I change the orientation property, I also call the resize part again. Sometimes if I force the resize event a few times, it will fix it, but that's really sloppy. Also when I've placed the control on a form and use the grab handles to resize it in the form, the size will snap back to what it's supposed to be, but only when the bottom, right, or bottom right corner grab handles were used. The others will allow the control to expand/shrink to the dragged size. Does anyone know why this might going on?

What is the code of the resize event??

All it does is force the right size:

VB Code:

Private Sub UserControl_Resize()
   With UserControl
      .Width = (intButtonWidth * IIf(ebsoButtonOrientation = EBSOrientations.bsHorizontal, intNumButtons, 1)) * Screen.TwipsPerPixelX
      .Height = (intButtonHeight * IIf(ebsoButtonOrientation = EBSOrientations.bsVertical, intNumButtons, 1)) * Screen.TwipsPerPixelY
   End With
   DrawButtons
   Debug.Print "resizing"
   Debug.Print intButtonWidth * IIf(ebsoButtonOrientation = EBSOrientations.bsHorizontal, intNumButtons, 1), UserControl.Width \ Screen.TwipsPerPixelX
   Debug.Print intButtonHeight * IIf(ebsoButtonOrientation = EBSOrientations.bsVertical, intNumButtons, 1), UserControl.Height \ Screen.TwipsPerPixelY
End Sub

If the orientation is horizontal, the final control width is equal to the number of buttons times the width of one button, and the height is just the height of one button. For vertical, the width is just one button, and the height is one button times number of buttons. In both cases, the single button dimension and the screen dimension are the same, so that IIf() will either return the number of buttons for the right size, or just 1 so it won't affect it. The rest is just what tells me the size currently is, and what it should be (in pixels). I've noticed the property window isn't always in synch, which is beyond my understanding... It's ticking me off.

As a general comment, setting the .Width and .Height of the UserControl in the UserControl_Resize event is generally a bad idea, cos setting either of those properties forces the Resize evetn to fire again....

Use a module level boolean to flag whether or not you handle the resize:

Code:

---

Dim mbolResizing as Boolean
Private Sub UserControl_Resize()
    If not mbolResizing then
        mbolResizing = True
        .Width = lngTheNewWidth
        .Height = lngTheNewHeight
        mbolResizing = False
    End If
End Sub

---

- gaffa

I've tried that before, and it never worked. I've tried all sorts of things :rolleyes:... I'll still get the weird upperleft grabhandle problem. All the other directions are fine. But when the UL one is used, it can make both height and width change. That's when the sizing gets out of synch, and the grab handles will show a border larger than what it's supposed to be. I'd rather not leave it like that, but I might just have to add in a note or something about it. I just don't like this happening because my control only paints on a specific area, and if it's larger than what that area is, the other parts are left blank gray.