lmb2.frm

lmb--路面工程数量计算软件

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1 
   Caption         =   "路面表"
   ClientHeight    =   3810
   ClientLeft      =   2190
   ClientTop       =   1845
   ClientWidth     =   5505
   LinkTopic       =   "Form1"
   ScaleHeight     =   3810
   ScaleWidth      =   5505
   Begin VB.CommandButton Command5 
      Caption         =   "帮    助"
      Height          =   375
      Left            =   3720
      TabIndex        =   4
      Top             =   3240
      Width           =   1095
   End
   Begin MSComDlg.CommonDialog cmDialog 
      Left            =   960
      Top             =   1920
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.CommandButton Command4 
      Caption         =   "退    出"
      Height          =   375
      Left            =   3720
      TabIndex        =   3
      Top             =   2760
      Width           =   1095
   End
   Begin VB.CommandButton Command3 
      Caption         =   "查看表格"
      Height          =   375
      Left            =   3720
      TabIndex        =   2
      Top             =   2280
      Width           =   1095
   End
   Begin VB.CommandButton Command2 
      Caption         =   "生成表格"
      Height          =   375
      Left            =   3720
      TabIndex        =   1
      Top             =   1800
      Width           =   1095
   End
   Begin VB.PictureBox Picture1 
      Height          =   1095
      Left            =   600
      Picture         =   "lmb2.frx":0000
      ScaleHeight     =   1035
      ScaleWidth      =   2235
      TabIndex        =   6
      Top             =   1800
      Width           =   2295
   End
   Begin VB.CommandButton Command1 
      Caption         =   "输入数据"
      Height          =   375
      Left            =   3720
      TabIndex        =   0
      Top             =   1320
      Width           =   1095
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackColor       =   &H80000016&
      Caption         =   "路面工程数量表计算程序"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   480
      Left            =   600
      TabIndex        =   5
      Top             =   360
      Width           =   4245
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hWnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
Private WithEvents xlbook1 As Excel.Workbook
Attribute xlbook1.VB_VarHelpID = -1
Private qq As String
Private Sub Command1_Click()
    Form1.Hide
    Load Form2
    Form2.Show
    Set xlbook1 = xlbook
    xlbook.Application.Visible = True
    xlbook.Windows(1).Visible = True
    If xlbook.Application.WindowState = xlMinimized Then
        xlbook.Application.WindowState = xlMaximized
    End If
    xlsheet1.Activate
End Sub

Private Sub Command2_Click()
    Command3.Enabled = False
    Dim yljk As Single
    If xlbook.Application.Visible = False Then
       xlbook.Application.Visible = True
       xlbook.Windows(1).Visible = True
       xlbook.Application.WindowState = xlMinimized
    End If
    read_suju
    Command3.Enabled = True
End Sub

Private Sub Command3_Click()
    Load Form2
    Form2.Show
    ckbg
    xlbook.Application.WindowState = xlMaximized
End Sub

Private Sub Command4_Click()
    Unload Me
End Sub

Private Sub Command5_Click()
    Dim rc As Integer
    Dim frmhWnd As Integer
    Dim helpname As String
    Dim topicnum As Long
    helpname = App.Path & "\lmb1.hlp"
    rc = OSWinHelp(frmhWnd, helpname, HelpConstants.cdlHelpContents, 0)
End Sub

Private Sub Form_Load()
    qq = ""
    iniExcel
End Sub

Private Sub Form_Unload(Cancel As Integer)
    qq = "close"
    If xlbook.Application.Visible = False Then
        xlbook.Application.Visible = True
        xlbook.Windows(1).Visible = True
        xlbook.Application.WindowState = xlMinimized
    End If
    Set xlbook1 = Nothing
    Qquit_Excel
End Sub

Private Sub xlbook1_BeforeClose(Cancel As Boolean)
    If qq = "close" Then
        Cancel = False
    Else
        MsgBox ("不能在这里退出Excel，请使用“退出”按钮")
        Cancel = True
    End If
End Sub