Capture usercontrol left, top change.

[Disferente]

What can I do to know when the left and top properties of a usercontrol is changed?
Or even better, is there any way to make something like
Public Property Get Top() As Integer
actually work? As it is the property does not get called even when changing the top property.

 

[ousoonerjoe]

Resize Event should fire if it changes.

"If I were to wake up with my head sewn to the carpet, I wouldn't be more surprised than I am right now.

 

[Disferente]

It doesn't for left and top. To check I put a breakpoint i resize event. It only fired when I changed width or height.

 

[ousoonerjoe]

What about the Move Event? (Been a while since I did resize and move stuff and my VB6 isn't on this PC).

"If I were to wake up with my head sewn to the carpet, I wouldn't be more surprised than I am right now.

 

[Disferente]

Can't find any move event.

 

[Disferente]

I have managed to capture the top and left properties of my usercontrol by adding the controls like this:

Public ShipComment1 As TxtBoxM

Private Sub Form_Load()
Set ShipComment1 = Controls.Add("ASTS.TxtBoxM", "ShipComment1")
End Sub

I still have a problem though, when I use activecontrol when ShipComment1 is active it does not refer to the same object:

?objptr(ActiveControl)
50956004
?ActiveControl.Name
ShipComment1
?objptr(ShipComment1)
2288888
?ShipComment1.Name
ShipComment1
?objptr(Form1("ShipComment1"))
50956004

Does anyone have any ideas as to fix this?

 

[dilettante]

You could probably use subclassing to capture the move and call an "event handler" but why?

A UserControl is normally only moved at design time. Are you trying to implement docking behavior or something?

 

[Disferente]

The only thing I really need to capture is when someone uses 'usercontrolname'.left, .top, .height, .width and .move.
The usercontrol have a caption property that when set adds a label to the left or top of the actual control, depending on the value of a boolean.
I need to be able to move the control easily without having to calculate the size and place of the label every time.

 

[Disferente]

Okay, found a solution to it all.

When calling the custom usercontrol properties, just add .object, like this

UserControl1.object.Top=100

Thank you to all who tried helping.