Form Transparan dengan VB 6.0

Kita masih membahas soal kode-kode VB 6.0 (Visual Basic 6.0). Kali ini yang akan saya bagikan cara membuat Form Transparan. Ok, kita langsung saja ke cara pembuatannya.

Berikut cara pembuatannya:

1. Buat Project VB 6.0 baru.
2. Tambahkan sebuah Module dengan cara pilih menu Project --> Add Module.
3. Kemudia copy-paste kode di bawah ini ke dalam Module.

Public Const WS_EX_LAYERED = &H80000
Public Const GWL_EXSTYLE = (-20)
Public Const LWA_COLORKEY = &H1
Public Const LWA_ALPHA = &H2
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib "user32"(ByVal hwnd As Long, ByVal crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

4. Kembali ke Form dan Tambahkan 3 Label dan atur Properties masing-masing Label dengan Name=lblPosisi dan Caption=Posisi Slide 250, Name=lblMin dan Caption=10, serta Name=lblMax dan Caption=250.
5. Tambahkan 1 Slider dengan cara pilih menu Project --> Components (Ctrl+T) --> centang Microsoft Windows Common Controls 6.0 (SP6) dan atur seperti gambar di bawah ini.

6. Klik 2x Form dan pada Form_Load() ketikkan kode di bawah ini.

Me.Slider1.Max = 250
Me.Slider1.Min = 10
Me.Slider1.Value = 250
Me.Label3.Caption = "Posisi slide " & Me.Slider1.Value

7. Kemudian ketikkan lagi kode di bawah ini setelah penutup Form_Load() yaitu End Sub.

Private Sub Slider1_Scroll()
    Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
    Call SetLayeredWindowAttributes(Me.hwnd, RGB(125, 0, 125), Me.Slider1.Value, LWA_ALPHA Or LWA_COLORKEY)
    Me.lblPosisi.Caption = "Posisi slide " & Me.Slider1.Value
End Sub

8. Jalankan program dan lihat hasilnya. Selesai dan terima kasih.
   

Jika ingin download contohnya, ada disini atau disini.