frmallocateanalyst.frm

都是基于VB所做的程序集合,值得大家作为实践的参考资料.

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmAllocateAnalyst 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Form1"
   ClientHeight    =   5715
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6855
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5715
   ScaleMode       =   0  'User
   ScaleWidth      =   6885
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton btnAllocateAnalyst 
      Caption         =   "分析"
      Height          =   435
      Left            =   2835
      TabIndex        =   9
      Top             =   5115
      Width           =   1830
   End
   Begin VB.CommandButton btnCancel 
      Caption         =   "取消"
      Height          =   435
      Left            =   4950
      TabIndex        =   8
      Top             =   5115
      Width           =   1830
   End
   Begin VB.Frame Frame2 
      Caption         =   "服务区查找方式"
      Height          =   825
      Left            =   60
      TabIndex        =   5
      Top             =   3990
      Width           =   3210
      Begin VB.OptionButton Option3 
         Caption         =   "从四周查找"
         Height          =   300
         Left            =   1785
         TabIndex        =   7
         Top             =   345
         Width           =   1275
      End
      Begin VB.OptionButton Option4 
         Caption         =   "从中心查找"
         Height          =   300
         Left            =   390
         TabIndex        =   6
         Top             =   330
         Value           =   -1  'True
         Width           =   1215
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "服务区显示设置"
      Height          =   825
      Left            =   3585
      TabIndex        =   2
      Top             =   3990
      Width           =   3210
      Begin VB.OptionButton Option5 
         Caption         =   "不合并服务区"
         Height          =   300
         Left            =   1785
         TabIndex        =   4
         Top             =   345
         Width           =   1380
      End
      Begin VB.OptionButton Option6 
         Caption         =   "合并服务区"
         Height          =   300
         Left            =   390
         TabIndex        =   3
         Top             =   330
         Value           =   -1  'True
         Width           =   1275
      End
   End
   Begin VB.Frame Frame7 
      Caption         =   "站点信息"
      Height          =   3960
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6870
      Begin MSComctlLib.ListView ListView3 
         Height          =   3720
         Left            =   60
         TabIndex        =   1
         Top             =   180
         Width           =   6720
         _ExtentX        =   11853
         _ExtentY        =   6562
         View            =   3
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         GridLines       =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   0
         NumItems        =   4
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Text            =   "序号"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   1
            Text            =   "结点标识"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   2
            Text            =   "x坐标"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   3
            Text            =   "y坐标"
            Object.Width           =   2540
         EndProperty
      End
   End
End
Attribute VB_Name = "frmAllocateAnalyst"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub btnAllocateAnalyst_Click()
    Dim objNetworkAnalystEx As soNetworkAnalystEx
    Dim objpoints As New soPoints
    Dim i As Integer
    Dim objGeoLineM As soGeoLineM
    Dim objstyle As New soStyle
    If frmMain.SuperMap1.Layers(1).Dataset.Type = scdNetwork Then
End Sub