www.pudn.com > mapxoracle.zip > Formrange.frm

VERSION 5.00 
Begin VB.Form FrmRange  
   Caption         =   "Form1" 
   ClientHeight    =   3195 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   4680 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   3195 
   ScaleWidth      =   4680 
   StartUpPosition =   3  '´°¿Úȱʡ 
   Begin VB.CommandButton Command1  
      Caption         =   "È·ÈÏ" 
      Height          =   375 
      Left            =   1440 
      TabIndex        =   8 
      Top             =   2280 
      Width           =   975 
   End 
   Begin VB.TextBox Ymax  
      Height          =   270 
      Left            =   1200 
      TabIndex        =   6 
      Top             =   1560 
      Width           =   1935 
   End 
   Begin VB.TextBox Xmax  
      Height          =   270 
      Left            =   1200 
      TabIndex        =   4 
      Top             =   1200 
      Width           =   1935 
   End 
   Begin VB.TextBox Ymin  
      Height          =   270 
      Left            =   1200 
      TabIndex        =   2 
      Top             =   840 
      Width           =   1935 
   End 
   Begin VB.TextBox Xmin  
      Height          =   270 
      Left            =   1200 
      TabIndex        =   0 
      Top             =   480 
      Width           =   1935 
   End 
   Begin VB.Label Label4  
      AutoSize        =   -1  'True 
      Caption         =   "Ymax" 
      Height          =   180 
      Left            =   480 
      TabIndex        =   7 
      Top             =   1560 
      Width           =   360 
   End 
   Begin VB.Label Label3  
      AutoSize        =   -1  'True 
      Caption         =   "Xmax" 
      Height          =   180 
      Left            =   480 
      TabIndex        =   5 
      Top             =   1200 
      Width           =   360 
   End 
   Begin VB.Label Label2  
      AutoSize        =   -1  'True 
      Caption         =   "Ymin" 
      Height          =   180 
      Left            =   480 
      TabIndex        =   3 
      Top             =   840 
      Width           =   360 
   End 
   Begin VB.Label Label1  
      AutoSize        =   -1  'True 
      Caption         =   "Xmin" 
      Height          =   180 
      Left            =   480 
      TabIndex        =   1 
      Top             =   480 
      Width           =   360 
   End 
End 
Attribute VB_Name = "FrmRange" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Command1_Click() 
Dim Xminv As Double, Yminv As Double, Xmaxv As Double, Ymaxv As Double 
 
Xminv = Val(Xmin.Text) 
If Xminv = 0 Then Xmin = Xmin + 0.00001 
Yminv = Val(Ymin.Text) 
If Yminv = 0 Then Ymin = Ymin + 0.000001 '4.94065645841247E-324 
Xmaxv = Val(Xmax.Text) 
Ymaxv = Val(Ymax.Text) 
 
rect.Set Xmaxv, Ymaxv, Xminv, Yminv 
Unload Me 
 
End Sub 
 
 
Private Sub Text1_Change() 
 
End Sub