Trik Visual Basic kali
ini masih berhubungan dengan efek dalam menampilkan dan menutup form, hanya
saja pada trik berikut ini form akan tampil dengan mengubah ukuran form dari
kecil kebesar.
1.
Buka program visual basic 6.0 dan
mulailah dengan form yang baru
2.
Aktifkan jendela kode dan ketiklah
perintah di bawah ini pada bagian General.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Private
Sub explode(ByRef frm As Form, ByRef efek As Boolean)
With
frm
.Width = 0: .Height = 0: .Show
If efek Then
For x = 0 To 10000 Step 50
.Move (Screen.Width - .Width) / 2,
(Screen.Height - .Height) / 2, x, x
DoEvents
Next
Else
For x = 10000 To 0 Step -50
.Move (Screen.Width - .Width) / 2,
(Screen.Height - .Height) / 2, x, x
DoEvents
Next
End
End If
End
With
End
Sub
|
Keterangan
Kode
1
2-3
4-8
9-16
|
Membuat
sebuah fungsi subroutine dengan nama Explode
dengan nilai input variabel frm dan
efek
Perintah with berfungsi untuk menghemat
penulisan sintak yang masih berhubungan dengan variabel frm. Contohnya pada perintah untuk menampilkan form.
Membuat
perintah kondisi apabila nilai variabel efek
sama dengan true, maka dilakuakan perintah
pengulangan dari nilai x=0 smaapi 10000 dengan nilai lompatan 50. Kemudian
mengubah posisi left dan top
serta mengubah ukuran form sesuai
dengan variabel x.
Jika
nilai variabel efek tidak sama
dengan true, maka dilakukan
perintah yang sama seperti langkah di atas hanya saja berbeda pada nilai
lompatan.
|
3.
Kembali ke tampilakn desain form dan
klik ganda di dalam area form. Ketiklah perintah di bawah ini pada prosedur Form_Load dan Form_Unload.
1
2
3
|
Private
Sub Form_Load()
explode
Me, 1
End
Sub
|
4
5
6
|
Private
Sub Form_Unload(Cancel As Integer)
Cancel
= 1: explode Me, 0
End
Sub
|
Keterangan
Kode
1-3
4-6
|
Pada
saat form tampil, maka fungsi subrountine Explode akan dipanggil dengan nilai frm adalah form1 dan nilai efek sama dengan True.
Apabila
tombol silang yang berada di sudut kanan atas form anda klik, maka variabel cancel diberi nilai true supaya form tidak dapat ditutup.
Kemudian menggil fungsi subrountine Explode
dengan nilai False.
|
Untuk melihat hasilnya
tekan tombol F5 pada keyboard anda.
EmoticonEmoticon