Tutorial Membatasi ukuran form visual basic menggunakan script

Trik berikut berfungsi untuk membatasi area form pada saat runtime dengan ukuran yang telah di tentukan dan ukuran tersebut tidak dapat anda ubah.

1.      Bukalah program visual basic dan mulailah form baru.

2.      Klik ganda di dalam area form, kemudian ubahlah event load menjadi event Resize dan ketiklah perintah pada halaman berikutnya.

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Form_Resize() On Error GoTo err If Me.Width >= (800 * Screen.TwipsPerPixelX) Then    Me.Width = (800 * Screen.TwipsPerPixelX)    End If    If Me.Height >= (600 * Screen.TwipsPerPixelX) Then       Me.Height = (600 * Screen.TwipsPerPixelX)       End If       Exit Sub err:     Me.WindowState = 0 End Sub

Keterangan Kode

1 2 3-8

Pada saat ukuran form diubah, perintah pada baris berikutnya akan dieksekusi. Apabila terjadi error pada saat perintah dijalankan, maka secara otomatis akan membaca variabel pada baris 10 dan mengeksekusi perintah untuk mengubah tampilan jendela form menjadi normal pada baris 11. Jika ukuran lebar form lebih besar dari 800 pixel (deteksi resolusi layar), maka ditetapkan ukuran default lebar form adalah 800 pixel. Untuk kondisi ukuran tinggi form hampir sama, maka perintah untuk menghentikan pembacaan script selanjutnya.

3.      Untuk mencoba hasilnya tekan tombol F5 pada keyboard anda.