rahmatdcc.blogspot.com

Inno setup adalah salah satu yang digunakan untuk membuat installer (package) untuk projet Visual Basic / Net. Tool sangat membantu disamping di dalam VB sendiri mempunya compiler internal yang digunakan untuk membuat installer. Kelebihan dari Inno Setup adalah file Installer yang dihasilkan lebih kecil dibandingkan menggunakan compiler internal VB. 

• Masukkan file project VB dan tentukan folder output untuk menaruh file-file tersebut
• centang file-file yang berada di dalam list
• Klik Start Dependency Packing Process

• Klik Next

• Edit isian-isian tersebut, Application Name, Application Version, Application Pubblisher, Application Website 

• klik next

• klik BROWSE untuk memasukkan file *.exe dari program
• Add Files / Add Folder untuk memasukkan file-file yang dibutuhkan untuk installer

• centang "Create an Uninstall Icon In the Start Menu folder" untuk menambahkan icon untuk uninstall program
• centang "Allow user to create a quick launch icon" untuk menambahkan icon program pada menu quick launch

• licence file - jika mau memasukkan file lisensi program
• information file shown before installation - untuk informasi file sebelum proses instalasi
• information file shown after installation - untuk informasi file setelah proses instalasi selesai

• pilihan bahasa setup, klik next
• klik next saja sampai finish

• Klik finish

• Klik YES untuk melanjutkan ke proses Compile
• Klik NO jika akan mengedit script compile, khususnya beberapa file-file tertentu yang seharusnya tidak berada di App.path, tetapi mau dipindah ke windows/system32
• jika ingin merubah destinationya ke system32, caranya: 

Source: "D:\DATA\#PROYEK\Dependencies\arpro2.dll"; DestDir: "{app}"; Flags: ignoreversion

dirubah menjadi

• klik RUN untuk melanjutkan proses compile
• Setelah selesei jalankan file setup hasil compile dengan Inno Setup

Ada masalah kecil ketika menggunakan perintah SendKeys pada VB6 dengan OS windows 8, setelah googling, akhirnya mendapatkan script berikut dan alhamdulillah sukses. tapi sory lupa save link sumbernya. berikut scriptnya:

Public Sub Sendkeys(text$, Optional wait As Boolean = False)
   Dim WshShell As Object
   Set WshShell = CreateObject("wscript.shell")
   WshShell.Sendkeys text, wait
   Set WshShell = Nothing
End Sub

1. Buatlah form yang berisi Listview
2. Copy script berikut
3. panggil di form-load
    - call TabelClient
    - call DataClient


Sub TabelClient()
    With ListView1
        .view = lvwReport
        .GridLines = True
        .FullRowSelect = True
        .HotTracking = True
        .ColumnHeaders.Clear
                
        With .ColumnHeaders
             .Add , , 0, 1
             .Add , , "No", 700, lvwColumnCenter
             .Add , , "Kode", 900, lvwColumnCenter
             .Add , , "Nama Client", 4500
             .Add , , "Alamat", 7500
             .Add , , "Kota", 2500
             .Add , , "Telpon", 1500
             .Add , , "Fax", 1500
        End With
      End With
End Sub
Sub DataClient()
Dim rs As New MYSQL_RS
Dim rs2 As New MYSQL_RS
        
    On Error Resume Next
    rs.OpenRs "SELECT * " & _
        "FROM data_client_master ", db
    
    ListView1.ListItems.Clear
        If rs.EOF = False Then
            ListView1.ListItems.Clear
            rs.MoveFirst
            
            Do While Not rs.EOF
            Set List = ListView1.ListItems.Add
                List.SubItems(1) = Me.ListView1.ListItems.Count
                List.SubItems(2) = rs.Fields("client_kode")
                List.SubItems(3) = rs.Fields("client_nama")
                List.SubItems(4) = rs.Fields("client_alamat")
                List.SubItems(5) = rs.Fields("client_kota")
                List.SubItems(6) = rs.Fields("client_telpon")
                List.SubItems(7) = rs.Fields("client_fax")
            rs.MoveNext
            Loop
        End If
        rs.CloseRecordset
        lblJumlah.Caption = "Jumlah : " & ListView1.ListItems.Count
End Sub