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

VERSION 5.00 
Begin VB.Form FormOptionLayer  
   Caption         =   "选项窗口" 
   ClientHeight    =   3405 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   3450 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   3405 
   ScaleWidth      =   3450 
   StartUpPosition =   2  '屏幕中心 
   Begin VB.TextBox Text1  
      Height          =   270 
      Left            =   1200 
      TabIndex        =   7 
      Top             =   2400 
      Width           =   1215 
   End 
   Begin VB.CommandButton Command1  
      Caption         =   "确认" 
      Height          =   375 
      Left            =   1080 
      TabIndex        =   5 
      Top             =   2880 
      Width           =   1095 
   End 
   Begin VB.Frame Frame2  
      Caption         =   "信息提示" 
      Height          =   735 
      Left            =   240 
      TabIndex        =   3 
      Top             =   1440 
      Width           =   2895 
      Begin VB.CheckBox Check3  
         Caption         =   "信息提示" 
         Height          =   255 
         Left            =   120 
         TabIndex        =   4 
         Top             =   360 
         Width           =   1335 
      End 
   End 
   Begin VB.Frame Frame1  
      Caption         =   "新加入图层" 
      Height          =   1095 
      Left            =   240 
      TabIndex        =   0 
      Top             =   240 
      Width           =   2895 
      Begin VB.CheckBox Check2  
         Caption         =   "自动加入数据字典" 
         Height          =   375 
         Left            =   240 
         TabIndex        =   2 
         Top             =   600 
         Visible         =   0   'False 
         Width           =   1815 
      End 
      Begin VB.CheckBox Check1  
         Caption         =   "自动加入数据集" 
         Height          =   255 
         Left            =   240 
         TabIndex        =   1 
         Top             =   360 
         Width           =   1815 
      End 
   End 
   Begin VB.Label label1  
      AutoSize        =   -1  'True 
      Caption         =   "重画时间:" 
      Height          =   180 
      Left            =   240 
      TabIndex        =   6 
      Top             =   2400 
      Width           =   810 
   End 
End 
Attribute VB_Name = "FormOptionLayer" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Command1_Click() 
    
    If Check1.Value = 1 Then 
       Option_AddToDataset = True 
    Else 
       Option_AddToDataset = False 
    End If 
     
'    If Check2.Value = 1 Then 
'        Option_AddToGeoDict = True 
'    else 
'        Option_AddToGeoDict = False 
'    end if 
     
    If Check3.Value = 1 Then 
       Option_InfoTip = True 
    Else 
       Option_InfoTip = False 
    End If 
     
    If Val(Text1) > 0 Then Formmain.Map1.RedrawInterval = Val(Text1) 
     
      '信息提示 
    If Option_InfoTip = True Then 
      Formmain.Map1.InfotipPopupDelay = 500 'millisecond 
      Formmain.Map1.InfotipSupport = True 
    Else 
      Formmain.Map1.InfotipSupport = False 
    End If 
 
    Unload Me 
     
End Sub 
 
Private Sub Form_Load() 
     
    Check1.Value = 0 
    'Check2.Value = 0 
    Check3.Value = 0 
     
    If Option_AddToDataset = True Then Check1.Value = 1 
    'If Option_AddToGeoDict = True Then Check2.Value = 1 
    If Option_InfoTip = True Then Check3.Value = 1 
     
    Text1.Text = Formmain.Map1.RedrawInterval 
 
End Sub