Tutorial Membuat Form Transparan di Visual Basic 6.0

Tutorial Membuat Form Transparan di Visual Basic 6.0

Selamat datang kembali di TeknoTips.NET. TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, download ebook, game & software.

Pada kesempatan ini kita akan mengulas artikel yang berjudul : Tutorial Membuat Form Transparan di Visual Basic 6.0.

Tutorial Membuat Form Transparan di Visual Basic 6.0 - Pada pertemuan kali ini tip dan trik visual basic ingin membagikan sebuah tip menarik yaitu cara membuat form tampil transparan. Tip berikut ini akan memberikan efek transparan untuk form yang Anda buat, sedangkan kontrol-kontrol yang Anda letakan pada form akan tetap di tampilkan seperti biasa.

Form transparan yang di maksud disini adalah form yang terlihat tembus pandang, misalnya ketika kita membuka form tersebut maka akan terlihat background yang ada di belakangnya misal penampakann beckground desktop,tetapi kontrol-kontrol yang ada didalam tetap hanya dibagian form kosong saja yang terlihat tembus pandang.

Bagi Anda yang ingin form-nya tampak lebih menarik dan unik ketika dilihat tip yang satu ini perlu Anda coba, penasaran bagaimana cara membuatnya?, mari kita ikuti langakah-langkag berikut dibawah ini :

Cara Membuat Form Transparan di Visual Basic 6.0

1. Buka Form Standar VB6 Anda
2. Kemudian buka jendela Module dengan mengklik Project dan pilih Add Module
3. Setelah jendela Module tebuka ketik kode dibawah ini didalam Module:

Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedRaw As Boolean) As Long

Public Const RGN_DIFF = 4
Public Const RGN_OR = 2

4. Setelah itu Anda kembali ke Form Standar, lalu buka jendela kode untuk form Standar dengan 
    F7
5. Ketik kode dibawah ini di jendela kode form

Private Sub Form_Load()
Dim DgnBingkai As Boolean
DgnBingkai = True
Me.ScaleMode = 3
Transparan DgnBingkai
End Sub

Private Sub Transparan(x As Boolean)
Dim a, b, c, d As Single
y = CreateRectRgn(0, 0, 0, 0)
a = ScaleX(Width, 1, 3)
b = ScaleY(Height, 1, 3)
c = (a - ScaleWidth) / 2
d = b - c - ScaleHeight
If x Then
p = CreateRectRgn(0, 0, a, b)
q = CreateRectRgn(c, d, a - c, b - c)
CombineRgn y, p, q, RGN_DIFF
End If
For i = 0 To Me.Controls.Count - 1
m = ScaleX(Me.Controls(i).Left, Me.ScaleMode, 3) + c
n = ScaleX(Me.Controls(i).Top, Me.ScaleMode, 3) + d
r = CreateRectRgn(m, n, ScaleX((Me.Controls(i).Width), Me.ScaleMode, 3) + m, ScaleY((Me.Controls(i).Height), Me.ScaleMode, 3) + n)
CombineRgn y, r, y, RGN_OR
Next
SetWindowRgn hwnd, y, True
End Sub


6. Steleh selesai mengetik semua kode kemudian simpan Project Anda dan jalankan Program
7. Apabila program Anda tidak ada kesalahan dan berjalan dengan baik, maka hasilnya akan tampak 
    pada gambar dibawah ini :
form transparan vb6, cara buat form transparant, form
Form Transparant
Setelah Anda bisa membuatnya silahkan Anda bisa terapkan di program kesayangan Anda,usahakan sesuaikan dengan kondisi form.Form seperti ini cocok untuk di terapkan pada form yang beranimasi misalnya form dengan efek taburan bintang bisa Anda padukan dengan form transparan.

Demikian tips cara membuat Form dengan efek transparan.Selamat mencoba,semoga berhasil.
Tag : form transparan vb6, cara buat form transparant, form.
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan Anda dengan jelas dan sopan, sesuai dengan topik postingan tentang "" pada halaman dibawah ini.

0 Response to "Tutorial Membuat Form Transparan di Visual Basic 6.0"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel