Membuat Form Transparan VB6
Membuat form transparan VB6 yang akan blogger sragen bahas ini adalah pekerjaan yang sangat mudah. Untuk membuat form transparan vb6 ini yang anda lakukan hanyalah membuat gambar transparan dan anda masukan ke form tanpa harus mmakai object apapun. Untuk bisa membuat form transparan VB6 anda bisa menggunakan gambar gif yang sudah di bentuk transparan.
Source Module Membuat Form Transparan VB6
Source code ini masukan pada module baru. Jadi anda bisa memasukan module dalam project vb anda dan copy pastekan
- Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
- Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
- Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
- Sub SetTransparency(piHwnd As Long, piColor As OLE_COLOR)
- Const G_E = &HFFEC
- Const W_E = &H80000
- Const LW_KEY = &H1
- SetWindowLong piHwnd, G_E, GetWindowLong(piHwnd, G_E) Or W_E
- SetLayeredWindowAttributes piHwnd, piColor, 0, LW_KEY
- End Sub
Source Form Membuat Form Transparan VB6
Source code visual basic ini anda taruh di dalam source form. Cukup klik 2 kali form dan jadikan sub baru.
- Private Sub Form_Initialize()
- Call SetTransparency(Me.hwnd, Me.BackColor)
- End Sub
Download Source Code Visual Basic Membuat Form Transparan VB6
Silahkan download Download Source Code Visual Basic Membuat Form Transparan VB6 untuk contohnya
http://www.ziddu.com/download/14662508/Membuatformtransparanvb6.zip.html