VB+MO实例分析

<P>  “NameGIS.exe”: 已加载“c:\windows\assembly\gac\mscorlib.resources\1.0.5000.0_zh-chs_b77a5c561934e089\mscorlib.resources.dll”，未加载符号。<BR>“NameGIS.exe”: 已加载“c:\许\1479\1479\vb.net\vb.net\namegis\bin\utilitylibrary.dll”，未加载符号。<BR>“NameGIS.exe”: 已加载“c:\许\1479\1479\vb.net\vb.net\namegis\bin\interop.mosymbollib.dll”，未加载符号。<BR>“NameGIS.exe”: 已加载“c:\windows\assembly\gac\stdole\7.0.3300.0__b03f5f7f11d50a3a\stdole.dll”，未加载符号。<BR><FONT style="BACKGROUND-COLOR: #eeee11">未处理的“System.Runtime.InteropServices.COMException”类型的异常出现在 mscorlib.dll 中。</FONT></P>
<P><FONT style="BACKGROUND-COLOR: #eeee11">其他信息: Unknown error</FONT></P>
<P>程序“[3432] NameGIS.exe: 本机”已退出，返回值为 0 (0x0)。<BR>程序“[3432] NameGIS.exe”已退出，返回值为 0 (0x0)。</P>
<P><FONT style="BACKGROUND-COLOR: #f73809">源码：</FONT></P>
<P>Imports Crownwood.Magic.Menus<BR>Imports Crownwood.Magic.Common<BR>Imports Crownwood.Magic.Controls<BR>Imports Crownwood.Magic.Docking<BR>Imports Crownwood.Magic.Win32</P>
<P><BR>Imports UtilityLibrary.Menus<BR>Imports UtilityLibrary.CommandBars<BR>Imports UtilityLibrary.WinControls<BR>Imports UtilityLibrary.General<BR>Imports UtilityLibrary.Win32<BR>Imports UtilityLibrary.Collections<BR>Imports System.Runtime.InteropServices.COMException</P>

<P>Public Class MainForm<BR>    Inherits System.Windows.Forms.Form</P>
<P>    '---------------------------------------------------------------------<BR>    Enum TVType<BR>        TV_maps = 0<BR>        TV_Layers<BR>        TV_Legend<BR>    End Enum<BR>    '---------------------------------------------------------------------<BR>    Private _manager As DockingManager  ' 窗口管理器<BR>    Private _wc As WindowContent        ' 窗口内容实体<BR>    '---------------------------------------------------------------------<BR>    '常量<BR>    Private Const NOFILTER As String = "(全部类型)"<BR>    Private Const NOSUBFILTER As String = "(全部子类型)"<BR>    Private Const FONTNAME As String = "楷体"<BR>    Private Const MYFONTHEIGHT As Integer = 2500<BR>    Private Const MAX_SCALE As Double = 4000<BR>    Private Const MIN_SCALE As Double = 20000<BR>    '---------------------------------------------------------------------<BR>    '资源<BR>    Private _imagesWorkspace As ImageList<BR>    Private _imagesToolbar16 As ImageList<BR>    Private _imagesToolbar16_2 As ImageList<BR>    Private _imagesMaps As ImageList<BR>    Private _imagesVisible As ImageList<BR>    '---------------------------------------------------------------------<BR>    Public _environment As CEnvironment<BR>    Public _mapEye As AxMapObjects2.AxMap  ' 鹰眼地图对象</P>
<P>    ' 查询窗口<BR>    Private _cInfoWnd As Crownwood.Magic.Docking.Content     ' 信息窗口<BR>    Private _cEyeWnd As Crownwood.Magic.Docking.Content      ' 鹰眼窗口<BR>    Private _cIndexWnd As Crownwood.Magic.Docking.Content    ' 地名索引窗口<BR>    Private _cQueryWnd As Crownwood.Magic.Docking.Content    ' 地名查询窗口<BR>    Private _cHelpWnd As Crownwood.Magic.Docking.Content     ' 帮助窗口</P>
<P>    Private _tvMaps As TreeView    ' 地图索引树状列表<BR>    Private _tvLayers As TreeView  ' 地图控制树状列表<BR>    Private _tvLegend As TreeView  ' 图列树状列表</P>
<P>    Public _mapOutlookBar As OutlookBar<BR>    Public _queryOutlookBar As OutlookBar<BR>    Public _helpOutlookBar As OutlookBar</P>
<P>    Private _bTVChecked As Boolean = True</P>
<P>    Public _frmInfo As frmInfo = Nothing</P>
<P>    ' 地名查询类型<BR>    Private _query_szType As String = ""<BR>    ' 距离查询类型<BR>    Private _dist_szType As String = ""<BR>    Private _bus_bTextBox As Boolean = True</P>
<P>    Private _index_szType As String = ""<BR>    Private _index_szSubType As String = ""<BR>    Private _index_bTextBox As Boolean = True</P>
<P>    Private _netLayer As MapObjects2.MapLayer = Nothing<BR>    Private _netLayer1 As NetLayer = Nothing<BR>    Private _path As ArrayList = Nothing</P>
<P>    Private _mapTip As MapTip = Nothing</P>
<P>#Region " Windows Form Designer generated code "</P>
<P>    '---------------------------------------------------------------------<BR>    Public Sub New()<BR>        MyBase.New()</P>
<P>        '装载资源<BR>        LoadResources()<BR>        ' 初始化_environment成员变量<BR>        Initialize()</P>
<P>        'This call is required by the Windows Form Designer.<BR>        InitializeComponent()</P>
<P>        'Add any initialization after the InitializeComponent() call        <BR>        CreateMapControlToolBar()<BR>        CreateFeatrueControlToolbar()</P>
<P>        _manager = New DockingManager(Me, Crownwood.Magic.Common.VisualStyle.IDE)<BR>        _manager.OuterControl = _statusBar</P>
<P>        '装载数据<BR>        LoadData()<BR>        CreateWorkspace()</P>
<P>        _WebBrowser.Visible = False<BR>        Dim ob As New Object()<BR>        _WebBrowser.Navigate(_environment.m_szHelpPath, ob, ob, ob, ob)</P>
<P>        _mapTip = New MapTip(Me)<BR>    End Sub<BR>    '---------------------------------------------------------------------</P>
<P>   </P>

<img src="images/post/smile/dvbbs/em02.gif" />

<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em01.gif" />

看不懂