?? mapobject學習筆記－第二講圖層的基本功能開發_魏國強的博客.htm

?? MO+VC的學習文檔資料
?? HTM
?? 第 1 頁 / 共 5 頁
字號:
<DIV class=modbox id=m_blog>
<DIV class=tit>MapObject學習筆記－第二講 圖層的基本功能開發</DIV>
<DIV class=date>2008-01-07 22:38</DIV>
<TABLE style="TABLE-LAYOUT: fixed">
  <TBODY>
  <TR>
    <TD>
      <DIV class=cnt id=blog_text>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 130%; TEXT-ALIGN: center; mso-pagination: widow-orphan" 
      align=center></P><STRONG style="mso-bidi-font-weight: normal"><SPAN 
      style="FONT-SIZE: 15pt; LINE-HEIGHT: 130%; mso-ascii-: 12.0pt; mso-bidi-: 0pt">
      <P>(轉自<A class=HeaderMainTitle 
      href="http://www.cnblogs.com/gispeng/"><FONT 
size=4>GIS雲中飛鵬</FONT></A>)</P>
      <P></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan" 
      align=left></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 0pt"><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt; mso-bidi-font-size: 12.0pt">1</SPAN><STRONG><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 12.0pt; mso-bidi-: 0pt">、利用其他控件動態加載圖層文件</SPAN></STRONG></SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 0pt">所用控件包括</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Map 
      </SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 0pt">控件，</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Drive</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 0pt">、</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Dir</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 0pt">、</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">File</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 0pt">列表控件，和一個命令按鈕，實現可選擇性的圖層文件加載，基本代碼如下：</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Option 
      Explicit</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Dim dc As New 
      DataConnection</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Dim layer As 
      New MapLayer</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Private Sub 
      Command1_Click()</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; COLOR: red; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Map1.Layers.Clear</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">dc.Database = 
      File1.Path</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">If dc.Connect 
      Then</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">layer.GeoDataset 
      = dc.FindGeoDataset(File1.FileName)</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Map1.Layers.Add 
      layer</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Map1.Refresh</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Else</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">MsgBox 
      "</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 0pt">在指定文件夾下面沒有找到相應圖層數據文件！</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">"</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">End 
      If</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">End 
      Sub</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Private Sub 
      Drive1_Change()</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Dir1.Path = 
      Drive1.Drive</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">End 
      Sub</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Private Sub 
      Dir1_Change()</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">File1.Path = 
      Dir1.Path</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 40pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 4.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">End 
      Sub</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan" 
      align=left><STRONG><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt; mso-bidi-font-size: 12.0pt">2</SPAN></STRONG><STRONG><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 12.0pt; mso-bidi-: 0pt">、同一文件夾下加載</SPAN></STRONG></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 0pt">如果你的程序和</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">GIS</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 0pt">圖層文件（</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">.shp</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 0pt">、</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">.shx</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 0pt">和</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">.dbf</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 0pt">）在同一個文件夾下，設置好圖層文件夾的路徑，進行自動加載。示例如下：</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Option 
      Explicit</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Dim dc As New 
      DataConnection</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; COLOR: red; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Dim 
      layer As MapLayer</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Private Sub 
      Command1_Click()</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">dc.Database = 
      App.Path</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">dc.Database = 
      "</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 0pt">指定文件夾路徑</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">"</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">If dc.Connect 
      Then</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; COLOR: red; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Set 
      layer = New MapLayer</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">layer.GeoDataset 
      = dc.FindGeoDataset(</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 0pt">文件名</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">1)</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Map1.Layers.Add 
      layer</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; COLOR: red; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Set 
      layer = New MapLayer</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">layer.GeoDataset 
      = dc.FindGeoDataset(</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 0pt">文件名</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">2)</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Map1.Layers.Add 
      layer</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Map1.Refresh</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Else</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">MsgBox 
      "</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 0pt">在指定文件夾下面沒有找到相應圖層數據文件！</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">"</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">End 
      If</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">End 
      Sub</SPAN></P>
      <P class=MsoNormal 
      style="BACKGROUND: white; MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; LINE-HEIGHT: 130%; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-char-indent-count: 2.0" 
      align=left><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 0pt">試驗在調試過程中替換代碼“</SPAN><SPAN 
      style="FONT-SIZE: 10pt; COLOR: red; LINE-HEIGHT: 130%; mso-bidi-: 0pt">Dim 
      layer As New MapLayer</SPAN><SPAN 
      style="FONT-SIZE: 10pt; LINE-HEIGHT: 130%; mso-ascii-: 0pt">”，觀察程序運行結果。</SPAN></P><SPAN 
      style="FONT-SIZE: 12pt; LINE-HEIGHT: 130%; mso-bidi-: 0pt">
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT 
      size=2><STRONG><SPAN>3</SPAN></STRONG><STRONG><SPAN>、在不同文件夾下加載</SPAN></STRONG></FONT></P>
      <P class=MsoNormal 
      style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent-count: 2.0"><SPAN><FONT 
      size=2>由于在實際的應用程序中，圖層文件和程序文件都很多，為了方便管理，一般程序文件和圖層文件不在一個文件夾下，通常采用一個文件夾單獨存放圖層文件，而把各個程序文件和它并列放置。</FONT></SPAN></P>
      <P class=MsoNormal 
      style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent-count: 2.0"><FONT 
      size=2><SPAN>例如應用程序的文件夾路徑為“</SPAN><SPAN>F:\MO</SPAN><SPAN>實驗”，程序在“</SPAN><SPAN>F:\MO</SPAN><SPAN>實驗</SPAN><SPAN>\</SPAN><SPAN>程序加載”下，圖層文件放在“</SPAN><SPAN>F:\MO</SPAN><SPAN>實驗</SPAN><SPAN>\WORLD</SPAN><SPAN>”文件夾下，這時要用</SPAN><SPAN>+”\..\”</SPAN><SPAN>返回上級文件夾，示例代碼為：</SPAN></FONT></P>
      <P class=MsoNormal 
      style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent-count: 2.0"><SPAN><FONT 
      size=2>Option Explicit</FONT></SPAN></P>
      <P class=MsoNormal
?? 文件大小 370 K
?? 上傳用戶 flp123456
?? 所屬分類 VC書籍
??? 相關標簽

#MO #VC #文檔
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? mapobject學習筆記－第二講 圖層的基本功能開發_魏國強 的 博客.htm

?? 快捷鍵說明

?? mapobject學習筆記－第二講圖層的基本功能開發_魏國強的博客.htm
