Memanipulasi Munculnya Form Saat di Buka dan di Close Agar Tampil Lebih Menarik di Microsoft Visual Basic .Net (VB.NET)

Form merupakan tempat atau wadah bagi kontrol-kontrol yang dibutuhkan untuk di tempatkan didalamnya yang berfungsi sebagi interaksi oleh si user misal kontrol Button. Nah kontrol inilah yang di tempatkan di Form.

Saat Form sudah berisi kontrol yang diinginkan dan program sudah jadi maka kita perlu mengujinya dan menjalankan Form tersebut. Dan disaat form dijalankan inilah, nantinya Form akan kita manipulasi misalnya memberikan efek animasi sebelum form bener-bener muncul penuh dilayar dan juga efek animasi ketika Form ditutup atau di close.

Dengan sedikit sentuhan animasi ini aplikasi yang kita buat akan terlihat lebih profesional,mulai dari splash screen yang halus, validasi sebelum keluar, sampai membersihkan resource biar aplikasi tetap ringan.

Berikut dibawah ini beberapa Manipulasi dari form yang kita akan berikan animasinya :

1. Dengan animasi membuka vertikal seperti layar yang di tarik bagian atas dan bawah.

2. Dengan animasi membuka horizontal seperti kereta yang berjalan 

Dari kedua animasi diatas kita akan bahas satu persatu dengan mengetikan kodenya masing-masing

A. Mebuka Vertikal

Efek seperti layar ditarik dari atas dan bawah

Konsep

Form muncul dari tinggi kecil → tinggi penuh

Posisi Top disesuaikan agar terlihat membuka ke atas & bawah

Langkah-langkahnya :

1. Pada Form1 Tambahkan 2 Timer → Name: Timer1 dan Timer2
2. Tambahkan 1 Button  → Text:Close  → Name: Button1
3. Set FormBorderStyle = None (opsional agar lebih halus)

Kodenya :

Public Class Form1

    Dim targetTop As Integer

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Timer1.Interval = 100

        Timer1.Start()

        Timer2.Interval = 100

        targetTop = Me.Top

        Me.Top = targetTop - 80

        Me.Opacity = 0

    End Sub

    'Timer form saat di buka

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        If Me.Top < targetTop Then Me.Top += 5

        If Me.Opacity < 1 Then Me.Opacity += 0.05

        If Me.Top >= targetTop AndAlso Me.Opacity >= 1 Then

            Timer1.Stop()

        End If

    End Sub

    'Saat Button diklik timer aktif

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Timer2.Start()

    End Sub

    'Efek animasi saat form di close

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick

        Me.Top -= 5

        Me.Opacity -= 0.05

        If Me.Opacity <= 0 Then

            Timer2.Stop()

            Me.Close()

        End If

    End Sub

End Class

B. Membuka Horizontal

Efek seperti layar ditarik dari sisi kiri ke sisi kanan seperti kereta yang berjalan

Konsep

Form muncul dari tinggi kecil → tinggi penuh

Langkah-langkahnya :

1. Tambahkan Form Baru dari Project yang sama sehigga menjadi Form2
2. Pada Form2 cukup tambahkan 2 Timer yaitu Name:Timer1 dan Timer2

Kodenya :

Imports System.ComponentModel

Public Class Form2

    'kode penutupan form

    Dim targetTop As Integer

    Dim allowClose As Boolean = False

    'kode saat Form di Load

    Dim targetWidth As Integer

    Dim stepWidth As Integer = 25

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Timer1.Interval = 100 'Menentukan angka interval

        targetWidth = Me.Width

        Me.Width = 0

        Timer1.Start()

    End Sub

    'Timer saat Form di Load

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        If Me.Width < targetWidth Then

            Me.Width += stepWidth

        Else

            Me.Width = targetWidth

            Timer1.Stop()

        End If

    End Sub

    'Timer saat form di Close

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick

        Me.Top -= 5

        Me.Opacity -= 0.05

        If Me.Opacity <= 0 Then

            Timer2.Stop()

            Me.Close()

        End If

    End Sub

    'mengaktifkan Timer saat di close tanda (X)

    Private Sub Form2_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing

        ' Jika belum diizinkan tutup

        If Not allowClose Then

            e.Cancel = True ' tahan close

            Timer2.Start()

        End If

    End Sub

End Class

Setelah itu jalankan Project Anda.Untuk hasil lengkapnya tonton vidio diatas

Demikianlah artikel singkat hari ini tentang Memanipulasi Munculnya Form Saat di Buka dan di Close Agar Tampil Lebih Menarik di Microsoft Visual Basic .Net (VB.NET), semoga artikel ini bermanfaat buat kita semua.amin.

Selamat mencoba semoga berhasil