module1.bas

这是一个 信息查询的小程序

Attribute VB_Name = "modDeclares"


'图层显示属性修改信息
Public Type LayerDisplayDescription
LayerName As String
OverrideStyle As Boolean
NewStyle As New MapXLib.Style
ZoomLayer As Boolean
ZoomMin As Double
ZoomMax As Double
ShowLineDirection As Boolean
ShowNodes As Boolean
ShouwCentroids As Boolean
End Type




'图层标注属性修改信息
Public Type LayerLabelProperisDecription
LayerName As String
DataFieldName As String
Duplicate As Boolean
LabelMax As Integer
Labelzoom As Boolean
LabelZoomMax As Double
LabelZoomMin As Double
LineType As MapXLib.LineTypeConstants
Offset As Integer
Overlap As Boolean
Parallel As Boolean
PartialSegments As Boolean
Position As MapXLib.PositionConstants
Style As New MapXLib.Style
Visible As Boolean
End Type

'记录图层显示属性修改信息
Public g_audtDispModifiedLyr() As LayerDisplayDescription
'记录图层标注属性修改信息
Public g_audtLPModifiedLyr() As LayerLabelProperisDecription
'当前正在操作的地图对象

Public g_Map As MapXLib.Map

'API函数声明
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Const GWL_STYLE = (-16)

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const WS_BORDER = &H800000