Membuat Dynamic Control (VB6)

Mungkin terkadang kita membutuhkan sebuah textbox, label, atau control lainnya yang posisinya dapat dipindah-pindah secara fleksibel di dalam form. Biasanya control yang seperti ini disebut dynamic control. Untuk membuat sebuah dynamic control, dapat kita lakukan melalui kode program. Di bawah ini contoh program untuk membuat sebuah command button yang dinamis:

Option Explicit

Dim WithEvents cmdDynamic As CommandButton

Private Sub Form_Load()
  Set  cmdDynamic = Controls.Add("vb.commandbutton", "cmdDynamic")
  cmdDynamic.Width = 2000
  cmdDynamic.Top = Me.Height / 2 - cmdDynamic.Height / 2 - 100
  cmdDynamic.Left = Me.Width / 2 - cmdDynamic.Width / 2 - 100
  cmdDynamic.Caption = "OK"
  cmdDynamic.Visible = True
    
End Sub

Private Sub cmdDynamic_click()
  MsgBox "Selamat..!! Anda telah berhasil membuat Dynamic Control", _
    , "Dynamic Controls"
End Sub

Sediakan sebuah form kosong, kemudian tuliskan kode di atas. Selanjutnya, JALANKAN program anda.

Selamat mencoba...!