D-EFR BLOG | Kali ini kami akan share ilmu sedikit tentang visual basic 6.0.
Bahan:
1. Buat 1 Form
2. Buat 1 Module
3. Buat 1 Timer
4. Buat 3 Label
5. Buat 1 Gambar
Source Code Form1:
| Spoiler: |
| Private Sub Form_Initialize() Call SetTransparency(Me.hWnd, Me.BackColor) End Sub Private Sub Label1_Click() End End Sub Private Sub Timer1_Timer() If Label3.Visible = False Then Label3.Visible = True Else Label3.Visible = False End If End Sub |
Source Code Module1:
Spoiler:
|
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Sub SetTransparency(piHwnd As Long, piColor As OLE_COLOR)
Const G_E = &HFFEC
Const W_E = &H80000
Const LW_KEY = &H1
SetWindowLong piHwnd, G_E, GetWindowLong(piHwnd, G_E) Or W_E
SetLayeredWindowAttributes piHwnd, piColor, 0, LW_KEY
End Sub
|
Posting Komentar