Rabu, 03 Februari 2010

Membuat Form Transparan


http://erge32.blogspot.com Tips kali ini adalah bagaimana Membuat Form Transparant dengan Visual Basic, disini kita menggunakan Fungsi API yaitu GetWindowLong, SetWindowLong dan SetLayeredWindowAttributes. Saya rasa tidak perlu penjelasan yang detail untuk hal ini sobat bisa langsung melihat penampakannya dibawah ini

Bagaimana dengan Codingnya ikuti Langkah - Langkah Berikut :


  • Buat Project Baru Standart Exe
Ketik Coding dibawah ini pada Form Project Sobat

Option Explicit

Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

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 crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Form_Load()
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 0, 255), 128, LWA_ALPHA Or LWA_COLORKEY)
End Sub


Untuk ketajaman transparant sobat bisa menggati Angka - Angka yang berwarna merah dengan angka yang lain (maximal value 255). Mudah - mudahan ada mamfaatnya selamat mencoba ... salam

28 Komentar: Membuat Form Transparan


Tukang Service on 3 Februari 2010 07.08 mengatakan...

Wah boleh di coba nih Kang, emang bener2 seorang Master jadi tetep aja banyak inspirasi... sukseslah buat Kang Guanteng.

Terima Kasih Sob Tukang Service Atas Komentarnya.
Muhammad Chandra on 3 Februari 2010 07.23 mengatakan...

bang erge ,, minta software VB nya donk. .

Terima Kasih Sob Muhammad Chandra Atas Komentarnya.
eRGe on 3 Februari 2010 07.33 mengatakan...

@Tukang Service ... Makasih Mas Centil

@Muhammad Candra ... Kalo berhasil saya upload akan saya titip link nya di blog ini mas

Muhammad Chandra on 3 Februari 2010 07.40 mengatakan...

mas erge ,, kek mana cara buat kyk mas erge tu ,, ada penanda warna merah'a klu mas erge berkomentar. .

Terima Kasih Sob Muhammad Chandra Atas Komentarnya.
wandhe on 3 Februari 2010 07.41 mengatakan...

pengen belajar visual basic donk

Terima Kasih Sob wandhe Atas Komentarnya.
Ngeposting ni yee on 3 Februari 2010 08.18 mengatakan...

thanKs iNfonya sOb,,
sangat bermanfaat ni,,

Terima Kasih Sob Ngeposting ni yee Atas Komentarnya.
kie on 3 Februari 2010 16.15 mengatakan...

lagi pengen belajar VB jadi blom ngerti sampe kesini...tapi tanks tutornya saya coba deh moga-moga bisa :)

Terima Kasih Sob kie Atas Komentarnya.
HAPIA Mesir on 3 Februari 2010 16.22 mengatakan...

wah yang ni bagiannya pawang visual basic....hehehehe

Terima Kasih Sob HAPIA Mesir Atas Komentarnya.
Artikel Agama on 3 Februari 2010 16.24 mengatakan...

mantab mantab mantab. ane dulu sempat belajar visual basic. tapi lupa sob.

Terima Kasih Sob Artikel Agama Atas Komentarnya.
Miss Gadget on 4 Februari 2010 05.11 mengatakan...

Info yang sangat bermanfaat sekali.. mohon izin untuk dicopy scriptnya... thanks before.

Terima Kasih Sob Miss Gadget Atas Komentarnya.
Bunglon Blog on 4 Februari 2010 11.10 mengatakan...

wah ada mantra baru rupanya, sob ne support VB.6.0 atau versi selanjutnya...
mo coba ngtes dlu dech...mudah2an manjur hehe..

Terima Kasih Sob Bunglon Blog Atas Komentarnya.
Online-Formoney on 4 Februari 2010 15.45 mengatakan...

waduh jadi pengen belajar visual basic nie kang....

Terima Kasih Sob Online-Formoney Atas Komentarnya.
mas bayu on 4 Februari 2010 16.49 mengatakan...

bagus artikelnya sob, thanks ya

Terima Kasih Sob mas bayu Atas Komentarnya.
the chronicle on 4 Februari 2010 16.51 mengatakan...

haduh Erge, gak ngerti aku yang begituan puyeng wkwkwkkw
Thank infonya anyway

Terima Kasih Sob the chronicle Atas Komentarnya.
eRGe on 5 Februari 2010 14.55 mengatakan...

@All .. Makasih atas komen-komen nya sob

Pemula SEO on 21 Februari 2010 04.24 mengatakan...

form kok tidak keliahatan.Bagaimana caranya orang untuk memakai form tersebut.

