contou.cls

来自「用VB6.0MapINfo绘等值线及表面图」· CLS 代码 · 共 35 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Class1"
Attribute VB_GlobalNameSpace = True
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Sub CallMovePic(MapInfoT As Object, TheInstallPathT As String, ThePublicInPathT As String, ThePublicPicturePathT As String, TheMapInfoPathT As String, The3DMapFileT As String, bMovePictureT As Boolean, bOKCancelT As Boolean)

    Set MapInfo = MapInfoT

    TheInstallPath = TheInstallPathT
    ThePublicInPath = ThePublicInPathT
    ThePublicPicturePath = ThePublicPicturePathT
    TheMapInfoPath = TheMapInfoPathT
    bMovePicture = bMovePictureT

    MovePic.Show 1

    If (bOKCancel = True) Then
        The3DMapFile = ""
        Call ContouMesh
        The3DMapFileT = The3DMapFile
    End If
    bOKCancelT = bOKCancel

End Sub