form2.frm

VB+OBJECT编写

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "属性设置"
   ClientHeight    =   3225
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   2655
   Icon            =   "Form2.frx":0000
   LinkTopic       =   "Form2"
   ScaleHeight     =   3225
   ScaleWidth      =   2655
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      Caption         =   "面符号"
      Height          =   2655
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   1815
      Begin VB.TextBox Text3 
         Height          =   405
         Left            =   600
         TabIndex        =   10
         Top             =   2160
         Visible         =   0   'False
         Width           =   1095
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   255
         Left            =   960
         TabIndex        =   8
         Top             =   1800
         Visible         =   0   'False
         Width           =   255
      End
      Begin VB.TextBox Text2 
         Height          =   405
         Left            =   600
         TabIndex        =   6
         Top             =   1200
         Width           =   1095
      End
      Begin VB.TextBox Text1 
         Height          =   405
         Left            =   600
         TabIndex        =   5
         Top             =   720
         Width           =   1095
      End
      Begin VB.ComboBox Combo1 
         Height          =   315
         ItemData        =   "Form2.frx":030A
         Left            =   600
         List            =   "Form2.frx":030C
         TabIndex        =   4
         Top             =   360
         Width           =   1095
      End
      Begin VB.Label Label5 
         Caption         =   "边线色彩"
         Height          =   375
         Left            =   120
         TabIndex        =   9
         Top             =   2160
         Visible         =   0   'False
         Width           =   495
      End
      Begin VB.Label Label4 
         Caption         =   "边线"
         Height          =   255
         Left            =   120
         TabIndex        =   7
         Top             =   1800
         Visible         =   0   'False
         Width           =   495
      End
      Begin VB.Label Label3 
         Caption         =   "大小"
         Height          =   375
         Left            =   120
         TabIndex        =   3
         Top             =   1320
         Width           =   615
      End
      Begin VB.Label Label2 
         Caption         =   "颜色"
         Height          =   375
         Left            =   120
         TabIndex        =   2
         Top             =   840
         Width           =   615
      End
      Begin VB.Label Label1 
         Caption         =   "类型"
         Height          =   255
         Left            =   120
         TabIndex        =   1
         Top             =   360
         Width           =   615
      End
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Form2.Left = (Screen.Width - Form2.Width) / 2
Form2.Top = (Screen.Height - Form2.Height) / 2
Dim i As Integer
i = Form1.legend1.getActiveLayer
Select Case Form1.Map1.Layers(i).shapeType
Case moPoint
Frame1.Caption = "点符号"
Combo1.Text = ("正方形")
Combo1.AddItem ("圆")
Combo1.AddItem ("三角形")
Frame1.Height = 1815
Frame1.Left = (Form2.Width - Frame1.Width) / 2
Frame1.Top = (Form2.Height - Frame1.Height) / 3
Case moLine
Frame1.Caption = "线符号"
Combo1.Text = ("直线")
Combo1.AddItem ("虚线")
Combo1.AddItem ("分界线")
Frame1.Height = 1815
Frame1.Left = (Form2.Width - Frame1.Width) / 2
Frame1.Top = (Form2.Height - Frame1.Height) / 3
Case moPolygon
Frame1.Caption = "面符号"
Combo1.Text = ("全部填充")
Combo1.AddItem ("全部不填")
Label4.Visible = True
Label5.Visible = True
Check1.Visible = True
Text3.Visible = True
End Select
End Sub