frmfinal.frm

系统工程-层次分析法VB版

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form frmFinal 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00F3F3F3&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "层次总排序表"
   ClientHeight    =   4020
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5400
   Icon            =   "frmFinal.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   ScaleHeight     =   4020
   ScaleWidth      =   5400
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox txtOut 
      Height          =   1275
      Left            =   0
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   5
      Top             =   1860
      Width           =   5415
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00F3F3F3&
      Caption         =   "将表格数据"
      Height          =   735
      Left            =   720
      TabIndex        =   2
      Top             =   3240
      Width           =   3015
      Begin VB.CommandButton Command3 
         BackColor       =   &H00F3F3F3&
         Caption         =   "保存到文件"
         Height          =   375
         Left            =   1560
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   240
         Width           =   1335
      End
      Begin VB.CommandButton Command1 
         BackColor       =   &H00F3F3F3&
         Caption         =   "复制到剪贴板"
         Height          =   375
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   240
         Width           =   1335
      End
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H00F3F3F3&
      Caption         =   "关     闭"
      Height          =   555
      Left            =   3840
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   3360
      Width           =   1455
   End
   Begin MSComDlg.CommonDialog comDlg 
      Left            =   4080
      Top             =   780
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin MSFlexGridLib.MSFlexGrid FinalGrid 
      Height          =   1875
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5415
      _ExtentX        =   9551
      _ExtentY        =   3307
      _Version        =   393216
      BackColorFixed  =   -2147483638
      BackColorBkg    =   16777215
      GridColorFixed  =   12632256
      AllowUserResizing=   1
      Appearance      =   0
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   120
      Picture         =   "frmFinal.frx":0E42
      Top             =   3420
      Width           =   480
   End
End
Attribute VB_Name = "frmFinal"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public txtResult As String '用于保存表格的文本数据
'Copy data to Clipboard
Private Sub Command1_Click()
    Clipboard.Clear
    Clipboard.SetText txtResult
End Sub
Private Sub Command2_Click()
    Unload Me
End Sub
'Save data to file
Private Sub Command3_Click()
On Error GoTo errH
Dim fn As Long
Dim FileName As String

comDlg.FileName = ""
comDlg.Filter = "AHP结果文件(*.TXT)|*.TXT"
comDlg.ShowSave
FileName = comDlg.FileName
If Trim(UCase(GetFileExtendName(FileName))) <> "TXT" Then
    FileName = FileName + ".TXT"
End If
If Trim(FileName) <> "" Then
    If AvailFile(FileName) Then
        If Trim(Dir(FileName) <> "") Then
            If MsgBox("文件" + FileName + "已经存放，是否覆盖？", vbYesNo + vbQuestion, "提示信息") = vbNo Then
                Exit Sub
            End If
        End If
        fn = FreeFile
        Open FileName For Output As fn
        Print #fn, txtResult
        Close fn
    Else
        MsgBox "文件名无效或错误！", vbOKOnly + vbInformation, "提示信息"
    End If
End If

Exit Sub
errH:
    MsgBox "保存文件时出现错误！", vbOKOnly + vbInformation, "出错了啦：O"

End Sub