Temukan Rahasia 4 langkah yang akan membuat anda BISA membuat WEB berbasis HTML, PHP & MySQL

Microsoft Visual Basic 6.0: Bikin Jendela Tembus Pandang


Mau Cari Informasi tentang Teknologi/Game? Cari Artikel Disini!


Terbit 21.06.2007. Edisi Jun 2007. Sudah ada 4 Komentar.
DHINATACOM

Jernih dan tembus cahaya ­ begitulah sebuah kamus mendefinisikan kata tembus pandang. Ya, sesuatu yang tembus pandang membuat tampak jelas apa yang ada dibelakangnya. Itulah yang terjadi jika jendela aplikasi kalau dibuat transparan. Biasanya jendela aplikasi yang aktif tampilannya akan menimpa jendela yang tidak aktif. Tapi sekarang kita akan mencoba membuat jendela aplikasi dengan Visual Basic 6.0 yang tembus pandang sehingga jendela yang tidak aktif terlihat dengan jelas.

Cara pembuatannya berikut ini :

1. Buka aplikasi  Visual Basic 6.0 lewat [Start] > [All Programs] > [Microsoft Visual Studio 6.0] > [Microsoft Visual Studio 6.0].

2. Pada jendela New Project, pilih tab New.

3. Pada tab New, pilihlah Standard EXE dan klik [ Open ] untuk membuka Jendela Project1 - Form1 (Form).

4. klik [View] >

PLAIN TEXT
CODE:
  1. untuk membuka jendela Project1 – Form1 (Code)
  2.  
  3. 5. Ketikkan kode program berikut ini :
  4.  
  5. [code]Option Explicit
  6. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
  7. (ByVal hWnd As Long, ByVal nIndex As Long) As Long
  8. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
  9. (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  10. Private Declare Function SetLayeredWindowAttributes Lib "user32" _
  11. (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Long, ByVal _
  12. dwFlags As Long) As Long
  13. Private Const WS_EX_LAYERED As Long = &H80000
  14. Private Const LWA_ALPHA As Long = &H2
  15. Private Const GWL_EXSTYLE = (-20)
  16. Sub TembusPandang(lhWnd As Long, level As Integer)
  17. On Error GoTo keluar
  18.  
  19. Call SetWindowLong(lhWnd, GWL_EXSTYLE, GetWindowLong(lhWnd _
  20. , GWL_EXSTYLE) Or WS_EX_LAYERED)
  21. Call SetLayeredWindowAttributes(lhWnd, 0, (level * 255) / 100, LWA_ALPHA)
  22.  
  23. keluar:
  24. End Sub
  25.  
  26. Private Sub Form_Load()
  27. TembusPandang Me.hWnd, 50
  28. End Sub

6. Untuk melihat hasilnya simpan dan jalankan dengan menekan [F5].

Pada kode program TembusPandang Me.hWnd, 50 berarti jendela dibuat dengan tingkat transparan sebesar 50 %. Sekarang coba ubah angka 50 menjadi 100. Maka, efek tembus pandang pada jendela hilang dan kembali normal. Kemudian kalau kita ubah menjadi 0, maka sama sekali jendela tidak terlihat. Perlu diketahui, efek tembus pandang seperti ini hanya bisa dilakukan pada OS Windows 2000/ XP atau yang lebih tinggi. Selamat mencoba !!!

Baca Juga:






Powered by FeedBlitz
komentar pembaca DHINATACOM
jeks_steve ≡ 2008-07-01 09:45:06

malu mimpi licik ide capedeh yess tipi ngacir ngiler nggaya nangis musik males love kembar gatau damn bye ayuk bagus juga ideloh buat bahasa loh sendiri...
hehehe,, gue suka dengan smile loh,,
sukses yo,,
and makasih buat tutorialnya...
salam kenal

Reply to this comment
 
 
Nasrul ≡ 2010-02-23 13:43:15

capedeh2 marah

Q bingung pak,,
ada nggak cara untuk membuat jam dari visual basic 6.0
...
tolong dikirim ke blog saya y??

Reply to this comment
 
dewa gunawan ≡ 2010-03-05 17:53:29

visual basic bisa digunakan pake apa saja mass??
kerjasama yang bagus ya mas... salaman ngacir

Reply to this comment
 
Nama (harus diisi)
E-mail (harus diisi - tidak akan ditampilkan)
Alamat Website/Blog Anda. (tidak wajib diisi)

Komentar Anda (smaller size | larger size)
yess . tipi . tendang . sombong . sinchan . sial . senam . nyerah . ngiler . nggaya . nangis . musik . males . love . konslet . kembar . gatau . damn . bye . ayuk . ngacir . nocomment . malu . mimpi . licik . ide . capedeh . cendol . batamerah . salaman . recseller . cekemail . maho . marah . najis . takut . ngacir2 . sundul . janganribut . capedeh2 . nosara . kacau .
Petunjuk komentar:
1. Tolong tulis komentar yang berhubungan dengan topik artikel. Jangan mengirim SPAM!
2. Tag standar HTML yang diperbolehkan:
    <a href> <blockquote> <code> <strike> <strong>
3. Komentar yang tidak berhubungan atau SPAM akan dihapus.
4. Klik gambar emoticon diatas untuk menampilkannya pada komentar Anda.

Catatan: Beberapa emoticon yang ditampilkan merupakan hak cipta dari Kaskus - The Largest Indonesian Community.