Artikel Terkait Tutorial VB6
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 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.
Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :
Rekomendasi Web Hosting
- 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
- 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
- 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).