Terima Kasih Sob Pemula SEO Atas Komentarnya.
Rinto on 3 Mei 2010 09.18 mengatakan...

wow...mangstab memang sobat yg satu ini.....tips2 ga pnh ada matinye

Terima Kasih Sob Rinto Atas Komentarnya.
Nursing Certification on 3 Mei 2010 09.22 mengatakan...

mangstab mangstab mangstab. ane dulu jg sempat belajar visual basic. tapi dah lupa sob

Terima Kasih Sob Nursing Certification Atas Komentarnya.
Finance Tips on 3 Mei 2010 09.24 mengatakan...

wah..keren...ane ga mudeng soal ginian,...ane cuman bisa posting soal Finance Tips...itu jg dr sumber lain...re-post gituuu

Terima Kasih Sob Finance Tips Atas Komentarnya.
Auto News on 3 Mei 2010 09.26 mengatakan...

nice to be here....inget kata itu ga Gan...ne blog ane yg baru

Terima Kasih Sob Auto News Atas Komentarnya.
lin on 26 Mei 2010 07.33 mengatakan...

性愛自拍,美女寫真,亂倫,戀愛ING,免費視訊聊天,視訊聊天,成人短片,美女交友,美女遊戲,18禁,三級片,自拍,後宮電影院,85cc,免費影片,線上遊戲,色情遊戲,日本a片,美女,成人圖片區,avdvd,色情遊戲,情色貼圖,女優,偷拍,情色視訊,愛情小說,85cc成人片,成人貼圖站,成人論壇,080聊天室,080苗栗人聊天室,免費a片,視訊美女,視訊做愛,免費視訊,伊莉討論區,sogo論壇,台灣論壇,plus論壇,維克斯論壇,情色論壇,性感影片,走光,色遊戲,情色自拍,kk俱樂部,好玩遊戲,免費遊戲,貼圖區,好玩遊戲區,中部人聊天室,情色視訊聊天室,聊天室ut,成人遊戲,免費成人影片,成人光碟,ut聊天室

Terima Kasih Sob lin Atas Komentarnya.
Anonim mengatakan...

yusri....
thax atas materinya.. tmbh lgi dunks biar mkin bnyak yg bsa dplajari

Terima Kasih Sob Anonim Atas Komentarnya.
鳳梨酥Blue on 6 Juni 2010 19.49 mengatakan...

,徵信社,尋人,偵探,偵探社,徵才,私家偵探,徵信,徵信社,徵信公司,抓猴,出軌,背叛,婚姻,劈腿,感情,第三者,婚外情,一夜情,小老婆,外遇,商標,市場調查,公平交易法,抓姦,債務,債務協商,應收帳款,詐欺,離婚,監護權,法律諮詢,法律常識,離婚諮詢,錄音,找人,追蹤器,徵信,徵信公司,尋人,抓姦,外遇,徵信,徵信社,徵信公司,尋人,抓姦,外遇,徵信,徵信社徵信公司,尋人,抓姦,外遇,徵信,徵信社,徵信公司,尋人,抓姦,外遇,徵信社

Terima Kasih Sob 鳳梨酥Blue Atas Komentarnya.
Anonim mengatakan...

kk login ma pas nya apa send email ya ubay_51cool@yahoo.com

Terima Kasih Sob Anonim Atas Komentarnya.
Informasi komputer, internet, gadget, blogging, software dan teknologi informasi lainnya on 26 Desember 2010 07.23 mengatakan...

wah makasih atas sharenya, ini yang sy cari, makasih banyak yah

Terima Kasih Sob Informasi komputer, internet, gadget, blogging, software dan teknologi informasi lainnya Atas Komentarnya.
Agus Saputra on 9 September 2011 01.55 mengatakan...

Ajarin DOnk !!

Terima Kasih Sob Agus Saputra Atas Komentarnya.
sayyed ahmad assagaf on 26 September 2011 18.36 mengatakan...

berguna bang thanks

Terima Kasih Sob sayyed ahmad assagaf Atas Komentarnya.
REO mengatakan...

THANK`S

Terima Kasih Sob REO Atas Komentarnya.

Tanggapan Sobat

Zona Bebas Komentar tapi jangan nyepam.

Kalo nyepam minta maaf nih, dengan terpaksa dilaporkan pada kantor polisi terdekat dihapus, monggo sobat silakan komentar jangan malu-malu.

ABOUT ME

Empu Blog ini

SUPPORT BLOG INI




Submit

Display Pagerank Yahoo bot last visit powered by MyPagerank.Net

IKUTI VIA EMAIL

Enter your email address:

Delivered by FeedBurner

5 Komentar Terbaru