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 =
#660000;">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 !!!