Friday, March 19, 2010

VB6 Code - Cara Membuat Form Pada Saat Design Time

Artikel di bawah ini menjelaskan bagaimana cara membuat form pada saat design time melalui pengkodean Visual Basic 6.0. Langkah-langkah pembuatan: Buat project Add-Ins yang berasal dari template Secara default maka akan terdapat frmAddIn, di dalamnya terdapat kode:
Public VBInstance As VBIDE.VBE
Public Connect As Connect

Option Explicit

Private Sub CancelButton_Click()
Connect.Hide
End Sub

Private Sub OKButton_Click()
MsgBox "AddIn operation on: " & VBInstance.FullName
End Sub

Public VBInstance As VBIDE.VBE
Public Connect As Connect

Gantilah seluruh kodenya dengan kode di bawah ini:

Option Explicit

Private Sub CancelButton_Click()
Connect.Hide
End Sub

Private Sub OKButton_Click()
Dim frm As VBIDE.VBComponent
Set frm = VBInstance.ActiveVBProject.VBComponents.Add(vbext_ct_VBForm)
With frm
.Properties("Name") = "frmMain"
.Properties("Width") = 7155
.Properties("Caption") = "Main Form"
.Properties("Height") = 5000
End With
End Sub

Langkah selanjutnya adalah meng-compile kodenya sehingga terbentuk file dengan nama "MyAddIn.dll".

Langkah-langkah menjalankan:

  1. Buka project baru
  2. Klik menu Add-Ins
  3. Klik Sub Menu My AddIn