frmdrawprops.frm

下载后

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.1#0"; "COMCTL32.OCX"
Begin VB.Form frmDrawProps 
   Caption         =   "Drawing Properties"
   ClientHeight    =   5385
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6690
   LinkTopic       =   "Form3"
   ScaleHeight     =   5385
   ScaleWidth      =   6690
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame TFrame 
      BorderStyle     =   0  'None
      Height          =   4455
      Left            =   240
      TabIndex        =   1
      Top             =   720
      Width           =   6135
      Begin VB.CommandButton cmdCancel 
         Caption         =   "Cancel"
         Height          =   375
         Left            =   4320
         TabIndex        =   10
         Top             =   3600
         Width           =   1215
      End
      Begin VB.CommandButton cmdOK 
         Caption         =   "OK"
         Height          =   375
         Left            =   2040
         TabIndex        =   9
         Top             =   3600
         Width           =   1215
      End
      Begin VB.TextBox txtSize 
         Height          =   375
         Left            =   3120
         TabIndex        =   8
         Text            =   "Text1"
         Top             =   1860
         Width           =   735
      End
      Begin MSComDlg.CommonDialog CommonDialog1 
         Left            =   360
         Top             =   3600
         _ExtentX        =   847
         _ExtentY        =   847
         _Version        =   327681
      End
      Begin VB.ComboBox cboStyle 
         Height          =   315
         Left            =   3120
         TabIndex        =   7
         Text            =   "Combo1"
         Top             =   2640
         Width           =   2055
      End
      Begin VB.PictureBox pctColor 
         Height          =   375
         Left            =   3120
         ScaleHeight     =   315
         ScaleWidth      =   675
         TabIndex        =   6
         Top             =   1080
         Width           =   735
      End
      Begin VB.Label Label3 
         Caption         =   "Style"
         Height          =   375
         Left            =   1440
         TabIndex        =   5
         Top             =   2640
         Width           =   735
      End
      Begin VB.Label Label2 
         Caption         =   "Size"
         Height          =   375
         Left            =   1440
         TabIndex        =   4
         Top             =   1860
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "Color"
         Height          =   375
         Left            =   1440
         TabIndex        =   3
         Top             =   1080
         Width           =   735
      End
      Begin VB.Label lblLayerName 
         BorderStyle     =   1  'Fixed Single
         Height          =   375
         Left            =   2640
         TabIndex        =   2
         Top             =   120
         Width           =   2895
      End
   End
   Begin ComctlLib.TabStrip TabStrip1 
      Height          =   5055
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   6375
      _ExtentX        =   11245
      _ExtentY        =   8916
      _Version        =   327680
      BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7} 
         NumTabs         =   1
         BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "Single Symbol"
            Key             =   "SingleSymbol"
            Object.Tag             =   ""
            ImageVarType    =   2
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmDrawProps"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'Public tempSymbol As New MapObjects.Symbol


Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    With drawLayer.Symbol
        .Color = pctColor.BackColor
        .Style = cboStyle.ListIndex
        If drawLayer.shapeType <> moPolygon Then
            .Size = txtSize
        End If
    End With
    Form1.Map1.Refresh
    Unload Me
End Sub

Private Sub Form_Load()
    
    With drawLayer
        lblLayerName = .Name
        pctColor.BackColor = .Symbol.Color
        txtSize = .Symbol.Size
        Select Case .shapeType
        Case moPoint
            cboStyle.AddItem "Circle"
            cboStyle.AddItem "Square"
            cboStyle.AddItem "Triangle"
            cboStyle.AddItem "Cross"
        Case moLine
            cboStyle.AddItem "Solid Line"
            cboStyle.AddItem "Dash Line"
            cboStyle.AddItem "Dot Line"
            cboStyle.AddItem "Dash Dot"
            cboStyle.AddItem "Dash Dot Dot"
        Case moPolygon
            Label2.Visible = False
            txtSize.Visible = False
            cboStyle.AddItem "Solid Fill"
            cboStyle.AddItem "Transparent"
            cboStyle.AddItem "Horizontal"
            cboStyle.AddItem "Verical"
            cboStyle.AddItem "Upward Diagonal"
            cboStyle.AddItem "Downward Diagonal"
            cboStyle.AddItem "Cross"
            cboStyle.AddItem "Diagonal Cross"
        End Select
        cboStyle.ListIndex = .Symbol.Style
    End With
End Sub

Private Sub pctColor_Click()
    Dim curcolor As Long
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    CommonDialog1.ShowColor
    curcolor = CommonDialog1.Color
    pctColor.BackColor = curcolor
    Exit Sub
    
ErrHandler:
    'do nothing, just exit
    Exit Sub
   
      
End Sub