form4.frm

统计的直方图vb程序

VERSION 5.00
Begin VB.Form Form4 
   BackColor       =   &H80000000&
   Caption         =   "人工录入数据"
   ClientHeight    =   3960
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5085
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   ScaleHeight     =   3960
   ScaleWidth      =   5085
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command3 
      Caption         =   "返回"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3480
      TabIndex        =   2
      ToolTipText     =   "回到首页"
      Top             =   3120
      Width           =   1335
   End
   Begin VB.CommandButton Command2 
      Caption         =   "录入数据"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   1
      ToolTipText     =   "请仔细阅读输入须知"
      Top             =   3120
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H8000000B&
      Caption         =   "浏览文件"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1800
      TabIndex        =   0
      ToolTipText     =   "选择手工录入数据文件"
      Top             =   3120
      Width           =   1455
   End
   Begin VB.Label Label2 
      BackColor       =   &H80000000&
      Caption         =   "2 点击 浏览文件 选择所需文件"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   1095
      Left            =   120
      TabIndex        =   4
      Top             =   1800
      Width           =   4695
   End
   Begin VB.Label Label1 
      BackColor       =   &H80000000&
      Caption         =   "1 点击 录入数据 输入数据并保存文件"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   975
      Left            =   120
      TabIndex        =   3
      Top             =   720
      Width           =   4575
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i, j, Flag, QB

Dim Lod
Private Sub Command1_Click()
Form1.Line1.Visible = flase
Form1.Line2.Visible = flase
Form1.Line3.Visible = flase
Form1.Line4.Visible = flase
Form1.Line5.Visible = flase
Form1.Line6.Visible = flase
Form1.Label1.Visible = flase
Form1.Label2.Visible = flase
Form1.Label3.Visible = flase
Form4.Hide
Flag = 1
'drawer.Enabled = False
'zhifang.Enabled = False

Form1.Picture1.Line (-120, 1000)-(1000, -120), &HFFFFFF, BF         '清屏
If Lod = 1 Then
 For i = 1 To m
       Unload Form1.LabelN(i)
   Next i
End If
Lod = 0
Form1.lmin.Visible = False
Form1.lmax.Visible = False
form2.Show
End Sub

Private Sub Command2_Click()
 'myexit = MsgBox("                请手工录入直方图应统数据,然后将该记事本关闭,并保存.                                                                                                              录入规则:录入一个数据后请按回车键再继续录入", vbOKOnly, "确定")
ShellExecute Me.hwnd, "open", "手工录入数据文件.txt", 0, 0, 1
End Sub

Private Sub Command3_Click()
Form4.Hide
End Sub

Private Sub Command4_Click()
Flag = 1

form2.Show
End Sub