frmsymbol.frm

下载后

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
Begin VB.Form frmSymbol 
   Caption         =   "Form3"
   ClientHeight    =   3750
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5985
   LinkTopic       =   "Form3"
   ScaleHeight     =   3750
   ScaleWidth      =   5985
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox pctColor 
      Height          =   375
      Left            =   3240
      ScaleHeight     =   315
      ScaleWidth      =   675
      TabIndex        =   4
      Top             =   600
      Width           =   735
   End
   Begin VB.ComboBox cboStyle 
      Height          =   315
      Left            =   3240
      TabIndex        =   3
      Text            =   "Combo1"
      Top             =   2160
      Width           =   2055
   End
   Begin VB.TextBox txtSize 
      Height          =   375
      Left            =   3240
      TabIndex        =   2
      Text            =   "Text1"
      Top             =   1380
      Width           =   735
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "OK"
      Height          =   375
      Left            =   2160
      TabIndex        =   1
      Top             =   3120
      Width           =   1215
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "Cancel"
      Height          =   375
      Left            =   4440
      TabIndex        =   0
      Top             =   3120
      Width           =   1215
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   480
      Top             =   3120
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   327681
   End
   Begin VB.Label lblFeature 
      Height          =   375
      Left            =   2520
      TabIndex        =   9
      Top             =   120
      Width           =   2175
   End
   Begin VB.Label Label4 
      Caption         =   "Feature:"
      Height          =   375
      Left            =   960
      TabIndex        =   8
      Top             =   120
      Width           =   1095
   End
   Begin VB.Label Label1 
      Caption         =   "Color"
      Height          =   375
      Left            =   1560
      TabIndex        =   7
      Top             =   600
      Width           =   735
   End
   Begin VB.Label Label2 
      Caption         =   "Size"
      Height          =   375
      Left            =   1560
      TabIndex        =   6
      Top             =   1380
      Width           =   735
   End
   Begin VB.Label Label3 
      Caption         =   "Style"
      Height          =   375
      Left            =   1560
      TabIndex        =   5
      Top             =   2160
      Width           =   735
   End
End
Attribute VB_Name = "frmSymbol"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
        With drawLayer
            
            pctColor.BackColor = frmDrawProps.tempSymbol.Color
            lblFeature = frmDrawProps.curFeatureName
            txtSize = frmDrawProps.tempSymbol.Size
            cboStyle.Clear
            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 = frmDrawProps.tempSymbol.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