frmmsgbox.frm

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

VERSION 5.00
Begin VB.Form frmMsgBox 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   0  'None
   Caption         =   "Custom MsgBox with Icon"
   ClientHeight    =   2964
   ClientLeft      =   -12
   ClientTop       =   -72
   ClientWidth     =   5112
   DrawStyle       =   5  'Transparent
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   MouseIcon       =   "frmMsgBox.frx":0000
   ScaleHeight     =   247
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   426
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton CmdExit 
      Caption         =   "取消"
      Height          =   324
      Left            =   600
      TabIndex        =   3
      Top             =   2400
      Width           =   1170
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Height          =   324
      Left            =   2040
      TabIndex        =   0
      Top             =   2400
      Width           =   1170
   End
   Begin VB.Label lblMessage 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Height          =   195
      Left            =   1080
      MouseIcon       =   "frmMsgBox.frx":030A
      MousePointer    =   1  'Arrow
      TabIndex        =   2
      Top             =   600
      Width           =   45
   End
   Begin VB.Image imgTitleRestore 
      Height          =   156
      Left            =   6720
      Picture         =   "frmMsgBox.frx":0614
      Top             =   4200
      Visible         =   0   'False
      Width           =   156
   End
   Begin VB.Image imgTitleMaximize 
      Height          =   156
      Left            =   6720
      Picture         =   "frmMsgBox.frx":085E
      Top             =   3960
      Visible         =   0   'False
      Width           =   156
   End
   Begin VB.Image imgTitleMaxRestore 
      Height          =   195
      Left            =   1080
      Top             =   3600
      Visible         =   0   'False
      Width           =   195
   End
   Begin VB.Image imgTitleHelp 
      Height          =   156
      Left            =   6720
      Picture         =   "frmMsgBox.frx":0C1D
      Top             =   3240
      Visible         =   0   'False
      Width           =   156
   End
   Begin VB.Image imgTitleClose 
      Height          =   156
      Left            =   6720
      Picture         =   "frmMsgBox.frx":0E67
      Top             =   3480
      Width           =   156
   End
   Begin VB.Image imgTitleMinimize 
      Height          =   156
      Left            =   6720
      Picture         =   "frmMsgBox.frx":10B1
      Top             =   3720
      Visible         =   0   'False
      Width           =   156
   End
   Begin VB.Label lblTitle 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   $"frmMsgBox.frx":12FB
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.6
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   240
      Left            =   2160
      TabIndex        =   1
      Top             =   3360
      Width           =   2505
   End
   Begin VB.Image imgWindowRight 
      Height          =   450
      Left            =   6360
      Picture         =   "frmMsgBox.frx":1317
      Stretch         =   -1  'True
      Top             =   3720
      Width           =   285
   End
   Begin VB.Image imgWindowLeft 
      Height          =   450
      Left            =   6000
      Picture         =   "frmMsgBox.frx":1A61
      Stretch         =   -1  'True
      Top             =   3720
      Width           =   285
   End
   Begin VB.Image imgWindowBottom 
      Height          =   450
      Left            =   5640
      Picture         =   "frmMsgBox.frx":21AB
      Stretch         =   -1  'True
      Top             =   3720
      Width           =   285
   End
   Begin VB.Image imgTitleMain 
      Height          =   450
      Left            =   5280
      Picture         =   "frmMsgBox.frx":28F5
      Stretch         =   -1  'True
      Top             =   3720
      Width           =   285
   End
   Begin VB.Image imgWindowBottomRight 
      Height          =   360
      Left            =   6360
      Picture         =   "frmMsgBox.frx":303F
      Top             =   3240
      Width           =   228
   End
   Begin VB.Image imgWindowBottomLeft 
      Height          =   360
      Left            =   6000
      Picture         =   "frmMsgBox.frx":3789
      Top             =   3240
      Width           =   228
   End
   Begin VB.Image imgTitleRight 
      Height          =   360
      Left            =   5640
      Picture         =   "frmMsgBox.frx":3ED3
      Top             =   3240
      Width           =   228
   End
   Begin VB.Image imgTitleLeft 
      Height          =   360
      Left            =   5280
      Picture         =   "frmMsgBox.frx":461D
      Top             =   3240
      Width           =   228
   End
End
Attribute VB_Name = "frmMsgBox"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub CmdExit_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()

    End
    

End Sub



Private Sub Form_Load()

    MakeWindow Me, True
    AlwaysOnTop Me, True
    imgTitleMaxRestore.Picture = imgTitleMaximize.Picture
    
    LoadSkinz Me
End Sub

Private Sub Form_Unload(p_intCancel As Integer)
    Set frmMsgBox = Nothing
End Sub

Private Sub imgTitleClose_Click()
    Unload Me
End Sub

Private Sub imgTitleLeft_MouseDown(p_intButton As Integer, p_intShift As Integer, p_sngX As Single, p_sngY As Single)
    DoDrag Me
End Sub

Private Sub imgTitleMain_MouseDown(p_intButton As Integer, p_intShift As Integer, p_sngX As Single, p_sngY As Single)
    DoDrag Me
End Sub

Private Sub imgTitleRight_MouseDown(p_intButton As Integer, p_intShift As Integer, p_sngX As Single, p_sngY As Single)
    DoDrag Me
End Sub

Private Sub lblTitle_MouseDown(p_intButton As Integer, p_intShift As Integer, p_sngX As Single, p_sngY As Single)
    DoDrag Me
End Sub