Membuat Aplikasi “Hello, World!” dengan menambah kontrol secara dinamis pada saat di jalankan di Visual Basic 6.0

Mungkin cara ini masih belum banyak yang menggunakannya, terutama saya sendiri khususnya terbilang masih baru dalam penggunaanya. Oleh karena itulah saya mencoba memposting menggunakan cara ini. Setelah cukup lama mencari-cari dan mempelajarinya akhirnya saya sudah mulai terbiasa menggunakannya dan ternyata menyenangkan dan terkadang cukup melelahkan. Mungkin setelah teman-teman mencoba sendiri postingan ini, teman-teman dapat memahami apa yang saya maksudkan.

Sebelum memulai ada baiknya kita mencoba terlebih dahulu mengetahui dengan apa yang dimaksud dengan “Dynamically Adding Control at Runtime” yang dalam bahasa indonesianya “Menambah Kontrol secara Dinamis pada saat di Jalankan”. Berbeda dengan cara konfensional yang biasa teman-teman gunakan yaitu menambahkan kontrol-kontrol secara langsung pada sebuah form, cara ini kontrol-kontrol akan di tambahkan setelah form berjalan. Untuk lebih jelasnya akan saya coba jelaskan dengan pembuatan aplikasi “Hello, World!” berikut ini:

1. Jalankan terlebih dahulu aplikasi Visual Basic 6.0

2. Ketika jendela “New Project” muncul pilih “Standard EXE” kemudian tekan tombol “Open”

3. Pada “Menu Bar” pilih “View” kemudian pilih “Code” atau pada jendela “Project” pilih “View Code”

4. Setelah jendela “Project1 - Form1(Code)” terbuka copy semua listing code di bawah ini kemudian paste-kan di sana

 

Option Explicit

Dim WithEvents cmdClickHere As VB.CommandButton

Private Sub cmdClickHere_Click()
    MsgBox "Hello, World!", vbInformation, "Information"
End Sub

Private Sub Form_Load()
    With Me
        .Caption = "Hello World"
        .Top = (Screen.Height - .Height) / 2
        .Left = (Screen.Width - .Width) / 2
    End With
    
    Set cmdClickHere = Controls.Add _
    ("VB.CommandButton", "cmdClickHere", Form1)
    With cmdClickHere
        .Move Me.ScaleLeft + 1730, Me.ScaleTop + 1350
        .Visible = True
        .Caption = "Click Here"
    End With
End Sub

5. Pilih tombol “Start” pada “Command Bar” atau pada “Menu Bar” pilih “Run” kemudian pilih “Start” atau teman-teman bisa langsung menekan tombol “F5” pada keyboard

Bagaimana? mudah-mudahan contoh ini dapat menjelaskan apa yang saya maksudkan di atas.