form2.frm

MAPGis投点MAPGis投点MAPGis投点MAPGis投点

VERSION 5.00
Begin VB.Form form2 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   6285
   ClientLeft      =   255
   ClientTop       =   1410
   ClientWidth     =   9450
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "form2.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6285
   ScaleWidth      =   9450
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.ListBox List1 
      BeginProperty DataFormat 
         Type            =   2
         Format          =   ""
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   9
      EndProperty
      DragMode        =   1  'Automatic
      Height          =   5940
      ItemData        =   "form2.frx":000C
      Left            =   6360
      List            =   "form2.frx":000E
      Sorted          =   -1  'True
      Style           =   1  'Checkbox
      TabIndex        =   5
      Top             =   0
      Width           =   3255
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   2295
      Index           =   0
      Left            =   0
      Picture         =   "form2.frx":0010
      ScaleHeight     =   2265
      ScaleWidth      =   2985
      TabIndex        =   4
      Top             =   0
      Width           =   3015
   End
   Begin VB.PictureBox Picture1 
      Height          =   2295
      Index           =   1
      Left            =   3120
      Picture         =   "form2.frx":1F2C
      ScaleHeight     =   2235
      ScaleWidth      =   2955
      TabIndex        =   3
      Top             =   0
      Width           =   3015
   End
   Begin VB.OptionButton Option1 
      Caption         =   "SiO2-K2O+Na2O"
      Height          =   495
      Left            =   0
      TabIndex        =   2
      Top             =   2520
      Width           =   2895
   End
   Begin VB.OptionButton Option2 
      Caption         =   "AFC"
      Height          =   495
      Left            =   3240
      TabIndex        =   1
      Top             =   2520
      Width           =   2775
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   360
      TabIndex        =   0
      Top             =   5520
      Width           =   2415
   End
End
Attribute VB_Name = "form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Option1.Value = False And Option2.Value = False Then
   MsgBox "请选择工作图形！"
   Exit Sub
ElseIf Option1.Value = True Then
   filename = App.Path & "\1.wt"
   filename1 = App.Path & "\1.wl"
ElseIf Option2.Value = True Then
   filename = App.Path & "\2.wt"
   filename1 = App.Path & "\2.wl"
End If
   form2.Visible = False
   Form1.Visible = True
   Form1.Command5.Enabled = True
End Sub