📄 form1.frm
字号:
VERSION 5.00
Object = "{9D6ED199-5910-11D2-98A6-00A0C9742CCA}#4.0#0"; "MAPX40.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FrmMain
Caption = "加密解密地图"
ClientHeight = 2310
ClientLeft = 60
ClientTop = 345
ClientWidth = 8535
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 2310
ScaleWidth = 8535
StartUpPosition = 3 'Windows Default
Begin VB.Timer Timer
Left = 6150
Top = 1725
End
Begin MSComctlLib.ProgressBar ProgressBar
Height = 450
Left = 105
TabIndex = 18
Top = 1695
Width = 5430
_ExtentX = 9578
_ExtentY = 794
_Version = 393216
Appearance = 0
End
Begin VB.CommandButton Command9
Caption = "退出"
Height = 450
Left = 7110
TabIndex = 17
Top = 1110
Width = 1290
End
Begin VB.CommandButton Command8
Caption = "移动"
Height = 450
Left = 7860
TabIndex = 16
Top = 4350
Width = 1290
End
Begin VB.CommandButton CmdDecrypt
Caption = "显示地图"
Height = 450
Left = 7860
TabIndex = 15
Top = 2400
Width = 1290
End
Begin VB.CommandButton CmdSave
Caption = "选择存放路径"
Height = 450
Left = 5595
TabIndex = 14
Top = 1110
Width = 1290
End
Begin VB.TextBox TxtSave
Height = 375
Left = 105
TabIndex = 13
Top = 1155
Width = 5400
End
Begin VB.CommandButton CmdOpen
Caption = "打开原地图"
Height = 450
Left = 5580
TabIndex = 10
Top = 330
Width = 1290
End
Begin VB.TextBox TxtOpen
Height = 390
Left = 105
TabIndex = 9
Top = 360
Width = 5385
End
Begin VB.PictureBox Picture1
Height = 5190
Left = 75
ScaleHeight = 5130
ScaleWidth = 7470
TabIndex = 7
Top = 2385
Width = 7530
Begin MapXLib.Map Map
Height = 5085
Left = 15
TabIndex = 8
Top = 30
Width = 7425
_Version = 400013
_ExtentX = 13097
_ExtentY = 8969
_StockProps = 1
GeoDictionary = "GeoDictionary"
GeoSet = "Empty"
GeoSetUserName = ""
CurrentTool = 1000
Zoom = 0
MaxSearchTime = 30
CenterX = 0
CenteryY = 0
Rotation = 0
FeatureEditMode = 0
NodeHandleSize = 0
TitleText = ""
DataSetGeoField = ""
AutoRedraw = -1 'True
PreferCompactLegends= 0 'False
TitleVisible = 0 'False
MousePointer = 0
MouseIcon = ""
MatchThreshold = 80
WaitCursorEnabled= -1 'True
MousewheelSupport= 1
MatchNumericFields= 0 'False
RedrawInterval = 10
PanAnimationLayer= 0 'False
InfotipSupport = -1 'True
InfotipPopupDelay= 500
DefaultConversionResolution= 12
ExportSelection = 0 'False
NumLayers = 0
TitleStyle.TextFontBackColor= 16777215
TitleStyle.TextFontOpaque= -1 'True
TitleStyle.SymbolChar= 0
BeginProperty TitleStyle.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 24
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty TitleStyle.SymbolFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 18.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DefaultStyle.TextFontBackColor= 13160660
DefaultStyle.SupportsBitmapSymbols= -1 'True
DefaultStyle.SymbolChar= 55
DefaultStyle.SymbolFontBackColor= 13160660
BeginProperty DefaultStyle.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty DefaultStyle.SymbolFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Map Symbols"
Size = 14.25
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DefaultStyle.LineStyle= 1
DefaultStyle.LineWidth= 1
DefaultStyle.RegionColor= 16777215
DefaultStyle.LinePattern= 2
DefaultStyle.RegionBackColor= 13160660
DefaultStyle.RegionBorderStyle= 1
DefaultStyle.RegionBorderWidth= 1
HasProjectionInfo= -1 'True
NumericCoordsys = "Form1.frx":27A2
DisplayCoordsys = "Form1.frx":28D2
NumDatasets = 0
TitleX = 5000
TitleY = 1000
TitleVisible = 0 'False
TitleEditable = -1 'True
TitlePostiion = 0
TitleBorder = -1 'True
End
End
Begin VB.CommandButton Command7
Caption = "Command7"
Height = 450
Left = 10020
TabIndex = 6
Top = 3870
Visible = 0 'False
Width = 1290
End
Begin VB.CommandButton Command6
Caption = "重新显示"
Height = 450
Left = 10020
TabIndex = 5
Top = 3270
Visible = 0 'False
Width = 1290
End
Begin VB.CommandButton Command5
Caption = "保存"
Height = 450
Left = 10035
TabIndex = 4
Top = 2760
Visible = 0 'False
Width = 1290
End
Begin VB.CommandButton Command4
Caption = "缩小"
Height = 450
Left = 7860
TabIndex = 3
Top = 3705
Width = 1290
End
Begin VB.CommandButton Command3
Caption = "放大"
Height = 450
Left = 7860
TabIndex = 2
Top = 3045
Width = 1290
End
Begin VB.CommandButton Command2
Caption = "Command2"
Height = 450
Left = 10020
TabIndex = 1
Top = 4455
Visible = 0 'False
Width = 1290
End
Begin VB.CommandButton Command1
Caption = "加密地图"
Height = 450
Left = 7125
TabIndex = 0
Top = 330
Width = 1290
End
Begin VB.Label Label3
Caption = "加密完成!"
Height = 465
Left = 120
TabIndex = 19
Top = 1680
Width = 5400
End
Begin VB.Label Label2
Caption = "加密地图存放文件夹：（c:\GeoFile）"
Height = 315
Left = 210
TabIndex = 12
Top = 855
Width = 3585
End
Begin VB.Label Label1
Caption = "加密地图选择："
Height = 210
Left = 225
TabIndex = 11
Top = 90
Width = 2775
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private EncryptObject As Object
Private WithEvents encryptdes As clsDES
Attribute encryptdes.VB_VarHelpID = -1
Private WithEvents encryptXOR As clsSimpleXOR
Attribute encryptXOR.VB_VarHelpID = -1
Dim m_strDestFile As String
Dim m_CenterX As Double
Dim m_CenterY As Double
Dim m_MapZoom As Double
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Const BIF_BROWSEINCLUDEFILES = &H4000
Const BIF_RETURNONLYFSDIRS = &H1
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Dim m_strSourceFolder As String
Dim m_strDestFolder As String
Private Sub CmdDecrypt_Click()
DecryptFun m_strDestFolder, "", "12345678"
' Map.Geoset = m_strDestFile
End Sub
Private Sub CmdOpen_Click()
Dim bi As BROWSEINFO
Dim R As Long
Dim pidl As Long
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -