Custom control creation problem, please....

[Radu]

Hi. I am creating a user control in vs2005 which is supposed to provide
a fancy gradient background - in theory, you just drop it on a form,
you set the start/end colors, the gradient type, and you're done....
but that's in theory. It should repaint itself, it should take the size
of the client form (the form you're dropping it on), and it should
resize & repaint itself when the client form is resized.

I have added the following proc for forcing a repaint when the user
control is resized:

_______________ _______________ _____
Private Sub GradientBackgro und_Resize(ByVa l sender As Object, ByVal e
As EventArgs) Handles MyBase.Resize
Me.Invalidate()
End Sub
_______________ _______________ _____

I have also added this for making the user control take the full size
of the client form:

_______________ _______________ _____
Sub Autoresize(ByVa l sender As Object, ByVal e As System.EventArg s)
Handles MyBase.HandleCr eated
Me.Size = Me.FindForm.Cli entSize
Me.Location = New Point(0, 0)
End Sub
_______________ _______________ _____

Nice and dandy. It works until the user resizes the client.

I DON'T KNOW how to make the user control resize when the client form
gets resized. Of course, I could write code in the client form, but
that defeats the purpose of the whole exercise, isn't it ? The user
control should be self contained.

How would one do that ? One idea I had was to somehow obtain a handle
to the container (the client form) like so:

_______________ _______________ _____
Dim WithEvents m_ClientForm As System.Windows. Forms.Form

Public Sub New()
m_ClientForm = Me.Parent
End Sub

and then define a proc like this:

Sub AutoresizeToCli entForm(ByVal sender As Object, ByVal e As
EventArgs) Handles m_ClientForm.Re size
Autoresize(send er, e)
End Sub
_______________ _______________ _____

but it doesn't work. I also tried with Me.Container. Both are always
NOTHING...
How could I solve this problem, please ?

Thank you very much.
Alex

[Tim Wilson]

You can update the control style to add the ResizeRedraw flag.
http://msdn2.microsoft.com/en-us/lib....setstyle.aspx

To have the custom UserControl take up the entire client area of its
container (parent) set the UserControl's Dock property to DockStyle.Fill.

--
Tim Wilson
..NET Compact Framework MVP

"Radu" <cu************ *@yahoo.com> wrote in message
news:11******** **************@ t31g2000cwb.goo glegroups.com.. .

Hi. I am creating a user control in vs2005 which is supposed to provide
a fancy gradient background - in theory, you just drop it on a form,
you set the start/end colors, the gradient type, and you're done....
but that's in theory. It should repaint itself, it should take the size
of the client form (the form you're dropping it on), and it should
resize & repaint itself when the client form is resized.

I have added the following proc for forcing a repaint when the user
control is resized:

_______________ _______________ _____
Private Sub GradientBackgro und_Resize(ByVa l sender As Object, ByVal e
As EventArgs) Handles MyBase.Resize
Me.Invalidate()
End Sub
_______________ _______________ _____

I have also added this for making the user control take the full size
of the client form:

_______________ _______________ _____
Sub Autoresize(ByVa l sender As Object, ByVal e As System.EventArg s)
Handles MyBase.HandleCr eated
Me.Size = Me.FindForm.Cli entSize
Me.Location = New Point(0, 0)
End Sub
_______________ _______________ _____

Nice and dandy. It works until the user resizes the client.

I DON'T KNOW how to make the user control resize when the client form
gets resized. Of course, I could write code in the client form, but
that defeats the purpose of the whole exercise, isn't it ? The user
control should be self contained.

How would one do that ? One idea I had was to somehow obtain a handle
to the container (the client form) like so:

_______________ _______________ _____
Dim WithEvents m_ClientForm As System.Windows. Forms.Form

Public Sub New()
m_ClientForm = Me.Parent
End Sub

and then define a proc like this:

Sub AutoresizeToCli entForm(ByVal sender As Object, ByVal e As
EventArgs) Handles m_ClientForm.Re size
Autoresize(send er, e)
End Sub
_______________ _______________ _____

but it doesn't work. I also tried with Me.Container. Both are always
NOTHING...
How could I solve this problem, please ?

Thank you very much.
Alex

[Radu]

Thanks a lot ! It works :-))