📄 help.frm
字号:
VERSION 5.00
Begin VB.Form help0
Caption = "“程序收集”帮助"
ClientHeight = 4776
ClientLeft = 48
ClientTop = 336
ClientWidth = 6528
Icon = "help.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 4776
ScaleWidth = 6528
StartUpPosition = 1 'CenterOwner
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 564
Left = 0
Picture = "help.frx":030A
ScaleHeight = 564
ScaleWidth = 672
TabIndex = 10
Top = 4920
Width = 672
End
Begin VB.CommandButton Command1
Caption = "返 回"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 612
Left = 2220
MouseIcon = "help.frx":179A
MousePointer = 99 'Custom
TabIndex = 1
Top = 3960
Width = 1932
End
Begin VB.PictureBox Picture1
BackColor = &H00C0FFFF&
Height = 3492
Left = 240
ScaleHeight = 3444
ScaleWidth = 6024
TabIndex = 0
Top = 240
Width = 6072
Begin VB.TextBox Text1
BackColor = &H00800080&
ForeColor = &H80000009&
Height = 2652
Left = 1920
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 4
Top = 600
Width = 3912
End
Begin VB.Image Image1
Height = 384
Left = 2040
Picture = "help.frx":1AA4
Top = 120
Width = 384
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "5.几点说明"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 216
Left = 240
MouseIcon = "help.frx":1DAE
MousePointer = 99 'Custom
TabIndex = 9
Top = 2760
Width = 1080
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "4.软件声明"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 216
Left = 240
MouseIcon = "help.frx":20B8
MousePointer = 99 'Custom
TabIndex = 8
Top = 2280
Width = 1080
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "3.作者其人"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 216
Left = 240
MouseIcon = "help.frx":23C2
MousePointer = 99 'Custom
TabIndex = 7
Top = 1800
Width = 1080
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "2.软件用法"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 216
Left = 240
MouseIcon = "help.frx":26CC
MousePointer = 99 'Custom
TabIndex = 6
Top = 1320
Width = 1080
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "1.软件用途"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 216
Left = 240
MouseIcon = "help.frx":29D6
MousePointer = 99 'Custom
TabIndex = 5
Top = 840
Width = 1080
End
Begin VB.Line Line2
BorderColor = &H00808000&
X1 = 120
X2 = 1560
Y1 = 600
Y2 = 600
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "帮助内容"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 240
Left = 2520
TabIndex = 3
Top = 240
Width = 1020
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "帮助主题"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 240
Left = 300
TabIndex = 2
Top = 240
Width = 1020
End
Begin VB.Line Line1
BorderColor = &H00C00000&
BorderWidth = 2
Index = 1
X1 = 1680
X2 = 1680
Y1 = 120
Y2 = 3360
End
End
End
Attribute VB_Name = "help0"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Paint()
SetFormPic Me, Picture2
End Sub
Private Sub Label3_Click()
HH0$ = Chr$(13) + Chr$(10)
SM$ = " 程序收集 1.0能用于各种程序、文章的收集、整理。让您不再为找寻不到资料而着急。"
Me.Text1 = SM$
End Sub
Private Sub Label4_Click()
HH0$ = Chr$(13) + Chr$(10)
SM$ = "程序收集 1.0的用法如下：" + HH0$
SM$ = SM$ + "-----------------------" + HH0$
SM$ = SM$ + "1.进入程序主界面后，你如想增加记录，点击菜单下“增加记录”或图形菜单上“增加”按钮，然后输入文章主题、文章内容；" + HH0$
SM$ = SM$ + "2.你如想删除记录，点击菜单下“删除记录”或图形菜单上“删除”按钮；" + HH0$
SM$ = SM$ + "3.点击左边“程序名称”下的文章主题，则右边文本框显示相关内容。" + HH0$
Me.Text1 = SM$
End Sub
Private Sub Label5_Click()
HH0$ = Chr$(13) + Chr$(10)
SM$ = " 杨海军，1998年7月毕业于河海大学。同年进入北京参加工作，因专业的原因，自学VB" + _
"至今，并积累了一定的经验。该软件是作者编写的第一个真正意义上的自由软件，其余" + _
"编写的大多为专业软件，现正主要参与开发“十三陵大坝安全监测管理系统”，此为忙" + _
"里偷闲之作品，希望您能够喜欢。我的主页地址为:cehome.yeah.net；E-mail地址:haijun@ihw.com.cn。" + _
"欢迎到我的主页参观或给我写信。主页里有我编写的大部分软件及源代码，相信您阅后定有收获。"
Me.Text1 = SM$
End Sub
Private Sub Label6_Click()
HH0$ = Chr$(13) + Chr$(10)
SM$ = " 该软件属自由软件，您可以免费传播使用。未经作者同意，不得用于商业用途。"
Me.Text1 = SM$
End Sub
Private Sub Label7_Click()
HH0$ = Chr$(13) + Chr$(10)
SM$ = "1.该软件属自由软件，您可以免费传播使用。" + HH0$
SM$ = SM$ + "2.作者的主页：cehome.yeah.net。" + HH0$
SM$ = SM$ + "3.作者的伊妹儿：haijun@ihw.com.cn。" + HH0$
SM$ = SM$ + "4.如果您想要作者收集的VB程序或该软件的源代码，请到作者的主页：cehome.yeah.net下载。" + HH0$
SM$ = SM$ + "5.软件运行环境:Win98或Win95+VB5的运行库。" + HH0$
SM$ = SM$ + "6.我的地址: 国家电力公司北京勘测设计研究院勘测科研分院" + HH0$
SM$ = SM$ + " 杨海军" + HH0$
SM$ = SM$ + "邮编：100024" + HH0$
SM$ = SM$ + "" + HH0$
SM$ = SM$ + " 1999年11月22日于北京" + HH0$
SM$ = SM$ + " 海威工作室"
Me.Text1 = SM$
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -