Menambahkan Project Baru Menggunakan Add-Ins Visual Basic 6

Di bawah merupakan contoh menambahkan project baru menggunakan VB6 Addins. Adapun kode yang dibutuhkan untuk menambahkan project baru adalah VBInstance.VBProjects.Add(ProjectType), seperti pengkodean pada umumnya (menambahkan kontrol objek pada koleksi).

Public VBInstance As VBIDE.VBE 
Public Connect As Connect 
 
Option Explicit 
 
Private Sub CancelButton_Click() 
    Connect.Hide 
End Sub 
 
Private Sub OKButton_Click() 
 
    Dim p As VBProject 
    Set p = AddNewProject(vbext_pt_ActiveXControl) 'ActiveXControl project 
    With p 
        .Name = "prjButtonControl" 'setting properties 
        '.dan sebagainya 
    End With 
     
    Set p = AddNewProject(vbext_pt_ActiveXDll) 'ActiveXDll Project 
    With p 
        .Name = "prjClassDatabase" 'setting properties 
    End With 
    'dan sebagainya 
    AddNewProject vbext_pt_ActiveXExe 'ActiveXExe project 
    AddNewProject vbext_pt_StandardExe 'Standard Exe Project 
    'dan lain-lain 
End Sub 
 
'fungsi untuk menambahkan project baru 
Private Function AddNewProject(pType As vbext_ProjectType) As VBProject 
    Set AddNewProject = VBInstance.VBProjects.Add(pType) 
End Function 

READ MORE - Menambahkan Project Baru Menggunakan Add-Ins Visual Basic 6

Memasukan Sebuah Object ke dalam Container - Addins VB6

Di bawah ini merupakan contoh kode untuk memasukan sebuah objek ke dalam objek kontainer melalui Addins, dalam hal ini objek diwakili oleh satu CommandButton dan kontainer diwakili oleh satu objek Frame.

Public VBInstance As VBIDE.VBE 
Public Connect As Connect 
 
Option Explicit 
 
Private Sub CancelButton_Click() 
    Connect.Hide 
End Sub 
 
Private Sub OKButton_Click() 
    ObjectInContainerSample 
End Sub 
 
Private Sub ObjectInContainerSample() 
    'menambahkan PictureBox 
    Dim f As VBForm 
    Dim p As VBControl 
    Dim b As VBControl 
    Set f = VBInstance.SelectedVBComponent.Designer 
    Set p = f.VBControls.Add("Frame") 
    With p 
        .Properties("Height") = 2000 
        .Properties("Width") = 4000 
        .Properties("Left") = 500 
        .Properties("Top") = 500 
        .Properties("Caption") = "Data Siswa" 
        '.properties dan lain-lain 
    End With 
    'menambahkan CommandButton 
    Set b = f.VBControls.Add("CommandButton") 
    Set b.Container = p 'memasukan sebuah objek ke dalam kontainer 
    With b 
        .Properties("Left") = 500 
        .Properties("Top") = 500 
        .Properties("Caption") = "&Simpan" 
        '.properties dan lain-lain 
    End With 
End Sub 

READ MORE - Memasukan Sebuah Object ke dalam Container - Addins VB6

Merubah Nama (Rename) Active VB Project - VB6 Add-Ins

Berikut merupakan kode untuk merubah nama atau rename Active VB Project: VBInstance.ActiveVBProject.Name = "prjDatabase" apabila Active VB Project ingin dirubah namanya menjadi 'prjDatabase'.

Public VBInstance As VBIDE.VBE 
Public Connect As Connect 
 
Option Explicit 
 
Private Sub CancelButton_Click() 
    Connect.Hide 
End Sub 
 
Private Sub OKButton_Click() 
    RenameActiveProject "prjDatabase" 
End Sub 
 
Private Sub RenameActiveProject(s As String) 
        VBInstance.ActiveVBProject.Name = s 
End Sub 

READ MORE - Merubah Nama (Rename) Active VB Project - VB6 Add-Ins

Contoh Kode Menghilangkan Item VBComponent - VB6 Add-Ins

Berikut merupakan contoh kode untuk menghilangkan salah satu VBComponent (Form, Module, UserControl, Class, dll) berdasarkan namanya:

Public VBInstance As VBIDE.VBE 
Public Connect As Connect 
 
Option Explicit 
 
Private Sub CancelButton_Click() 
    Connect.Hide 
End Sub 
 
Private Sub OKButton_Click() 
    RemoveVBComponent "Form1" 
End Sub 
 
Private Sub RemoveVBComponent(s As String) 
    Dim f As VBComponent 
    Set f = VBInstance.ActiveVBProject.VBComponents.Item("Form1") 
    VBInstance.ActiveVBProject.VBComponents.Remove f 
End Sub 

READ MORE - Contoh Kode Menghilangkan Item VBComponent - VB6 Add-Ins