[Terima kasih atas kunjungan anda, mohon input buku tamu, komentar dan saran yang membangun]

Cara membuat transparant form untuk aplikasi dengan compiler visual basic 6

Post by Jr Hiezkia Manic Jul 17, 2011

Mudah saja sebenarnya. Kita bisa saja memanfaatkan file ocx yang sudah dikompile, namun ini sangat tidak disarankan karena kita tidak tahu module apa saja yang ada didalam file ocx tersebut, iya kan kalau isinya virus jadinya nggak seru. Kenapa harus menggunakan transparent form?
sebenarnya ini tidak wajib kok cuma biasanya orang iseng ingin supaya aplikasinya terlihat menarik… 
Adapun cara untuk membuat transparent form ini mudah untuk dicoba sendiri dirumah. Langkah awalnya adalah membuat sebuah project baru.

Setelah itu tambahkan kode berikut ini kedalam form tersebut :
Option Explicit
Private Declare Function GetWindowLong Lib “User32″ Alias _
“GetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long) As Long
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 SetLayeredWindowAttributes Lib “User32″ _
(ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, _
ByVal dwFlags As Long) As Long
Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = (-20)
Const LWA_ALPHA = &H2
Private Sub form_load()
Dim rtn As Long
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA 
'200 adalah nilai transparant semakin kecil nilainya semakin transparant, nilai 255 untuk reset.
End Sub

Selesai deh tinggal dicoba hasilnya.
semakin transparant maka nilai yang diberikan harus semakin kecil.
maka akan terlihat tampilan sbg berikut...


SeLamat mencoba..:) 
 


   
Artikel Terkait di Bawah posting
Tools
Information
Software
Label: , ,

0 coment:

Post a Comment

Jadilah yang pertama untuk berikan komentar yang membangun.

Subscribe to: Post Comments (Atom)