www.pudn.com > QQ2009.rar > frmCapsLock.frm, change:2009-11-15,size:1184b


VERSION 5.00 
Begin VB.Form frmCapsLock  
   BorderStyle     =   0  'None 
   Caption         =   "д" 
   ClientHeight    =   765 
   ClientLeft      =   0 
   ClientTop       =   0 
   ClientWidth     =   1560 
   LinkTopic       =   "Form1" 
   Picture         =   "frmCapsLock.frx":0000 
   ScaleHeight     =   51 
   ScaleMode       =   3  'Pixel 
   ScaleWidth      =   104 
   ShowInTaskbar   =   0   'False 
End 
Attribute VB_Name = "frmCapsLock" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
 
 
Option Explicit 
 
Private Sub Form_Click() 
    HideForm 
End Sub 
 
Private Sub Form_Load() 
    SetWindowLong Me.hWnd, GWL_EXSTYLE, GetWindowLong(Me.hWnd, GWL_EXSTYLE) + WS_EX_LAYERED 
    HideForm 
    SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, 3 
    Me.Show 
End Sub 
 
Public Sub ShowForm() 
    CL_PassTopMost = True 
    CL_Shown = True 
    SetLayeredWindowAttributes Me.hWnd, &HCC33FF, 255, LWA_COLORKEY_ALPHA 
End Sub 
 
Public Sub HideForm() 
    SetLayeredWindowAttributes Me.hWnd, &HCC33FF, 0, LWA_COLORKEY_ALPHA 
    CL_PassTopMost = False 
    CL_Shown = False 
End Sub