.:: Jasa Membuat Aplikasi Website,Desktop,Android Order Now..!! | | Order Now..!! Jasa Membuat Project Arduino,Robotic,Print 3D ::.

Transparan Form dengan Visual basic 6.0

0 komentar


بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم
bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Assalamu'alaikum warahmatullahi wabarakatuh

Transparan Form dengan Visual basic 6.0 - Sesuai janji saya di Webgroup kemarin, saya akan bagikan tutorial tentang Transparan Form dan Invisible Form dengan Visual Basic. Apakah ada perbedaan antara Transparan Form dan Invisble Form? sebenarnya sama saja menurut saya. Hal yang membedakan disini yaitu Kontrol visual basic 6 tersebut. Transparan Form semua Kontrol visual basic 6 yang ikut serta menjadi transparan, kalau Invisible Form itu hanya penggunaan form saja yang menjadi transparan dan kontrol vb 6 seperti Label, Textbox, Command Dll tidak ikut serta menjadi Transparan. Nah Seperti itu penjelasannya.



Bagaimana cara membuatnya Transparan Form dan Invisible Form tersebut dengan Visual Basic? Hal yang pertama dalam tutorial ini saya akan membuat 3 Form, yang terdiri dari Form untuk Transparan , Form untuk Invisible, dan Form Tab yang saya tambahkan saja.

 1. Buatlah Contoh Desain Form seperti saya buat yang terdiri dari Form Transparan dan Form Invisble. 


Desain Form Transparan


Desain Form Invisible


Desain Metode Form

 OBJECK PROPERTIES PENGATURAN
 Form1 Name
 (Caption)
 Form1
 Form Transparan
 Form2 Name
 (Caption)
 Form2
 Form Transparan
 Form3 Name
 (Caption)
 Form3
 Metode Form

2. Demo Video tutorial dengan visual basic "Transparan Form dan Invisible Form dengan visual basic"



3. Bagaimana dengan Source code dengan Visual Basic saya cantumkan di bawah ini dan sudah di masukan di Webgroup Tutorial Vb6 dan Vb.net Indonesia


Untuk Transparan Form



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 color As Long, ByVal x As Byte, ByVal alpha As Long) As Boolean Const LWA_BOTH = 3Const LWA_ALPHA = 2Const LWA_COLORKEY = 1Const GWL_EXSTYLE = -20Const WS_EX_LAYERED = &H80000 Dim iTransparant As Integer Sub MakeTransparan(hWndBro As Long, iTransp As Integer)    On Error Resume Next     Dim ret As Long    ret = GetWindowLong(hWndBro, GWL_EXSTYLE)     SetWindowLong hWndBro, GWL_EXSTYLE, ret Or WS_EX_LAYERED    SetLayeredWindowAttributes hWndBro, RGB(255, 255, 0), iTransp, LWA_ALPHA    Exit Sub End Sub
Private Sub Form_Load()    On Error Resume Next    MakeTransparan Me.hWnd, 75End Sub


Untuk Invisible Form
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 Long Private Const GWL_STYLE = (-16)Private Const GWL_EXSTYLE = (-20)Private Const WS_EX_LAYERED = &H80000Private Const LWA_COLORKEY = &H1Private Const LWA_ALPHA = &H2 Public Function MakeTransparentForm(frm As Form)    frm.BackColor = vbBlue    SetWindowLong frm.hWnd, GWL_EXSTYLE, GetWindowLong(frm.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED    SetLayeredWindowAttributes frm.hWnd, vbBlue, 0&, LWA_COLORKEYEnd Function
Private Sub Form_Load()    MakeTransparentForm MeEnd Sub
Password : ghfinvisible

Demikan yang dapat kami sajikan mengenai Tutorial Transparan Form dengan Visual Basic, semoga bermanfaat dan menambah semangat belajar Visual basic

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com


atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين
Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
wassalamualaikum warahmatullahi wabarakatuh


Artikel Transparan Form dengan Visual basic 6.0, Diterbitkan oleh scodeaplikasi pada Kamis, 20 Juni 2013. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.

Tawk.to