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
Demikan yang dapat kami sajikan mengenai Tutorial Transparan Form dengan Visual Basic, semoga bermanfaat dan menambah semangat belajar Visual basic
0 Comments
