?? fm.frm
字號:
VERSION 5.00
Begin VB.Form fm
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 4140
ClientLeft = 2370
ClientTop = 1515
ClientWidth = 7320
DrawStyle = 1 'Dash
FillStyle = 0 'Solid
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "fm.frx":0000
ScaleHeight = 4140
ScaleWidth = 7320
ShowInTaskbar = 0 'False
Begin VB.Timer Timer1
Interval = 4000
Left = 3240
Top = 720
End
Begin VB.Label lb
BackStyle = 0 'Transparent
Caption = "德利軟件工作室友情貢獻陳廣德版權所有聯系電話：0519-6629536"
Height = 345
Left = 1560
MouseIcon = "fm.frx":3D03
MousePointer = 99 'Custom
TabIndex = 9
Top = 3360
Width = 5775
End
Begin VB.Label email
BackStyle = 0 'Transparent
Caption = "caol@esquel.com"
BeginProperty Font
Name = "幼圓"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5160
MouseIcon = "fm.frx":400D
MousePointer = 99 'Custom
TabIndex = 8
Top = 3600
Width = 1815
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "神"
BeginProperty Font
Name = "隸書"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 375
Index = 8
Left = 6720
TabIndex = 7
Top = 1440
Width = 615
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "解"
BeginProperty Font
Name = "隸書"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 375
Index = 7
Left = 6720
TabIndex = 6
Top = 2160
Width = 615
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "憂"
BeginProperty Font
Name = "隸書"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 375
Index = 6
Left = 6720
TabIndex = 5
Top = 2760
Width = 615
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "海"
BeginProperty Font
Name = "隸書"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 375
Index = 4
Left = 360
TabIndex = 4
Top = 1440
Width = 615
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "無"
BeginProperty Font
Name = "隸書"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 375
Index = 3
Left = 360
TabIndex = 3
Top = 2160
Width = 615
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "涯"
BeginProperty Font
Name = "隸書"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 375
Index = 2
Left = 360
TabIndex = 2
Top = 2760
Width = 615
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "股"
BeginProperty Font
Name = "隸書"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 375
Index = 1
Left = 6720
TabIndex = 1
Top = 720
Width = 615
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "股"
BeginProperty Font
Name = "隸書"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 375
Index = 0
Left = 360
TabIndex = 0
Top = 720
Width = 615
End
End
Attribute VB_Name = "fm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
'Download by http://www.codefans.net
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub email_Click()
ShellExecute hwnd, "open", "mailto:" & email.Caption, 0, 0, 0
End Sub
Private Sub Form_Activate()
lb.ToolTipText = "http://www.codefans.net"
End Sub
Private Sub Form_Click()
Unload Me
zcform.Show vbModal
End Sub
Private Sub lb_Click()
Dim WxyNo As Long
WxyNo = ShellExecute(Me.hwnd, "open", "http://www.codefans.net", "", App.Path, 1)
If WxyNo = 0 Then
MsgBox "瀏覽器沒有正確安裝或其它錯誤。", vbOKOnly + 16, "登錄錯誤"
End If
End Sub
Private Sub Timer1_Timer()
Unload Me
zcform.Show vbModal
End Sub
Private Sub email_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
email.ForeColor = &HFF0000
email.FontUnderline = True
lb.FontUnderline = False
lb.ForeColor = &H0&
End Sub
Private Sub lb_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
email.ForeColor = &H0&
email.FontUnderline = False
lb.FontUnderline = True
lb.ForeColor = &HFF0000
End Sub?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -