📄 frmshptrans.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{DF3AE96F-29A3-44FD-A25E-7278248DBC33}#1.0#0"; "WinXPC_Engine.ocx"
Begin VB.Form frmShpTrans
BorderStyle = 3 'Fixed Dialog
Caption = "shape文件坐标转换"
ClientHeight = 8970
ClientLeft = 3675
ClientTop = 2115
ClientWidth = 8055
Icon = "frmShpTrans.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8970
ScaleWidth = 8055
Begin VB.TextBox txtPath
Height = 285
Left = 1560
TabIndex = 9
Top = 5745
Width = 4935
End
Begin VB.CommandButton cmdSelectPath
Caption = "选择路径(&S)..."
Height = 330
Left = 6600
TabIndex = 10
Top = 5700
Width = 1335
End
Begin VB.Frame Frame5
Caption = "转换报告"
Height = 2175
Left = 120
TabIndex = 17
Top = 6720
Width = 7815
Begin MSComctlLib.ListView lstReport
Height = 1815
Left = 120
TabIndex = 11
TabStop = 0 'False
Top = 240
Width = 7575
_ExtentX = 13361
_ExtentY = 3201
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 2
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "序号"
Object.Width = 882
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "报告内容"
Object.Width = 12347
EndProperty
End
End
Begin VB.CommandButton cmdExit
Caption = "退出(&E)"
Height = 330
Left = 6600
TabIndex = 14
Top = 6240
Width = 1335
End
Begin VB.CommandButton cmdShowReport
Caption = "显示报告(&R)"
Height = 330
Left = 120
TabIndex = 12
Top = 6240
Width = 1215
End
Begin VB.Frame Frame2
Caption = "设置目标参考"
Height = 1455
Left = 120
TabIndex = 16
Top = 3960
Width = 7815
Begin VB.CommandButton cmdPro
Caption = "..."
Height = 330
Left = 4320
TabIndex = 6
Top = 720
Width = 495
End
Begin VB.OptionButton optPro
Caption = "平面参考"
Height = 375
Left = 3240
TabIndex = 5
Top = 720
Width = 1095
End
Begin VB.CommandButton cmdDef
Caption = "..."
Height = 330
Left = 6480
TabIndex = 8
Top = 720
Width = 495
End
Begin VB.OptionButton optDef
Caption = "自定义"
Height = 375
Left = 5520
TabIndex = 7
Top = 720
Width = 975
End
Begin VB.OptionButton optG84
Caption = "GCS_WGS_1984"
Height = 255
Left = 480
TabIndex = 4
Top = 960
Value = -1 'True
Width = 1695
End
Begin VB.OptionButton optG54
Caption = "1954年北京经纬度"
Height = 375
Left = 480
TabIndex = 3
Top = 480
Width = 1935
End
Begin VB.Frame Frame3
Caption = "地理参考"
Height = 1095
Left = 120
TabIndex = 19
Top = 240
Width = 2415
End
End
Begin WinXPC_Engine.WindowsXPC WindowsXPC1
Left = 2160
Top = 1680
_ExtentX = 6588
_ExtentY = 1085
ColorScheme = 2
Common_Dialog = 0 'False
FrameControl = 0 'False
End
Begin VB.CommandButton cmdTrans
Caption = "开始转换(&C)"
Height = 330
Left = 5160
TabIndex = 13
Top = 6240
Width = 1335
End
Begin VB.Frame Frame1
Caption = "源Shape文件信息"
Height = 3735
Left = 120
TabIndex = 15
Top = 120
Width = 7815
Begin MSComctlLib.ImageList ImageList1
Left = 7080
Top = 720
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 1
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmShpTrans.frx":1CFA
Key = ""
EndProperty
EndProperty
End
Begin VB.CommandButton cmdDel
Caption = "删除文件(&D)"
Height = 330
Left = 6480
TabIndex = 2
Top = 3240
Width = 1215
End
Begin VB.CommandButton cmdAdd
Caption = "添加文件(&A)"
Height = 330
Left = 5160
TabIndex = 1
Top = 3240
Width = 1215
End
Begin MSComctlLib.ListView LvwPath
Height = 2895
Left = 120
TabIndex = 0
Top = 240
Width = 7575
_ExtentX = 13361
_ExtentY = 5106
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
Icons = "ImageList1"
SmallIcons = "ImageList1"
ColHdrIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 4
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "序号"
Object.Width = 882
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "文件路径"
Object.Width = 4410
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "空间参考名"
Object.Width = 4410
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "空间参考类型"
Object.Width = 3528
EndProperty
End
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "目标Shape目录："
Height = 195
Left = 120
TabIndex = 18
Top = 5790
Width = 1365
End
End
Attribute VB_Name = "frmShpTrans"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'********************************************************************************
'文 件 名：frmShpTrans.frm
'描 述：shape文件转换窗体
'作 者：王来刚
'建立日期：2005年11月15日
'修 改 者：
'修改日期：
'修改内容：（简要说明修改的原因、内容，如改动很大，将改动前的源程序列在文件头注释中）
'修 改 者：
'修改日期：
'修改内容：
'*********************************************************************************
Private Sub cmdAdd_Click()
On Error GoTo err
'定义打开对话框
Dim dlg As CGWOpenDialog
Set dlg = New CGWOpenDialog
dlg.Title = "Shape文件选择对话框"
dlg.ButtonCaption = "打开Shp文件"
dlg.FilterType = 1
dlg.AllowMultiSelect = True '可以多选
Dim pSelCol As Collection
Set pSelCol = New Collection
dlg.DoModalOpen 0, pSelCol
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -