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
- cara buat form keren
- menu cantik vb6
- transparent form
- membuat form vb6 menarik
- membuat skin vb
- vb6 qr code generator
- merancang form pada vb agar terlihat menarik
- tampilan vb keren
- cara membuat form login dengan visual basic 6 0 menarik dan bagus
- design cantik vb6
- membuat form transparant menggunakan vb
- agar tampilan form transparan pada vb
- cara menambahkan form about pada vb
- membuat form loading dengan vb
- cara mengunci form di vb
- aplikasi keren dengan vb6
- membuat loading pada vb 6
- membuat efek transparent form vb 6 0
- membuat browser dengan visual basic 6
- vb transparent
- tampilan menarik vb6
- membuat form vb transparent
- arti hwnd di vb net
- desain menu cantik dengan visual basic
- form login vb net keren
- membuat login form dengan VB6
- mengatur tampilan vb6
- membuat form transparant
- membuat form loading vb6
- membuat skin form vb6
- cara membuat form transparan pada vb
- memberi gambar pada form VB
- cara mengganti skin pada vb6
- bagaimana cara transparan pada form visual basic
- cara menggunakan skin pada vb 6 0
- desain form visual basic 6 0
- contoh form transparent vb6
- form visual basic
- cara membuat background berubah di vb6
- membuat form vb transparan
- membuat skin form vb
- cara membuat form cantik menggunakan vb 6
- Cara Membuat Form Loading vb6
- cara membuat form loading di vb6
- cara membuat form cantik di vb
- membuat jam digital di vb6
- cara buat backgroun transparan vb
- script vb 6 membuat Jam Digital
- mengunci form vb
- visual basic
- script vb6 untuk software toko
- cara membuat skin vb
- cara membuat jam digital pada visual basic6
- cara bikin dan nambah login di visual basic
- CARA MENBUAT COMMEND DENGAN GAMBAR VB6 0
- CARA MENGATUR TRANSPARAN FORM DI VB
- contoh source code membuat scroll bar pada vb 6 0
- cara membuat form vb transparent
- yoyocici background
- contoh form loading di vb6
- aplikasi kunci desktop menggunakan visual basic
- cara membuat login hotspot dengan visual basic 6
- cara mengubah gambar di layar form vb6
- cara membuat visual basic
- contoh aplikasi personel vb 6
- desain form di vb 6
- contoh source vb unik
- coding transparent form pada vb6
- cara menggunakan skin pada vb 6
- Cara Membuat Hardware ID Di Visual Basic
- cara membuat loading form di vb6
- cara menambahkan video ke visual basic
- cara menggunakan skin vb6
- cara mudah membuat form pada visual basic 6 0
- cara mengubah skin vb6
- cara menambahkan backgroung di from vb
- contoh form menarik menggunakan vb
- contoh aplikasi vb6 form transparan
- coding program mengatur tampilan pada form vb6
- contoh program skin vb
- contoh visual basic 6
- cara set background agar pas dengan form di visual basic
- cara membuat menu di vb 6
- cara membuat loading vb6
- cara membuat jam pada visual basic 6 0
- cara membuat scrol di form vb
- cara membuat skin vb6
- cara membuat menu utama yang menarik pada vb6
- cara mendesain form pada visual basic
- cara agar backgroun sesuai layar pada vb 6
- cara membuat transparan form vb
- cara membuat tampilan visual basic 6 0 agar tampak menarik
Hello to all
In this difficult continuously, I disposition you all
Appreciate your strain and friends
coba activex EcoCollection.dll lebih bnyak fungsi
https://ecoframework.wordpress.com/
thx mas ..Â
untuk ilmu nya..Â
form transparant nya keren …
mas mas aq coba ko ga berhasil ya, dari ke 2nya g ada yang bisa……
mohon pencerhanya……….
kodenya jangan di kopi paste, tanda quota berubah kalau sudah dalam post.
apa perlu ada penambahan project atau refrence
tidak sudah ada di api
gmna sih cara masukin kodenya? bingung saya..
tlong dbantu ya… masih belajar ini…
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
mantap mas, coba ah…
mas btw boleh copy paste blognya gak???