Tuesday, June 12, 2012

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