frmmain.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{99AA4EEF-16DB-41B9-8A9E-CACCD93FBD5D}#5.2#0"; "Super3D.ocx"
Object = "{03ED3B1E-ED1B-4A2E-8FE3-D8D1A673F5D4}#5.2#0"; "SuperMap.ocx"
Begin VB.Form frmMain 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "三维分析示范"
   ClientHeight    =   6870
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   11745
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6870
   ScaleWidth      =   11745
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame5 
      Height          =   1335
      Left            =   30
      TabIndex        =   10
      Top             =   4860
      Width           =   1755
      Begin VB.CommandButton btnEntire 
         Caption         =   "全幅"
         Height          =   375
         Left            =   930
         TabIndex        =   14
         Top             =   720
         Width           =   705
      End
      Begin VB.CommandButton btnPan 
         Caption         =   "平移"
         Height          =   375
         Left            =   150
         TabIndex        =   13
         Top             =   720
         Width           =   705
      End
      Begin VB.CommandButton btnZoomOut 
         Caption         =   "缩小"
         Height          =   375
         Left            =   930
         TabIndex        =   12
         Top             =   240
         Width           =   705
      End
      Begin VB.CommandButton btnZoomIn 
         Caption         =   "放大"
         Height          =   375
         Left            =   150
         TabIndex        =   11
         Top             =   240
         Width           =   705
      End
   End
   Begin VB.CommandButton btnExit 
      Caption         =   "退  出"
      Height          =   390
      Left            =   135
      TabIndex        =   7
      Top             =   6360
      Width           =   1440
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   6000
      Top             =   3150
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   15
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":058A
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":069E
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":07B0
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":08C2
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":0C16
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":0D28
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":0E3A
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":0F4C
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":1058
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":116A
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":127C
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":138E
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":14A0
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":15F2
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":1704
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Frame Frame4 
      Height          =   2025
      Left            =   30
      TabIndex        =   4
      Top             =   2790
      Width           =   1755
      Begin VB.CommandButton btnCreateTin 
         Caption         =   "生成Tin"
         Enabled         =   0   'False
         Height          =   360
         Left            =   150
         TabIndex        =   9
         Top             =   1125
         Width           =   1425
      End
      Begin VB.CommandButton btnTinToContour 
         Caption         =   "Tin->等高线"
         Enabled         =   0   'False
         Height          =   360
         Left            =   150
         TabIndex        =   8
         Top             =   1575
         Width           =   1425
      End
      Begin VB.CommandButton btnDisply3DWin 
         Caption         =   "三维窗口显示"
         Enabled         =   0   'False
         Height          =   360
         Left            =   150
         TabIndex        =   6
         Top             =   675
         Width           =   1425
      End
      Begin VB.CommandButton btnDisplyMapWin 
         Caption         =   "平面窗口显示"
         Enabled         =   0   'False
         Height          =   360
         Left            =   150
         TabIndex        =   5
         Top             =   225
         Width           =   1425
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "数据列表"
      Height          =   2715
      Left            =   45
      TabIndex        =   0
      Top             =   0
      Width           =   1785
      Begin MSComctlLib.TreeView tvwDataSource 
         Height          =   3885
         Left            =   60
         TabIndex        =   1
         Top             =   240
         Width           =   1650
         _ExtentX        =   2910
         _ExtentY        =   6853
         _Version        =   393217
         HideSelection   =   0   'False
         LabelEdit       =   1
         Style           =   7
         ImageList       =   "ImageList1"
         Appearance      =   1
      End
   End
   Begin VB.Frame Frame2 
      BackColor       =   &H8000000A&
      Caption         =   "三维窗口"
      Height          =   6840
      Left            =   1860
      TabIndex        =   2
      Top             =   0
      Width           =   4875
      Begin Super3DLib.Super3D Super3D 
         Height          =   6495
         Left            =   240
         TabIndex        =   16
         Top             =   240
         Width           =   4575
         _Version        =   327682
         _ExtentX        =   8070
         _ExtentY        =   11456
         _StockProps     =   128
         AltitudeField   =   ""
         Texture         =   ""
         ScaleZ          =   1
      End
      Begin SuperMapLib.SuperWorkspace SuperWorkspace 
         Left            =   4320
         Top             =   4320
         _Version        =   327682
         _ExtentX        =   847
         _ExtentY        =   847
         _StockProps     =   0
      End
   End
   Begin VB.Frame Frame3