📄 frmgridanalyst.frm
字号:
Key = ""
EndProperty
BeginProperty ListImage129 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGridAnalyst.frx":3591E
Key = ""
EndProperty
BeginProperty ListImage130 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGridAnalyst.frx":35A78
Key = ""
EndProperty
BeginProperty ListImage131 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGridAnalyst.frx":35BD2
Key = ""
EndProperty
BeginProperty ListImage132 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGridAnalyst.frx":35D2C
Key = ""
EndProperty
BeginProperty ListImage133 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGridAnalyst.frx":35E86
Key = ""
EndProperty
BeginProperty ListImage134 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGridAnalyst.frx":35FE0
Key = ""
EndProperty
BeginProperty ListImage135 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGridAnalyst.frx":3613A
Key = ""
EndProperty
BeginProperty ListImage136 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGridAnalyst.frx":36294
Key = ""
EndProperty
BeginProperty ListImage137 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGridAnalyst.frx":363EE
Key = ""
EndProperty
BeginProperty ListImage138 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGridAnalyst.frx":36840
Key = ""
EndProperty
BeginProperty ListImage139 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGridAnalyst.frx":3699A
Key = ""
EndProperty
BeginProperty ListImage140 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGridAnalyst.frx":36AF4
Key = ""
EndProperty
BeginProperty ListImage141 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGridAnalyst.frx":36C4E
Key = ""
EndProperty
BeginProperty ListImage142 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGridAnalyst.frx":36DA8
Key = ""
EndProperty
BeginProperty ListImage143 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGridAnalyst.frx":36F02
Key = ""
EndProperty
BeginProperty ListImage144 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGridAnalyst.frx":3705C
Key = ""
EndProperty
BeginProperty ListImage145 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGridAnalyst.frx":371B6
Key = ""
EndProperty
BeginProperty ListImage146 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGridAnalyst.frx":37310
Key = ""
EndProperty
BeginProperty ListImage147 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmGridAnalyst.frx":3746A
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar tlbMain
Align = 1 'Align Top
Height = 420
Left = 0
TabIndex = 0
Top = 0
Width = 10560
_ExtentX = 18627
_ExtentY = 741
ButtonWidth = 609
ButtonHeight = 582
Appearance = 1
ImageList = "ImageList"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 18
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 2
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Object.Visible = 0 'False
ImageIndex = 24
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "选择"
ImageIndex = 8
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "放大"
ImageIndex = 11
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "缩小"
ImageIndex = 12
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "自由缩放"
ImageIndex = 13
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "漫游"
ImageIndex = 14
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "全幅"
ImageIndex = 68
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "坡度坡向"
ImageIndex = 42
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "GridTo分析"
ImageIndex = 142
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "toGrid分析"
ImageIndex = 130
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Object.Visible = 0 'False
Object.ToolTipText = "裁减"
ImageIndex = 131
EndProperty
BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "重分级"
ImageIndex = 140
EndProperty
BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Object.ToolTipText = "其他"
ImageIndex = 141
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmGridAnalyst"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' =====================================SuperMap Objects示范工程说明=======================================
'功能简介：示范Grid 格式的数据与其他格式的数据之间的相互转换,计算坡度，重新分级等功能。
'所用控件：SuperMap Objects的核心(SuperMap,SuperWorkspace)控件和SuperWKspManager控件
'所用数据: 打开任意SDBPlus数据源
'操作说明：
' 打开数据集，点击工具条上的相应计算坡度\坡向，数据转换，以及重新分极功能按钮
'===================================SuperMap Objects示范工程说明结束=====================================
Option Explicit
Private Sub Form_Load()
SuperMap1.Connect SuperWorkspace1.Handle
SuperWkspManager1.Connect SuperWorkspace1.Handle
SuperLegend1.Connect SuperMap1.Handle
End Sub
Private Sub Form_Unload(Cancel As Integer)
SuperMap1.Close
SuperMap1.Disconnect
SuperWorkspace1.Close
End Sub
Private Sub SuperLegend1_Modified()
SuperMap1.Refresh
End Sub
Private Sub SuperWkspManager1_LDbClick(ByVal nFlag As SuperMapLib.seSelectedItemFlag, ByVal strSelected As String, ByVal strParent As String)
If nFlag = scsDataset Then
SuperMap1.Layers.AddDataset SuperWorkspace1.Datasources(strParent).Datasets(strSelected), False
SuperMap1.Refresh
SuperLegend1.Refresh
SuperMap1.Action = scaSelect
End If
End Sub
Private Sub tlbMain_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Index > 10 Then
If Me.SuperWorkspace1.Datasources.Count < 1 Then
MsgBox "请先打开数据源！", vbCritical
Exit Sub
End If
End If
Select Case Button.Index
Case 1
Me.cdl1.FileName = ""
Me.cdl1.Filter = "(*.sdb)|*.sdb"
Me.cdl1.CancelError = False
Me.cdl1.ShowOpen
Dim strName As String
Dim strAlias As String
strName = Me.cdl1.FileName
strAlias = PathToName(strName)
If Me.cdl1.FileName <> "" Then
Me.SuperWorkspace1.OpenDataSource strName, strAlias, sceSDBPlus, False
SuperWkspManager1.Refresh
End If
Case 4
SuperMap1.Action = scaSelect
Case 5
SuperMap1.Action = scaZoomIn
Case 6
SuperMap1.Action = scaZoomOut
Case 7
SuperMap1.Action = scaZoomFree
Case 8
SuperMap1.Action = scaPan
Case 9
SuperMap1.ViewEntire
Case 11 '坡度坡向
frmGridAspSlp.Show , frmGridAnalyst
Case 12 'Gridto 分析
frmGridto.Show , frmGridAnalyst
Case 14 'toGrid 分析
frmtoGrid.Show , frmGridAnalyst
Case 16 '重分级
frmReclass.Show , frmGridAnalyst
Case 18 '其他
' frmGridRemain.Show , frmGridAnalyst
End Select
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -