帮助文件.frm

来自「饮羽公路测设（glcs） 由20多个公路测量、设计、试验和施工组织设计等小软件组」· FRM 代码 · 共 82 行

VERSION 5.00
Begin VB.Form frmbzwjct 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "帮助文件"
   ClientHeight    =   3585
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5610
   Icon            =   "帮助文件.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3585
   ScaleWidth      =   5610
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox Text1 
      Height          =   2895
      Left            =   120
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      TabIndex        =   1
      Top             =   120
      Width           =   5415
   End
   Begin VB.CommandButton Command1 
      Caption         =   "关闭"
      Height          =   375
      Left            =   4680
      TabIndex        =   0
      Top             =   3120
      Width           =   855
   End
End
Attribute VB_Name = "frmbzwjct"
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_KeyPress(KeyAscii As Integer)
'Esc键退出，VbEscape可以用27代替
    On Error GoTo handlerror

    If KeyAscii = 27 Then
        Unload Me
    End If
    
    Exit Sub
handlerror:

End Sub

Private Sub Form_Load()
'启动帮助窗体

    On Error GoTo handlerror
    
    Text1.Text = "   关于本软件的说明："
    Text1.Text = Text1.Text & vbCrLf & "1、单位：长度以米为单位；角度以度分秒为单位。"
    Text1.Text = Text1.Text & vbCrLf & "2、输入：角度的输入，如23°25′36″应按23.2536输入。"
    Text1.Text = Text1.Text & vbCrLf & "3、输出的角度也按以上的规定输出。"
    Text1.Text = Text1.Text & vbCrLf & "4、本软件包括20多个小程序，主要是道路测量、试验和施工组织方面的"
    Text1.Text = Text1.Text & vbCrLf & "5、每个小程序关闭后，相应的计算数据都输出到软件的主界面中（必须是软件注册后），以便您的编辑。"
    Text1.Text = Text1.Text & vbCrLf & "6、关于小程序中各个符号（字母）代表的含义，请您参照相应的测量或试验。施工组织的书籍。"
    Text1.Text = Text1.Text & vbCrLf & "7、因这些小程序对专业技术人员来说，是经常碰到并熟知的，因此不再编制详细的帮助文件。"
    Text1.Text = Text1.Text & vbCrLf & "8、在打印文件时，请在预览对话框中进行，以便知道页面情况。"
    Text1.Text = Text1.Text & vbCrLf & ""
    Text1.Text = Text1.Text & vbCrLf & "            谢谢各位的使用！ "

    Exit Sub
handlerror:

End Sub