Source Code Form Full Transparent (Visual Basic 6)

Kali ini saya akan memberikan sedikit tutorial "Membuat Program Dengan Tampilan Form 100% Transparent" di Visual Basic 6 (VB6). Cara pembuatan Program Dengan Tampilan Form 100% ini cukup mudah, silahkan ikuti langkah-langkahnya di bawah ini:

1. Buka Microsoft Visual Basic 6. Lihat gambar ini

2. Selanjutnya buat New Project, pilih Standard EXE. Lihat gambar :

3. Selanjutnya copy code di bawah ini ke Code General Declarations Project anda :

Option Explicit Dim I As Long Dim Merah, Hijau, Biru As Integer Dim Counter As Integer Private winHwnd As Long Private NamaDll As String Private Const GWL_STYLE = (-16) Private Const WS_MAXIMIZEBOX = &H10000 Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" ( _ ByVal hwnd As Long, _ ByVal crKey As Long, _ ByVal bAlpha As Byte, _ ByVal dwFlags As Long) As Long Private Const GWL_EXSTYLE = (-20) Private Const WS_EX_LAYERED = &H80000 Private Const LWA_COLORKEY = &H1& Private Const LWA_ALPHA = &H2&

4. Jangan lupa copy code Form Load di bawah ini :

Private Sub Form_Load() On Error Resume Next BackColor = RGB(127, 127, 0) ' Unique but explicit (non-system) color alias tembus pandang versi bahasa saya :D SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED SetLayeredWindowAttributes hwnd, BackColor, 0, LWA_COLORKEY Me.BackColor = RGB(127, 127, 0) App.TaskVisible = True If App.PrevInstance Then ' Jika applikasi sudah terbuka maka.... MsgBox "Is Running!!!", vbInformation, "Warning!" Unload Me ' Applikasi Dihentikan End End If End Sub

5. Sekarang silahkan test Running program buatan anda ....

Apakah Program Dengan Tampilan Form Full Transparent buatan anda bisa berjalan? Jika anda kesulitan silahkan Download Form Transparent Source Code VB 6 Sample disini.
Semoga Berhasil!

Share this

Author : Anonymous

Related Posts