Auto Resize Object pada VB 6

Ini adalah post pertama saya pada tahun 2014. Setelah vakum selama 2 bulan. Pada kangen ya ?? hehe :D

Oke langsung saja, saya akan berbagi ilmu tentang bagaimana cara Autoresize object (mengubah/menggeser ukuran object secara otomatis) agar tampak lebih proporsional saat form ukurannya diubah. Jadi intinya semua object akan menyesuaikan lebar form ketika diperbesar ataupun kembali diperkecil.


Buat project baru, lalu tambahkan sebuah form dan masukkan 1 picturebox, dan 3 commandbutton. Lalu masukkan code ini :


    Private Sub Form_Resize()
        On Error Resume Next
        'mengubah ukuran object
        Picture1.Height = Form1.Height - 2500 '+ Picture1.Height
        Picture1.Width = Form1.Width - 300 '+ Picture1.Height
        Picture1.Top = 60
        Picture1.Left = 30
      
        'menggeser object ke kanan bawah
        Command1.Top = Form1.Height - Command1.Height - 600
        Command1.Left = Form1.Width - Command1.Width - 240
      
        'menggeser object ke kiri bawah
        Command2.Top = Form1.Height - Command2.Height - 600
        Command2.Left = 120
      
        'menggeser object ke tengah bawah
        Command3.Top = Form1.Height - Command3.Height - 600
        Command3.Left = (Form1.Width - Command1.Width) / 2

    End Sub


Maka hasilnya seperti ini :

 ukuran form sebelum diperbesar

 ukuran form setelah diperbesar

Catatan : mengubah nilai/value dari Height, Width, Left dan Top mengikuti perubahan ukuran form. Angka bisa diubah sesuai keinginan.

Selamat mencoba dan semoga bermanfaat!!!


Sumber : vbjadul.net