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...
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 ...
READ MORE - Di manakakah letak procedure Sub Main? - VB6 Add-Ins

Memeriksa Apakah Sebuah Project Telah Disimpan - VB6 Add-Ins

Melalui VB6 Add-Ins kita dapat memeriksa apakah sebuah project telah disimpan atau belum, berikut fungsi untuk memeriksa apakah project telah disimpan:Private Function IsProjectSaved() As Boolean IsProjectSaved = Not (VBInstance.ActiveVBProject.Filename...
READ MORE - Memeriksa Apakah Sebuah Project Telah Disimpan - VB6 Add-Ins

Mendapat Seluruh Kode Yang Terdapat Pada CodeModule - Add-Ins

Di bawah merupakan fungsi untuk memperoleh seluruh kode dari baris pertama hingga baris terakhir - Bermanfaat terutama untuk meng-crop kode-kode sample dan memasukannya ke dalam snippet database. Public VBInstance As VBIDE.VBE Public Connect As Connect...
READ MORE - Mendapat Seluruh Kode Yang Terdapat Pada CodeModule - Add-Ins