📄 frmmain.frm
字号:
Key = ""
EndProperty
BeginProperty ListImage100 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":B65C
Key = ""
EndProperty
BeginProperty ListImage101 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":BB6E
Key = ""
EndProperty
BeginProperty ListImage102 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":C080
Key = ""
EndProperty
BeginProperty ListImage103 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":C592
Key = ""
EndProperty
BeginProperty ListImage104 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":CAA4
Key = ""
EndProperty
BeginProperty ListImage105 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":CFB6
Key = ""
EndProperty
BeginProperty ListImage106 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":D4C8
Key = ""
EndProperty
BeginProperty ListImage107 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":D9DA
Key = ""
EndProperty
BeginProperty ListImage108 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":DEEC
Key = ""
EndProperty
BeginProperty ListImage109 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":E3FE
Key = ""
EndProperty
BeginProperty ListImage110 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":E910
Key = ""
EndProperty
BeginProperty ListImage111 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":EE22
Key = ""
EndProperty
BeginProperty ListImage112 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":F334
Key = ""
EndProperty
BeginProperty ListImage113 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":F64E
Key = ""
EndProperty
BeginProperty ListImage114 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":F968
Key = ""
EndProperty
BeginProperty ListImage115 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":FDBA
Key = ""
EndProperty
BeginProperty ListImage116 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1030C
Key = ""
EndProperty
BeginProperty ListImage117 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":330B6
Key = ""
EndProperty
BeginProperty ListImage118 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":333D0
Key = ""
EndProperty
BeginProperty ListImage119 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":33B8E
Key = ""
EndProperty
BeginProperty ListImage120 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":33FA0
Key = ""
EndProperty
BeginProperty ListImage121 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3487A
Key = ""
EndProperty
BeginProperty ListImage122 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":34CCC
Key = ""
EndProperty
BeginProperty ListImage123 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3511E
Key = ""
EndProperty
BeginProperty ListImage124 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":35278
Key = ""
EndProperty
BeginProperty ListImage125 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":353D2
Key = ""
EndProperty
BeginProperty ListImage126 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3552C
Key = ""
EndProperty
BeginProperty ListImage127 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":35686
Key = ""
EndProperty
BeginProperty ListImage128 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":357E0
Key = ""
EndProperty
BeginProperty ListImage129 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3593A
Key = ""
EndProperty
BeginProperty ListImage130 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":35A94
Key = ""
EndProperty
BeginProperty ListImage131 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":35BEE
Key = ""
EndProperty
BeginProperty ListImage132 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":35D48
Key = ""
EndProperty
BeginProperty ListImage133 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":35EA2
Key = ""
EndProperty
BeginProperty ListImage134 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":35FFC
Key = ""
EndProperty
BeginProperty ListImage135 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":36156
Key = ""
EndProperty
BeginProperty ListImage136 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":362B0
Key = ""
EndProperty
BeginProperty ListImage137 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3640A
Key = ""
EndProperty
BeginProperty ListImage138 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3685C
Key = ""
EndProperty
BeginProperty ListImage139 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":369B6
Key = ""
EndProperty
BeginProperty ListImage140 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":36B10
Key = ""
EndProperty
BeginProperty ListImage141 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":36C6A
Key = ""
EndProperty
BeginProperty ListImage142 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":36DC4
Key = ""
EndProperty
BeginProperty ListImage143 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":36F1E
Key = ""
EndProperty
BeginProperty ListImage144 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":37078
Key = ""
EndProperty
BeginProperty ListImage145 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":371D2
Key = ""
EndProperty
BeginProperty ListImage146 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3732C
Key = ""
EndProperty
BeginProperty ListImage147 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":37486
Key = ""
EndProperty
BeginProperty ListImage148 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":375E0
Key = ""
EndProperty
BeginProperty ListImage149 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":379B6
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu mnu_File
Caption = "文件"
Begin VB.Menu mnu_OpenWorkspace
Caption = "打开工作空间"
End
Begin VB.Menu mnu_CloseWorkspace
Caption = "关闭工作空间"
End
End
Begin VB.Menu mnu_3D
Caption = "三维分析"
Begin VB.Menu mnu_Flood
Caption = "淹没模拟"
End
Begin VB.Menu mnu_3DSetting
Caption = "三维设置"
End
Begin VB.Menu mnu_3DScaleZ
Caption = "设置高程伸缩倍率"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'===========================SuperMap Objects 示范程序==================================
'1.程序说明：示范Super3D提供的一些三维分析功能，包括淹没分析、三维背景颜色设置、三维背景贴图、
' 雾化效果设置、环境光颜色设置、高程缩放率设置等。
'2.数据说明：\Data\3DControl\tin.smw
'3.使用说明：
' (1)点击“文件”->“打开工作空间”，打开一个工作空间；
' (2)通过在数据集列表中双击数据集或者将该数据集拖拉到三维窗口来三维显示该数据集，如果该数据
' 集是dem、tin等类型，那么就直接在三维窗口中显示，如果该数据集是点、线、面等类型，那么会
' 弹出一个对话框，提示选择三维显示的高程字段，如果不设置，那么以二维方式显示在三维窗口。
' (3)点击“三维分析”->“淹没模拟”，可以在三维窗口中看到水淹没的效果。
' (4)点击“三维分析”->“三维设置”，弹出一个对话框，在这个对话框中可以设置背景颜色，背景贴图
' 环境光颜色、雾化参数等设置，设置后点击“应用”或者“确定”就可以看到效果。
' (5)点击“三维分析”->“设置高程伸缩倍率”，弹出一个输入框，输入一个数字后点击“确定”，就可
' 以看到效果。
'======================================================================================
Option Explicit
Private m_bDragFlag As Boolean
Dim moDragNode As Object
Dim fWaterHeight As Single
Private Sub btnPan_Click()
Super3D1.Action = scaPan
End Sub
Private Sub btnSelect_Click()
Super3D1.Action = scaSelect
End Sub
Private Sub btnViewEntire_Click()
Super3D1.ViewEntire
End Sub
Private Sub btnZoomin_Click()
Super3D1.Action = scaZoomIn
End Sub
Private Sub btnZoomout_Click()
Super3D1.Action = scaZoomOut
End Sub
Private Sub Form_Load()
Super3D1.Connect SuperWorkspace1.Handle
Super3DLegend1.Connect Super3D1
TreeViewData.Nodes.Add , , "WORKSPACE", "工作空间", 5
TreeViewMap.Nodes.Add , , "WORKSPACE", "工作空间", 5
mnu_3D.Enabled = False
End Sub
Public Function PathToName(ByVal strPath As String) As String
'=====================================================
'自定义函数,将文件全路径名转化为文件名(无路径名,无扩展名)
'=====================================================
Dim nLength As Integer '字符串长度
Dim i As Integer
Dim strTemp As String
Dim strTemp1 As String
Dim nPosition As Integer
nPosition = 999
If InStr(strPath, ".") <> 0 Then
strTemp = Left(strPath, Len(strPath) - 4)
Else
strTemp = strPath
End If
nLength = Len(strTemp)
For i = Len(strPath) To 1 Step -1
If Mid$(strTemp, i, 1) = "\" Then
nPosition = i
Exit For
End If
Next
If nPosition = 999 Then
PathToName = strTemp
Else
PathToName = Right(strTemp, nLength - nPosition)
End If
End Function
Private Sub Form_Unload(Cancel As Integer)
Super3D1.Close
Super3D1.Disconnect
SuperWorkspace1.Close
End Sub
Private Sub SuperWkspManager1_LDbClick(ByVal nFlag As SuperMapLib.seSelectedItemFlag, ByVal strSelected As String, ByVal strparent As String)
If nFlag = scsDataset Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -