Share dan Berbagi

Agan-Agan Disini Saya Ingin Memberi Tips Cara membuat form tampil dan Keluar secara transparan di Visual Basic 6.0
untuk Mendownload Project Ini bisa di :




Berikut Langkah-Langkah Pembuatanya.. = 

1. Pertama siapkan 1 Form, 1Timer, dan 1 buah Module.
2. Ubah lah Interval Timer menjadi 50.
3. Lalu Masukan Sntax di bawah ini.. di Form 1.
   Option Explicit
   Dim Transparan As Integer
   Dim mulai As Boolean
   
   Private Sub Form_Load()
       mulai = True
   End Sub
   
   Private Sub Form_Unload(Cancel As Integer)
       Cancel = True: mulai = False
       Timer1.Enabled = True
   End Sub
   
   Private Sub Timer1_Timer()
   On Error Resume Next
   If mulai Then
       Transparan = Transparan + 5
       If Transparan > 255 Then Transparan = 255: Timer1.Enabled = False
   Else
       Transparan = Transparan - 5
       If Transparan < 0 Then Transparan = 0: End
   End If
   SetTransparan Form1.hwnd, Transparan
   End Sub
4.  Bukalah Form Module Lalu Masukan Script di bawah ini.Option Explicit
   Public Const LWA_COLORKEY = 1
   Public Const LWA_ALPHA = 2
   Public Const LWA_BOTH = 3
   Public Const WS_EX_LAYERED = &H80000
   Public Const GWL_EXSTYLE = -20
   Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal color As Long, ByVal x As Byte, ByVal alpha As Long) As Boolean
   Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
   Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
   
   Sub SetTransparan(frm As Long, nilai As Integer)
      On Error GoTo Err
   
      Dim attrib As Long
      attrib = GetWindowLong(frm, GWL_EXSTYLE)
      SetWindowLong frm, GWL_EXSTYLE, _
      attrib Or WS_EX_LAYERED
      SetLayeredWindowAttributes frm, RGB(255, 255, 0), nilai, LWA_ALPHA
      Exit Sub
   Err:
      MsgBox Err.Description & " Source : " & Err.Source
   End Sub
5. Tinggal di Play (F5) Maka Form Ini akan muncul secara Transparan.. ^,^

Sekian Dari saya. Kurang Lebihnya Mohon Maaf.. Bagi Yang Ingin Bertanya di persilakan..