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
Klik Like/share jika anda menyukai tulisan
mantap >>>>>>>>>>>>>>>>>>
BalasHapusUntuk di VB6 yang bukan pakai coding bisa gan? saya cari2 untuk properti ANCHOR di vb6 tidak ada.
BalasHapus