Sintak Membuat AutoResize+AutoPosition Objects/Controls Form VB6

Terkadang kita ingin membuat tamplan form lebih flexible, salah satunya adalah dengan autoresize dan autoposition controls di form. Maksudnya adalah, saat form di resize atau maximize object form pun ikut menyesuaikan baik itu ukurannya maupun lokasinya. Sebenarnya jika anda menggunakan VB.NET, anda tidak perlu pusing/repot karena sudah ada fasilitas/property Docking sehingga setiap object akan menyesuaikan dengan sendirinya terhadap form. Saya telah membuat contoh sebagai berikut:

1.Saya tempatkan Object Object form dibawah ini secara acak (saat design)

2.Ketika program di RUN maka object form akan otomatis menyesuaikan dengan ukuran form

Ini TIDAK menggunakan ocx atau komponen lainya, ini hanya memanfaatkan event Form_Resize dan mengatur property Left, Top, Width dan High dari masing masing object form tersebut. Sebenarnya hal ini gampang gampang susah karena kita harus membayangkan dan menghitung secara matematis. Sintak Untuk contoh diatas cukup pendek, yaitu sebagai berikut :

Private Sub Form_Resize()
If Me.WindowState = 1 Then Exit Sub 'jika minimize
With Frame1
    .Left = 0
    .Top = 0
    .Width = Me.ScaleWidth
End With

With ListView1
    .Left = Frame1.Left
    .Top = Frame1.Top + Frame1.Height + 5 'jarak = 5
    .Width = Frame1.Width
    .Height = Me.ScaleHeight - (.Top + StatusBar1.Height + Command1.Height)
End With

With Command1
    .Left = Me.ScaleWidth - .Width
    .Top = ListView1.Top + ListView1.Height
End With
End Sub

Download Full Source Project
All Links Updated on 2012-12-09 (yy-mm-dd) !

Tags:

Contoh cara membuat autoresize controls, cara mudah membuat autoresize object form, function autoresize form controls, cara mudah membuat object form menyesuikan ukuran form, vb6 tutorial