frmhelp.frm

单戗堤截流图解法计算程序使用帮助 操作步骤： 一：输入分流能力数据文本文件 文件格式为上游水位

VERSION 5.00
Begin VB.Form FrmHelp 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "使用帮助"
   ClientHeight    =   5805
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6390
   Icon            =   "FrmHelp.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5805
   ScaleWidth      =   6390
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "关闭帮助"
      Height          =   450
      Left            =   2280
      TabIndex        =   1
      Top             =   5280
      Width           =   1335
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   5055
      Left            =   120
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Text            =   "FrmHelp.frx":1472
      Top             =   120
      Width           =   6135
   End
End
Attribute VB_Name = "FrmHelp"
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_Load()
Text1.Text = ""
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
Text1.Text = Text1.Text + "单戗堤截流图解法计算程序使用帮助" + vbCrLf
Text1.Text = Text1.Text + "" + vbCrLf
Text1.Text = Text1.Text + "操作步骤：" + vbCrLf + vbCrLf
Text1.Text = Text1.Text + "一：输入分流能力数据文本文件" + vbCrLf
Text1.Text = Text1.Text + "  文件格式为上游水位，下泄流量" + vbCrLf
Text1.Text = Text1.Text + "  请查看示范文件XL.txt" + vbCrLf + vbCrLf
Text1.Text = Text1.Text + "二：选择计算类型" + vbCrLf
Text1.Text = Text1.Text + "  计算类型有单值计算和自动计算" + vbCrLf
Text1.Text = Text1.Text + "  若选择单值计算，则设置龙口口门宽度" + vbCrLf
Text1.Text = Text1.Text + "  若选择自动计算，则设置龙口口门宽度变化范围" + vbCrLf + vbCrLf
Text1.Text = Text1.Text + "三：设置计算参数" + vbCrLf
Text1.Text = Text1.Text + "  这些参数在程序右下部，请根据工程实际进行输入" + vbCrLf + vbCrLf
Text1.Text = Text1.Text + "四：计算及绘图" + vbCrLf
Text1.Text = Text1.Text + "  选择开始计算，计算结果会呈现在程序界面上" + vbCrLf
Text1.Text = Text1.Text + "  计算后选择绘制曲线，自动生成Excel图表" + vbCrLf + vbCrLf
Text1.Text = Text1.Text + "五：保存结果" + vbCrLf
Text1.Text = Text1.Text + "  选择保存结果可以保存结果为文本文件" + vbCrLf
Text1.Text = Text1.Text + "  您也可以直接保存绘图中生成的Excel文件" + vbCrLf
Text1.Text = Text1.Text + "  选择保存中间数据可以保存龙口泄流能力数据" + vbCrLf
Text1.Text = Text1.Text + "" + vbCrLf
Text1.Text = Text1.Text + "常见问题：" + vbCrLf
Text1.Text = Text1.Text + "1.程序无法运行" + vbCrLf
Text1.Text = Text1.Text + "解决方法：安装VB运行库" + vbCrLf
Text1.Text = Text1.Text + "2.程序中按钮失效" + vbCrLf
Text1.Text = Text1.Text + "解决方法：安装VB运行库" + vbCrLf
Text1.Text = Text1.Text + "3.计算时程序停止响应" + vbCrLf
Text1.Text = Text1.Text + "解决方法：检查数据、将误差适当调大" + vbCrLf
Text1.Text = Text1.Text + "4.无法绘制曲线" + vbCrLf
Text1.Text = Text1.Text + "解决方法：安装Excel" + vbCrLf
Text1.Text = Text1.Text + "" + vbCrLf
Text1.Text = Text1.Text + "欢迎对本程序提出宝贵意见" + vbCrLf
Text1.Text = Text1.Text + "联系方式：" + vbCrLf
Text1.Text = Text1.Text + "Email：[e-mail] QQ：51817" + vbCrLf
Text1.Text = Text1.Text + "" + vbCrLf
Text1.Text = Text1.Text + "" + vbCrLf

End Sub