Environment Setup

Installation

• VB6 Enterprise/Professional Edition
• Perlu Windows 32-bit atau compatibility mode di Windows 64-bit
• Alternatif: Use VB6 in Wine/Linux atau VM Windows

Project Structure

Project/
├── Project.vbp          # Project file
├── Project.vbw          # Workspace file
├── Form1.frm            # Form definition
├── Module1.bas          # Module code
├── Class1.cls           # Class module
└── Resources/
    └── Resource1.res    # Resource file

Variables & Types

Declaration

Dim nama As String
Dim usia As Integer
Dim harga As Double
Dim aktif As Boolean
Dim arr() As String

Data Types

Control Structures

If-Then

If kondisi Then
    ' code
ElseIf kondisi2 Then
    ' code
Else
    ' code
End If

Select Case

Select Case nilai
    Case 1
        ' code
    Case 2
        ' code
    Case Else
        ' code
End Select

Loops

For Loop

For i = 1 To 10
    ' code
Next i

Do While

Do While kondisi
    ' code
Loop

For Each

For Each item In collection
    ' code
Next item

Forms & Controls

Common Controls

• TextBox, Label, CommandButton
• ListBox, ComboBox
• CheckBox, OptionButton
• Timer, PictureBox, Image
• DataGrid, MSFlexGrid

Event Handling

Private Sub Command1_Click()
    MsgBox "Button clicked!"
End Sub

Private Sub Form_Load()
    ' Initialize form
End Sub

ADODB Connection

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb;"
conn.Open

rs.Open "SELECT * FROM table", conn, adOpenStatic, adLockOptimistic

Do While Not rs.EOF
    Debug.Print rs!fieldname
    rs.MoveNext
Loop

rs.Close
conn.Close

Error Handling

On Error GoTo ErrorHandler
' code that might error
Exit Sub

ErrorHandler:
    MsgBox Err.Description
    Resume Next
End Sub

Err Object Properties

• Err.Number - Error code
• Err.Description - Error message
• Err.Source - Error source

Class Module

' Class1.cls
Private m_Name As String

Public Property Get Name() As String
    Name = m_Name
End Property

Public Property Let Name(value As String)
    m_Name = value
End Property

Public Sub DoSomething()
    ' code
End Sub

Usage

Dim obj As New Class1
obj.Name = "Test"
obj.DoSomething

ActiveX DLL

Steps to Create

1. Create ActiveX DLL project
2. Add Class Module
3. Write your code
4. Compile to .dll
5. Register with regsvr32 Project.dll

Register/Unregister

' Register
regsvr32 Project.dll

' Unregister
regsvr32 /u Project.dll

Packaging & Deployment

Package & Deployment Wizard

• Use Package & Deployment Wizard
• Include runtime files (msvbvm60.dll)
• Create setup.exe

Common Dependencies

Resources & Tools

Tools

• VB6 IDE (Official)
• MZ-Tools (add-in)
• Rubberduck (VB6 VBA)

References

• Microsoft VB6 Documentation
• VBForums Community
• Planet Source Code