Support Forums
[VB.NET] Animated Form Extend [SRC] - Printable Version

+- Support Forums (https://www.supportforums.net)
+-- Forum: Categories (https://www.supportforums.net/forumdisplay.php?fid=87)
+--- Forum: Coding Support Forums (https://www.supportforums.net/forumdisplay.php?fid=18)
+---- Forum: Visual Basic and the .NET Framework (https://www.supportforums.net/forumdisplay.php?fid=19)
+---- Thread: [VB.NET] Animated Form Extend [SRC] (/showthread.php?tid=11437)

[VB.NET] Animated Form Extend [SRC] - Fragma - 08-21-2010

The following is an example of how to increase the height of your form & decrease it back to the original size (This example uses a form where Height = 222, and will be increased to Height = 250).

Imports:
Code:
Imports System.Runtime.InteropServices

Function:
Code:
<DllImport("user32.dll", SetLastError:=True)> _
Friend Shared Function MoveWindow(ByVal hWnd As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Boolean) As Boolean
    End Function

Using:
Code:
If Me.Height < 250 Then
            Timer1.Start()
        Else
            Timer2.Start()
        End If

Timer1:
Code:
If (MyBase.Width < 500) Then

            Form1.MoveWindow(MyBase.Handle, (MyBase.Left - 0), (MyBase.Top - 0), (MyBase.Width + 0), (MyBase.Height + 2), True)
            If Me.Height = 250 Then
                Me.Timer1.Enabled = False
            End If
        End If
MsgBox("Extended!")

Timer2:
Code:
If (MyBase.Width < 500) Then

            Form1.MoveWindow(MyBase.Handle, (MyBase.Left - 0), (MyBase.Top - 0), (MyBase.Width + 0), (MyBase.Height - 2), True)
            If Me.Height = 222 Then
                Me.Timer2.Enabled = False
            End If
        End If
MsgBox("Retracted!")

This is a really cool effect to add to your applications. Hope you all like it.

RE: [VB.NET] Animated Form Extend [SRC] - -BoodyE- - 08-21-2010

Thanks for this tutorial mate.

RE: [VB.NET] Animated Form Extend [SRC] - Xypher - 08-28-2010

This is pretty cool. I never thought of animating the resizing of a form.

RE: [VB.NET] Animated Form Extend [SRC] - Fitz- - 09-29-2010

I'll give this a try soon, thank you for sharing.

RE: [VB.NET] Animated Form Extend [SRC] - ƃu∀ ıʞƃu∀ - 11-25-2012

nice tutorial Smile

i'll try this. thanks for sharing

RE: [VB.NET] Animated Form Extend [SRC] - AceInfinity - 11-27-2012

I created a module for this (somewhat) although it switches forms, it doesn't only animate their size:

http://tech.reboot.pro/showthread.php?tid=3320

RE: [VB.NET] Animated Form Extend [SRC] - Saket - 10-10-2013

Nice tutorial friend........ ;)