Gambar simulasi perubahan ukuran form yang diikuti
perubahan ukuran/posisi object didalamnya.
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 !!!
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :