Kali ini saya akan berbagi bagaimana cara membuat form pada Visual Basic 6.0 menjadi transparan pada saat dijalankan.
Tahapan-tahapannya adalah :
Selamat Mencoba !!Tahapan-tahapannya adalah :
- Ubah visible form menjadi false
- letakkan sebuah timer pada form
- pada timer seting interval menjadi 100 dan enable menjadi false
- lalu masuk ke "View Code" pada form
- Tulis kode program di bawah ini :
- Lalu buat Sub FormTransparan(hWndtrans As Long, Transp As Integer)
- Tulis kode program dibawah ini
- lalu double klik timer 1 atau pada Private Sub Timer1_Timer()
- Tulis kode Program dibawah ini
- lalu double klik form atau pada Private Sub Form_Load()
Option Explicit Const LWA_BOTH = 3 Const LWA_ALPHA = 2 Const LWA_COLORKEY = 1 Const GWL_EXSTYLE = -20 Const WS_EX_LAYERED = &H80000 Private Declare Function GetWindowLong Lib "user32" Alias _ "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias _ "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" _ (ByVal hWnd As Long, ByVal color As Long, ByVal x As Byte, _ ByVal alpha As Long) As Boolean Dim Mulaitransparan As Integer
Dim winlong As Long winlong = GetWindowLong(hWndtrans, GWL_EXSTYLE) SetWindowLong hWndtrans, GWL_EXSTYLE, winlong Or WS_EX_LAYERED SetLayeredWindowAttributes hWndtrans, RGB(255, 255, 0), Transp, LWA_ALPHA
Mulaitransparan = Mulaitransparan + 5 If Mulaitransparan > 255 Then Mulaitransparan = 255: Timer1.Enabled = False FormTransparan Me.hWnd, Mulaitransparan Me.Show
Timer1.Enabled = True
wahhh kren2...
BalasHapusda q coba jalan dia.
thanks ya gan ilmunya :)
senang bisa membantu
Hapusthanx banyak buat infonya gan.. =D success abis... ini yang saya car"
BalasHapusgood luck gan !!
Hapusgmn bkin blog sperti blog anda?
BalasHapus