Menghilangkan Reference DLL Yang Tidak Digunakan - VB6 Add-Ins

Di bawah ini merupakan kode untuk menghilangkan reference yang tidak digunakan dalam sebuah project. Untuk menggunakannya, buatlah project Addins, selanjutnya gantilah seluruh kode yang terdapat pada frmAddins dengan kode di bawah:

Public VBInstance As VBIDE.VBE 
Public Connect As Connect 
 
Option Explicit 
 
Private Sub CancelButton_Click() 
    Connect.Hide 
End Sub 
 
Private Sub OKButton_Click() 
    CleanUpUnUsedReferences 
End Sub 
 
Private Function CleanUpUnUsedReferences() 
    Dim c, my, mn 
    'On Error GoTo ErrHandler 
    Dim ref As VBIDE.Reference 
    Dim refPath As String 
    For Each ref In VBInstance.ActiveVBProject.References 
        refPath = ref.FullPath 
        c = ref.Guid: my = ref.Major: mn = ref.Minor 
        If ref.BuiltIn <> True Then 
            With VBInstance.ActiveVBProject.References 
                .Remove ref 'hapus reference 
               ' Shell "regsvr32.exe " & Chr(34) & refPath & Chr(34) & " /u /s" 
                VBInstance.ActiveVBProject.MakeCompiledFile 'compile, jika error kembalikan reference 
            End With 
        End If 
    Next 
    Exit Function 
ErrHandler: 
        VBInstance.ActiveVBProject.References.AddFromGuid c, my, mn 'kembalikan reference 
        Err.Clear 
        Resume Next 
End Function 

READ MORE - Menghilangkan Reference DLL Yang Tidak Digunakan - VB6 Add-Ins

Agar Form Tidak Bisa Digeser Atau Dipindahkan - VB6

Mengenai kode yang digunakan membekukan form agar tidak bisa digeser atau dipindahkan (move).

Option Explicit 
 
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long 
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long 
 
Public Const SC_MOVE = &HF010& 
Public Const MF_BYCOMMAND = &H0& 
 
Public Function FrozeForm(frm As Form) 
    Dim lhSysMenu As Long 
    Dim lRetVal As Long 
    lhSysMenu = GetSystemMenu(frm.hwnd, False) 
    lRetVal = RemoveMenu(lhSysMenu, SC_MOVE, MF_BYCOMMAND) 
End Function 

Contoh penggunaan kode di atas:

Private Sub Form_Load() 
    FrozeForm Me 
End Sub 

READ MORE - Agar Form Tidak Bisa Digeser Atau Dipindahkan - VB6

Mengganti Seluruh Kode Yang Terdapat Pada Module - VB6 Add-Ins

Di bawah merupakan kode untuk mengganti seluruh kode yang terdapat pada CodeModule VBComponent (Form, Module, Class, dll) melalui Add-Ins.

Private Function SetCodeModule(s As String, c As String) As Boolean 
    Dim cd As CodeModule 
    Set cd = VBInstance.ActiveVBProject.VBComponents(s).CodeModule 
    cd.DeleteLines 1, cd.CountOfLines 
    cd.AddFromString c 
End Function 

READ MORE - Mengganti Seluruh Kode Yang Terdapat Pada Module - VB6 Add-Ins

Di manakakah letak procedure Sub Main? - VB6 Add-Ins

Karena letak prosedure Sub Main() bisa di module mana saja, maka untuk mengetahuinya melalui project VB6 Addin, maka kita memerlukan kode di bawah ini:

Private Function GetSubMain() As String 
    Dim v As VBComponent 
    Dim l As Long, s As String 
    For Each v In VBInstance.ActiveVBProject.VBComponents 
        With v 
            If .Type = vbext_ct_StdModule Then 
                l = v.CodeModule.CountOfLines 
                If l > 0 Then 
                    s = v.CodeModule.Lines(1, l) 
                    If InStr(1, s, "sub main()", vbTextCompare) > 0 Then 
                        GetSubMain = v.Name 
                        Exit Function 
                    End If 
                End If 
            End If 
        End With 
    Next 
End Function 

READ MORE - Di manakakah letak procedure Sub Main? - VB6 Add-Ins