Bagaimana Memodifikasi Munculnya Form di Visual Basic 6.0

Cara Memodifikasi Munculnya Form di VB6 - Jika Anda bosan dengan tampilan form yang itu-itu aja silahkan pelajari trik berikut ini:

Dengan menggunakan kode-kode tertentu munculnya form bisa kita modifikasi sehingga terlihat tampak lebih menarik dan istimewa.Munculnya form bisa dibuat seperti sebuah layar yang ditarik bagian atas dan bawahnya (membuka vertikal) dan dengan mengubah sedikit kodenya, maka form bisa dimunculkan seperti sebuah layar yang ditarik bagian kiri dan kanannya (membuka horizontal). Selain itu Anda juga dapat mempelajari bagaimana memodifikasi agar form muncul seperti sebuah kereta yang berjalan dan berhenti tepat ditengah layar.

Ok, sekarang kita akan membuat form muncul seperti sebuah layar yang di tarik di bagian atas dan bawahnya (atau membuka vertikal) berikut langkah-langkahnya :


1.Tambahkan sebuah Timer pada form (dalam contoh ini nama kontrol timer tersebut adalah Timer1),
   kemudian isi properti intervalnya dengan angka 1. Anda juga bisa  mengisi interval sesuai dengan      angka yang lebih besar, tetapi kecepatan membuka form akan semakin menjadi kecil (lama) aturlah
   sesuai keinginan Anda.

2. Lalu Ketikan kode dibawah ini di jendela kode:

Private Sub Form_Load()
 Me.Height = 10         'Nilai 10 ketinggian form
End Sub

'untuk memunculkan form tepat ditengah layar  kita menggunakan kode dibawah ini yang diberi 'nama Tengah

Public Sub tengah()
Me.Left = (Screen.Width - Me.Width) / 2  
Me.Top= (Screen.Height - Me.Height) / 2
End Sub

Private Sub Timer1_Timer()
Me.Height = Me.Height + 100
tengah
If Me.Height >= 4000 Then
Timer1.Enabled = False
tengah
End If
End Sub

3. Pada kode di atas terdapat sebuah baris tercetak tebal

If Me.Height >= 4000 Then

Penting untuk Anda ketahui bahwa kode ini mengisyaratkan bahwa proses berhentinya form sudah mencapai 4000. Jadi jika form yang Anda buat memiliki tinggi  lebih dari 4000, dianjurkan agar Anda mengganti angka 4000 dengan angka yang sesuai dengan tinggi form Anda agar form tersebut di tampilkan seluruhnya .Untuk mengetahui tinggi form Anda bisa melihatnya pada kotak properti form kemudian cari properti Height

4. Untuk memunculkan form seperti sebuah layar yang ditarik bagian kiri dan kanannya, caranya sangat mudah. Anda cukup mengganti kata Height pada pengkodean Private Sub Form_Load() dan Private Sub Timer1_Timer() dengan kata Width.Berikut kodenya:

Private Sub Form_Load()
 Me.width = 10         'Nilai 10 ketinggian form
End Sub

 'untuk memunculkan form ditengah layar
Public Sub tengah()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub

Private Sub Timer1_Timer()
Me.Height = Me.width + 100
tengah 'meletakan form di tengah
If Me.Height >= 4000 Then
Timer1.Enabled = False
tengah
End If
End Sub

5. Selanjutnya untuk memunculkan form agar tampak seperti sebuah kereta yang berjalan, Anda harus menambahkan sebuah timer pada form, kemudian isi properti intervalnya dengan angka 10 (angka ini berpengaruh pada kecepatan)  setelah itu ketik  kode dibawah ini di jendela kode :

Private Sub Form_Load()
Visible= False
End Sub

Public Sub Tengah()
Form1.Top=(Screen.Height-Form1.Height)/2
End Sub

Private Sub Timer1_Timer()
Static kerjakan As Boolean
Dim batas_baru As Single
If Not kerjakan Then
kerjakan=True
Tengah
Timer1.Interval=25
batas_kiri=Form1.Left
Form1.Left=-Form1.Width
Form1.Visible=True
End If

batas_baru=Form1.Left+300
if batas_baru>= (screen.Width- Form1.Width)/2 Then
Timer1.Enabled=False
End If
Form1.Left=batas_baru
End Sub

 Catatan: nama Form sesuaikan dengan Form Anda

Demikain tip cara-cara memodifikasi tampilan form saat di load di layar dengan visual basic

Related Post: Animasi Form