Form zoom code?

[Dean Slindee]

Anybody have a source for .NET code to zoom a form from a dot to full size?
Probably passe since form opaque, but I may have a good use for it.

Thanks in advance,
Dean Slindee

 

[Peter Huang]

Hi Dean,

Based on my understanding, you want to zoom a form for width and height of
1 to the fullsize.

Here I write a smaple for you.

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
If Me.Width >= 300 Then
Me.Timer1.Stop()
Me.FormBorderStyle = FormBorderStyle.Sizable
End If
Me.Width += 5
Me.Height += 5
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Me.Width = 0
Me.Height = 0
Me.FormBorderStyle = FormBorderStyle.None 'This one is necessary.
End Sub
If you have any concern on this issue, please post here.

Regards,
Peter Huang
Microsoft Online Partner Support
Get Secure! www.microsoft.com/security
This posting is provided "as is" with no warranties and confers no rights.

 

[Bob Powell [MVP]]

You might want to modify the me.width and me.height to some manipulation of
size otherwise the form will redraw twice for every resize cycle.

--
Bob Powell

What's Well Formed?
http://www.bobpowell.net/currentissue.htm

Visit the GDI+ FAQ for articles, tips, tricks and code.
http://www.bobpowell.net/gdiplus_faq.htm

Read my blog
http://bobpowelldotnet.blogspot.com

 

[Peter Huang]

Hi Bob,

Thank you for you suggestion.
My sample is just for demo purpost.

Use the Size in the Timer event will be better.
sz += 1
Me.Size = New Size(sz, sz)

If you have any concern on this issue, please post here.

Regards,
Peter Huang
Microsoft Online Partner Support
Get Secure! www.microsoft.com/security
This posting is provided "as is" with no warranties and confers no rights.