Cara Membuat Autoresize Component/Controls Form Visual Basic 6.0

Cara Membuat Autoresize Component/Controls Form Visual Basic 6.0 | Visual Basic Magazine - Salah satu masalah yang sering terjadi adalah, ketika form program yang awalnya dibuat dengan ukuran yang kecil pada saat dirunning dan di maximize maka komponen/controls yang terpasang pada form tersebut tidak otomatis ikut menjadi besar, sehingga terlihat bagian form yg kosong dan membuat tampak kurang rapi.

Posting kali ini saya akan membagikan coding agar saat form di maximize maka komponent/controls yang terpasang juga otomatis menyesuaikan. Posting ini sekaligus menanggapi beberapa pertanyaan yang sama yang cukup sering ditanyakan oleh member di forum VB.

Namun karena masih banyaknya keterbatasan pengetahuan saya tentang pemrograman VB, sehingga kurang sempurna juga program ini. Karena tidak semua control support dengan coding ini, salah satunya seperti menu editor dan toolbar. Jadi silakan sobat kembangkan sendiri program ini agar bisa lebih sempurna lagi.

Untuk lebih jelasnya, silakan ikuti langkah-langkah berikut ini :

• Masukkan coding berikut ini pada bagian General Declaration Form (Bagian paling atas form) :

Private Type ControlPositionType Left As Single Top As Single Width As Single Height As Single FontSize As Single End Type Private m_ControlPositions() As ControlPositionType Private m_FormWid As Single Private m_FormHgt As Single

• Setelah itu, letakkan coding berikut ini tepat di bawahnya :

Private Sub SaveSizes() Dim i As Integer Dim ctl As Control ReDim m_ControlPositions(1 To Controls.Count) i = 1 For Each ctl In Controls With m_ControlPositions(i) If TypeOf ctl Is Line Then .Left = ctl.X1 .Top = ctl.Y1 .Width = ctl.X2 - ctl.X1 .Height = ctl.Y2 - ctl.Y1 Else .Left = ctl.Left .Top = ctl.Top .Width = ctl.Width .Height = ctl.Height On Error Resume Next .FontSize = ctl.Font.Size On Error GoTo 0 End If End With i = i + 1 Next ctl m_FormWid = ScaleWidth m_FormHgt = ScaleHeight End Sub

Private Sub ResizeControls() Dim i As Integer Dim ctl As Control Dim x_scale As Single Dim y_scale As Single If WindowState = vbMinimized Then Exit Sub x_scale = ScaleWidth / m_FormWid y_scale = ScaleHeight / m_FormHgt i = 1 For Each ctl In Controls With m_ControlPositions(i) If TypeOf ctl Is Line Then ctl.X1 = x_scale * .Left ctl.Y1 = y_scale * .Top ctl.X2 = ctl.X1 + x_scale * .Width ctl.Y2 = ctl.Y1 + y_scale * .Height Else ctl.Left = x_scale * .Left ctl.Top = y_scale * .Top ctl.Width = x_scale * .Width If Not (TypeOf ctl Is ComboBox) Then ctl.Height = y_scale * .Height End If On Error Resume Next ctl.Font.Size = y_scale * .FontSize On Error GoTo 0 End If End With i = i + 1 Next ctl End Sub

• Kemudian letakkan coding berikut pada event Form_Load() :

SaveSizes

• Setelah itu masukkan coding berikut pada event Form_Resize() :

ResizeControls

Coba jalankan form tersebut, kemudian coba maximize dan lihat hasilnya. Komponen/control secara otomatis akan mengikuti ukuran form.

Contoh project ini bisa sobat download melalui link berikut ini :

Note :
Program ini masih jauh dari sempurna karena tidak support untuk beberapa control form seperti menu editor dan toolbar, silakan sobat kembangkan sendiri program tersebut.

Sekian dulu posting saya yang berjudul Cara Membuat Autoresize Component/Controls Form Visual Basic 6.0. Semoga bermanfaat dan selamat mencoba.