VB6.0 - Code Generator: Add OCX Add DLL Programmatically

Yang dimaksud kode generator disini adalah sebuah aplikasi yang digunakan untuk membuat sebuah project. Adapun tujuan utamanya ialah untuk menghemat waktu, tenaga, dan biaya sedangkan tujuan lainnya yang tidak kalah penting adalah kecepatan. Kode generator sangat baik sekali digunakan untuk pembuatan aplikasi-aplikasi database, karena aplikasi database hampir memliki kode-kode yang sama (insert-update-delete-dsb) hanya objeknya saja yang berbeda. Maka jika kita ingin membuat belasan aplikasi database dengan objek yang berbeda, pembuatan kode generator dengan rancangan yang baik sungguh sangat layak untuk dipertimbangkan. Sebagai contoh Anda dapat mendownload kode generator yang kurang baik atau tepatnya tidak baik disini. Walaupun kurang baik, tapi coba perhatikan apakah keistimewaanya.

Membuat aplikasi kode generator yang baik, tentunya harus memiliki kemampuan menambahkan sembarang OCX dan referensi DLL yang support VB6.0. Bagaimanakah caranya? Di bawah ini merupakan potongan dari kode generator tersebut, gunanya untuk menambahkan referensi DLL dan OCX.

'------------------------------------------------------------------------------- 
'        http://khoiriyyah.blogspot.com 
'        Administrator 
'------------------------------------------------------------------------------- 
 
Public VBInstance As VBIDE.VBE 
Public Connect As Connect 
 
Option Explicit 
 
Public Function InsertOCX(ProgID As String) As Boolean 
On Error GoTo ErrHandler 
    'Add OCX 
      VBInstance.ActiveVBProject.AddToolboxProgID ProgID 
    InsertOCX = True 
    Exit Function 
ErrHandler: 
    InsertOCX = False 
End Function 
 
Public Function InsertReferences(GUID As String, Mayor As Long, Minor As Long) As Boolean 
On Error GoTo ErrHandler 
    'Add dll references 
    VBInstance.ActiveVBProject.References.AddFromGuid GUID, Mayor, Minor 
    InsertReferences = True 
ErrHandler: 
    InsertReferences = False 
End Function 
 
Private Sub Command1_Click() 
    'Add ListView to VB6 project 
    InsertOCX "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}" 
    'Add TreeView 
    InsertOCX "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}" 
    'Add MSFlexGrid 
    InsertOCX "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}" 
End Sub 
 
Private Sub Command2_Click() 
    'Add scrun.dll Microsoft Scripting Runtime) 
    InsertReferences "{420B2830-E718-11CF-893D-00A0C9054228}", 1#, 0 
    'Add msado15.dll Microsoft ActiveX Data Objects 2.8 Library)   
    InsertReferences "{2A75196C-D9EB-4129-B803-931327F72D5C}", 2, 8 
End Sub 

Adapun cara menggunakan kode di atas telah saya bahas disini dan disini. Semoga bermanfaat.

READ MORE - VB6.0 - Code Generator: Add OCX Add DLL Programmatically

Fungsi Personal Editor HTML Ordering List [OL]

Ini merupakan fungsi yang digunakan untuk membuat personal editor. Tag yang akan kita modifikasi adalah tag OL (Ordering List).

Option Explicit 
 
Function OL(strText As String) As String 
    Dim sText As String 
    Dim aText() As String 
    Dim i As Integer 
    sText = strText 
    aText = Split(sText, vbCrLf) 
    For i = LBound(aText) To UBound(aText) 
        Select Case i 
        Case LBound(aText) 
            sText = "<ol>" &   "<li>" & aText(i) & "</li>" & vbCrLf 
        Case UBound(aText) 
            sText = sText & "<li>" & aText(i) & "</li>" & "</ol>" 
        Case Else 
            sText = sText & "<li>" & aText(i) & "</li>" & vbCrLf 
        End Select 
    Next 
    OL = sText 
End Function 

Cara penggunaan Fungsi Personal Editor HTML Ordering List <OL>

Private Sub Command1_Click() 
    Text1.SelText =   OL(Text1.SelText) 
End Sub 

READ MORE - Fungsi Personal Editor HTML Ordering List [OL]

Fungsi Personal Editor HTML Unordering List [UL]

Ini merupakan fungsi yang digunakan untuk membuat personal editor. Tag yang akan kita modifikasi adalah tag UL (Unordering List).

Option Explicit 
 
Function UL(strText As String) As String 
    Dim sText As String 
    Dim aText() As String 
    Dim i As Integer 
    sText = strText 
    aText = Split(sText, vbCrLf) 
    For i = LBound(aText) To UBound(aText) 
        Select Case i 
        Case LBound(aText) 
            sText = "<ul>" &   "<li>" & aText(i) & "</li>" & vbCrLf 
        Case UBound(aText) 
            sText = sText & "<li>" & aText(i) & "</li>" & "</ul>" 
        Case Else 
            sText = sText & "<li>" & aText(i) & "</li>" & vbCrLf 
        End Select 
    Next 
    UL = sText 
End Function 

Cara penggunaan Fungsi Personal Editor HTML Unordering List <UL>

Private Sub Command1_Click() 
    Text1.SelText =   UL(Text1.SelText) 
End Sub 
 

READ MORE - Fungsi Personal Editor HTML Unordering List [UL]

Menghapus Spasi Yang Tidak Diperlukan (Spasi Rangkap)

Option Explicit 
 
Private Function DelJunkSpace(str As String) As String 
    Do While (InStr(str, "  ") > 0) 
        str = Replace(str, "  ", " ") 
    Loop 
    DelJunkSpace = str 
End Function 

Private Sub Form_Load() 
    Dim str As String 
    str = "Asep         Hibban        http://4basic-vb.blogspot.com" 
    'return = "Asep Hibban http://4basic-vb.blogspot.com" 
    Text1.Text = str 
End Sub 

READ MORE - Menghapus Spasi Yang Tidak Diperlukan (Spasi Rangkap)