📄 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 + -