formoptionlayer.frm

一个vb+oracle的例子

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