VBA常用代码的完整教程2

<DIV align=center>
<TABLE>

<TR >
<TD  width=619>
<P><B><FONT color=#000000>introduction</FONT></B><B>
</B><FONT color=#000000>我们可以利用VBA来开发一个完整的应用程序，然而这个应用程序可能只用在某个计划中</FONT>
<FONT color=#000000>，也可能用在任意一个计划中，无论你是此应用程序的唯一使用者或是你计划将它推荐给</FONT>
<FONT color=#000000>其它同仁，你将有许多选择来处理此应用程序。</FONT>


<B><FONT color=#000000>selecting a development environment</FONT></B>
<FONT color=#000000><FONT face=PMingLiU>VBA</FONT>宏和应用程序皆必须储存于<FONT face=PMingLiU>ArcGIS</FONT>文件或模块中，因此如果想要使你的应用程序独</FONT>
<FONT color=#000000>立于<FONT face=PMingLiU>ArcGIS</FONT>之外，就必须另择一个适当的发展环境，如<FONT face=PMingLiU>VB</FONT>、<FONT face=PMingLiU>C++</FONT>。</FONT>

<FONT color=#000000><B>storing the application code</B><B> </B></FONT></P>
<OL type=1>
<LI class=MsoNormal style="MARGIN: 0cm 0cm 0pt; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"><FONT color=#000000>若你所写的<FONT face=PMingLiU>VBA</FONT>应用程序只用于单个计划中，你可将其储存于相关<FONT face=PMingLiU>ArcMAP</FONT>文件，如此则不会被其它文件所使用，当然你也可以汇出程序代码使其被其它计划所使用。<FONT face=PMingLiU> <p></p></FONT></FONT></LI></OL>
<P><FONT color=#000000>  2.你也可以把VBA应用程序存成模块，使其它文件皆可凯起此模块来使用。如果你将</FONT>
<FONT color=#000000>程序存成normal template所有新开启的档案皆会拥有此应用程序。你也可以储存VBA程</FONT>
<FONT color=#000000>式码于一个新的模块中，那么当你选择工具列中的File─New，就能汇入这项</FONT>
<FONT color=#000000>程序于你的文件中。</FONT></P>
<P><B><FONT color=#000000>protecting your code</FONT></B><B>
</B><FONT color=#000000>你可以防止其它人窜改或是使用你所写的应用程序。</FONT></P>
<UL type=disc>
<LI class=MsoNormal style="MARGIN: 0cm 0cm 0pt; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"><FONT color=#000000>在VBA Editor中，在Normal template、Project template或Project </FONT>
<FONT color=#000000>element上按下右键，选择Properties。<FONT face=PMingLiU> </FONT></FONT></LI>
<LI class=MsoNormal style="MARGIN: 0cm 0cm 0pt; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto; mso-list: l0 level1 lfo1; tab-stops: list 36.0pt"><FONT color=#000000>在跳出的Properties对话框中，选择Protection tab。<FONT face=PMingLiU> </FONT></FONT></LI></UL>
<P><FONT color=#000000></FONT> </P></TD></TR></TABLE><p><FONT face=PMingLiU size=3></FONT></p></DIV>

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

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

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

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

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

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