Membuat Transparent Form di Visual Basic 6
Pada Friday, 17 September, 2010 Jam 4:28 Di Tulis Oleh Istanto Adi NugrohoBACA ARTIKEL INI DALAM FORMAT AMP Membuat Transparent Form di Visual Basic 6
/rating_off.gif "1 Star")
(No Ratings Yet)
Loading...
|
Cara membuat transparent form untuk aplikasi dengan compiler visual basic 6 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 LongPrivate Declare Function SetWindowLong Lib “User32” Alias _
“SetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib “User32” _
(ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, _
ByVal dwFlags As Long) As LongConst WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = (-20)
Const LWA_ALPHA = &H2Private 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.
Kata Kunci Terkait:
- form cantik vb6
- membuat loading di vb6
- membuat login komputer dengan VB6
- membuat loading di vb 6
- membuat form cantik menggunakan vb
- form transparan vb6
- cara membuat skin form vb6
- cara membuat transparent form vb 6
- menu cantik vb6
- cara buat form keren
- cara membuat form login dengan visual basic 6 0 menarik dan bagus
- membuat skin vb
- membuat form vb6 menarik
- merancang form pada vb agar terlihat menarik
- vb6 qr code generator
- transparent form
- tampilan vb keren
- visual basic
- vb transparent
- tampilan menarik vb6
- cara mengganti skin pada vb6
- CARA MENBUAT COMMEND DENGAN GAMBAR VB6 0
- cara membuat jam digital pada visual basic6
- Cara Membuat Form Loading vb6
- cara menggunakan skin pada vb 6 0
- cara mengunci form di vb
- cara membuat form transparan pada vb
- cara membuat form loading di vb6
- cara menambahkan form about pada vb
- cara membuat skin vb
firman berkata:
Pada September 18th, 2010 Jam 7:48 PM
mantap mas, coba ah…
mas btw boleh copy paste blognya gak???
[Balas]
Ukie berkata:
Pada November 17th, 2010 Jam 1:18 PM
maaf mas.. source code itu saya pernah buat tapi bukan di tulis di Form, yang saya coba..
Buat sebuah Module baru lalu ketikkan :
Option Explicit
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
Private Declare Function GetWindowLong Lib “user32” Alias “GetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Sub FadeForm(Frm As Form, Level As Byte)
On Error Resume Next
Dim msg As Long
msg = GetWindowLong(Frm.hwnd, -20) Or &H80000
SetWindowLong Frm.hwnd, -20, msg
SetLayeredWindowAttributes Frm.hwnd, 0, Level, &H2
End Sub
Selanjutnya di bagian Form yang akan dijadikan transparan, di ‘Form_Load’ ketikkan :
FadeForm Me, 125
semoga membantu
[Balas]
Rizki berkata:
Pada July 4th, 2011 Jam 12:49 PM
gmna sih cara masukin kodenya? bingung saya..
tlong dbantu ya… masih belajar ini…
[Balas]
arifin berkata:
Pada August 2nd, 2011 Jam 8:59 AM
mas mas aq coba ko ga berhasil ya, dari ke 2nya g ada yang bisa……
mohon pencerhanya……….
[Balas]
Istanto Adi Nugroho berkata:
Pada August 2nd, 2011 jam 9:55 AM
kodenya jangan di kopi paste, tanda quota berubah kalau sudah dalam post.
[Balas]
Julfri berkata:
Pada July 25th, 2012 jam 11:14 PM
apa perlu ada penambahan project atau refrence
[Balas]
Istanto Adi Nugroho berkata:
Pada July 26th, 2012 jam 8:42 PM
tidak sudah ada di api
[Balas]
abdul rahman berkata:
Pada January 27th, 2012 Jam 11:45 AM
thx mas ..Â
untuk ilmu nya..Â
form transparant nya keren …
[Balas]
eko berkata:
Pada January 18th, 2013 Jam 2:53 PM
coba activex EcoCollection.dll lebih bnyak fungsi
https://ecoframework.wordpress.com/
[Balas]