?? frm_gy.frm
字號:
VERSION 5.00
Begin VB.Form frm_gy
BackColor = &H80000009&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 4260
ClientLeft = 0
ClientTop = 0
ClientWidth = 6465
LinkTopic = "Form1"
ScaleHeight = 4260
ScaleWidth = 6465
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Timer Timer3
Interval = 1
Left = 1080
Top = 2400
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 5000
Left = 120
Top = 2400
End
Begin VB.Timer Trans
Enabled = 0 'False
Left = 600
Top = 2400
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "X"
Height = 180
Left = 6240
TabIndex = 3
ToolTipText = "關閉"
Top = 60
Width = 135
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "E-mail:brys@vip.sina.com"
ForeColor = &H00000000&
Height = 255
Left = 150
TabIndex = 2
Top = 3975
Width = 2145
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "Copyright's (c) 2007-2008 By 邊緣人生工作室"
ForeColor = &H000000FF&
Height = 225
Left = 2520
TabIndex = 1
Top = 3975
Width = 3960
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "歡迎使用家庭收支管理系統"
Height = 210
Left = 135
TabIndex = 0
Top = 105
Width = 3360
End
Begin VB.Image Image1
Height = 3540
Left = 15
Picture = "frm_gy.frx":0000
Top = 330
Width = 6435
End
Begin VB.Shape Shape1
Height = 4260
Left = 0
Top = 0
Width = 6465
End
End
Attribute VB_Name = "frm_gy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
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 Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const WS_EX_LAYERED = &H80000
Dim Current As Integer ' 透明值 0 = 透明 = 不透明
Dim Max As Integer
Private Sub Label7_Click()
Unload Me
End Sub
Private Sub Trans_Timer()
Current = Current - 5
If Current + 1 <= Max Then
Trans.Enabled = False
Transparent frm_gy.hWnd, 0
Unload Me
Exit Sub
End If
Transparent frm_gy.hWnd, Current
End Sub
Private Sub Form_Load()
Trans.Interval = 1
Current = 0
Max = 255
Transparent frm_gy.hWnd, Current
End Sub
Private Function Transparent(ByVal hWnd As Long, Perc As Integer) As Long
Dim Msg As Long
On Error Resume Next
If Perc < 0 Or Perc > 255 Then
Transparent = 1
Else
Msg = GetWindowLong(hWnd, GWL_EXSTYLE)
Msg = Msg Or WS_EX_LAYERED
SetWindowLong hWnd, GWL_EXSTYLE, Msg
SetLayeredWindowAttributes hWnd, 0, Perc, LWA_ALPHA
Transparent = 0
End If
If Err Then
Transparent = 2
End If
End Function
Private Sub Timer1_Timer()
Timer1.Enabled = False
Current = 255
Max = 0
Transparent frm_gy.hWnd, Current
Trans.Enabled = True
End Sub
Private Sub Timer3_Timer()
Current = Current + 5
If Current - 1 >= Max Then
Timer3.Enabled = False
Transparent frm_gy.hWnd, 255
Timer1.Enabled = True
Exit Sub
End If
Transparent frm_gy.hWnd, Current
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -