Mengubah Ukuran Object Secara Otomatis Saat Form Di Jalankan

Gambar simulasi perubahan ukuran form yang diikuti 
perubahan ukuran/posisi object didalamnya.

Bagaimanakah cara merubah ukuran/menggeser object secara otomatis agar tampak proporsional saat form berubah ukurannya?

Di bawah ini adalah contoh coding-nya, teramat sangat sederhana.

Sebelumnya buka project baru, tambahkan sebuah form dan masukkan ke dalamnya sebuah pictureBox, dan 3 buah Command, kemudian cobalah masukkan coding dibawah 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

*)

Intinya adalah mengubah nilai/value dari 'Height', 'Widht', 'Left' dan 'Top' pada event Form_Resize, mengikuti perubahan ukuran form-nya, sedangkan angka berwarna merah silakan diubah-ubah sesuai keinginan.

Selamat mencoba, apabila codenya kurang berkelas mohon dimaafkan, prinsip saya yang penting berhasil :D

Semoga bermanfaat !!!

Related Post