hanli0611 发的VBA常用代码的完整教程1

楼主^#

更多发布于：2004-04-18 15:48

VBA的发展环境（The VBA Development Environment）
Visual Basic For Applications（VBA）是最近几年发展得较好的技术之一，是微软Microsoft所发展的一种程序语言。如ArcGIS等开放组件模块的应用软件就可以用VBA作整合。你将在这本书的后段学习到更多组件模块的相关信息。尚有许多使用VBA的应用软件，如：Microsoft的Word和Access。VBA提供了这些以窗口为基础的产品在客制应用（应顾客要求修改部分功能）发展的标准化。Visual Basic是可学习的早期程序语言之一。
使用VBA发展的应用软件常被称为宏（macros），你可以使用宏来自动化重复的工作或产制一个应用完整的应用软件。这些宏是以VBA为基础在应用软件中执行。如：你的ArcMap的宏在ArcMap这个应用软件中执行，而且在ArcMap的地图文件上执行。这个章节介绍VBA的发展环境，即VBA的编辑器。你可以使用VBA的编辑器来发展你要的宏。VBA的另一种用处是标准化较大型的应用软件。无论如何，记住VBA的程序代码可能不易转移至VB环境，尤其是使用窗体（forms）的情况下。
●<a href="http://www.gcc.ntu.edu.tw/arcgis/ArcGIS%20Developer's%20Guide%20for%20VBA/VBA_Chap01/The_VBA_Development_Environment.htm" target="_blank" >开启与关闭VBA编辑器</A>（Opening and Closing the VBA Editor）
VBA的宏是跟ArcGIS的地图文件一起储存的，因此，要编辑VBA的宏需要先开启ArcGIS的地图文件，如ArcMap的地图文件。在ArcMap中开启一个新的或既存的地图文件，然后使用VBA编辑器来新增或编辑VBA的宏。要打开VBA编辑器，你可以选择Tools－Macros－Visual Basic Editor，也可以按下快速键〔Alt＋F11〕，VBA编辑器将开启一个新的窗口，图1-1为在一个新的地图文件中开启VBA编辑器的画面。
<v:shapetype><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path connecttype="rect" gradientshapeok="t" extrusionok="f"></v:path><lock aspectratio="t" v:ext="edit"></lock></v:shapetype><v:shape><v:imagedata></v:imagedata></v:shape>
图1-1　VBA编辑器
在VBA编辑器中项目浏览窗口（Project Explorer window）列出了宏的不同组件，在一个新的ArcMap的地图文件中，VBA编辑器可供选择一般样式（Normal template）和现行项目文件（current project document）。如果使用一般样式来编修宏，你所有的文件都可以使用一般样式。如果使用现行项目文件来编修宏，则只有那个文件可以使用它。
你可以在属性窗口（Properties window）中观看并编辑某一对象的属性，在图1-1中，项目组件（Project element）在项目浏览窗口中处于选择中的状态（highlighted）。因此，该项目组件的属性就会显示在属性窗口中，在这个案例中，该项目组件只有一个属性－Name，你可以在属性窗口中更改这项属性的值。而实时窗口（Immediate window）在宏测试和除错时才会使用到。在这本书后面几章将会介绍这些窗口的使用方法。
选择File－Close就可以关闭VBA编辑器并回到ArcMap，也可以按下快速键〔Alt＋Q〕，或按下窗口右上角的关闭钮。当你在ArcMap窗口或VBA编辑器中储存ArcMap的地图文件，所以的编修（包括宏）都会被储存起来。因此，如果在储存宏前就关闭VBA编辑器，该宏也不会遗失，你可以在ArcMap窗口中储存它。当你离开ArcMap时，所有相关窗口（包括VBA编辑器）都会关闭。
●<a href="http://www.gcc.ntu.edu.tw/arcgis/ArcGIS%20Developer's%20Guide%20for%20VBA/VBA_Chap01/The_VBA_Development_Environment.htm" target="_blank" >VBA编辑器的使用者接口</A>（The VBA Editor User Interface）
VBA编辑器的使用者接口是由一个选单列、数个工具列和数个窗口所组成，你可以透过移动、隐藏或展示任一组件来更改这个使用者接口，图1-2显示选单列和标准工具列，你不能隐藏选单列但可以移动它。
<v:shape><v:imagedata></v:imagedata></v:shape>
图1-2　VBA编辑器选单和工具列
VBA编辑器提供了另外四个工具列，你可以藉由VBA编辑器的客制化对话盒（Customize dialog box）来展示或隐藏这些工具列，选择View－Toolbars－Customize以显示客制化对话盒，如图1-3，可勾选所需的工具列以显示出来。
<v:shape><v:imagedata></v:imagedata></v:shape>
图1-3　VBA编辑器的客制化对话盒
就如同其它窗口应用软件一样，VBA编辑器提供了选单选项的完整设定，大部分普遍会用到且重要的选单项目详述如下：
※档案选单（File Menu）
在档案选单中最常用到的是储存和关闭项目，用以储存地图文件和关闭编辑器。在选单选项中，输入档案（Import File）和输出档案（Export File）项目是值得注意的。无论所发展的宏程序代码是储存在一般样式或是现行文件中，该程序代码将无法在该地图文件或该样式之外取得。
你可以选择File－Export File来储存宏，就是以纯文本文件格式储存在ArcGIS文件之外，该输出档案保留VB档案格式，可以用在其它VB的项目中。输出写好的宏也是一个备分且与其它人分享程序代码的好方法。相反地，你可以选择File－Import File输入VB档案到地图文件中。
※浏览选单（View Menu）
使用浏览选单中的项目可以展示不同的VBA编辑器窗口，如：假如不小心关掉项目浏览窗口，可以选择View－Project Explorer再打开它。这个选单也可以选择切换ArcMap或ArcCatalog窗口。
※插入选单（Insert Menu）
你可以使用插入选单中的项目来增加宏中的组件，如：你可以选择Insert－User Form把使用者窗体加入宏。
※除错与执行选单（Debug and Run Menus）
在除错和执行选单中的项目可以让你针对宏执行、测试和除错，选择Debug－Step，就一个步骤一个步骤的进行宏除错，这是宏除错时很有效且通用的方法。
●<a href="http://www.gcc.ntu.edu.tw/arcgis/ArcGIS%20Developer's%20Guide%20for%20VBA/VBA_Chap01/The_VBA_Development_Environment.htm" target="_blank" >使用VBA编辑器</A>（Using the VBA Editor）
你可以在VBA编辑器的程序代码窗口中编修宏的程序代码，有很多方法可以开启程序代码窗口，如：View－Code。当你藉由插入选单的选项插入一个模块或类别模块时，新模块的程序代码窗口会自动开启。产生一个新宏并开启程序代码窗口的步骤如下：
1.开启ArcMap，并按下Alt＋F11开启VBA编辑器。
2.在VBA编辑器窗口中，选择Tools－Macros开启宏对话盒，如图1-4。
3.确定宏下拉式选单中所选的是目前的项目，然后在宏名称（Macro Name）文字盒中输入MyMacro。
4.按下Create钮以开启程序代码窗口，如图1-5。
<v:shape><v:imagedata></v:imagedata></v:shape>
图1-4　VBA编辑器的宏对话盒
<v:shape><v:imagedata></v:imagedata></v:shape>
图1-5　程序代码窗口
在图1-5中程序代码窗口会出现一个宏基本的架构，你所需要做的事就是写入程序代码，为宏加入一个讯息窗的程序代码如下：
Sub MyMacro()
 MsgBox ("Hello World!")
End Sub
选择Run－Run Sub来执行这个新的宏，结果就是出现一个写着Hello World!的讯息窗。在图1-5中，你可以看到一个名叫Module1的新组件加入了项目浏览窗口中，你刚刚产生的宏是Module1的一个程序（procedure），你可以在属性窗口中更改Module1的名称，改成一个更具意义的名字。一个模块（Module）中可以有一个以上的宏（macro），一个项目（Project）中也可以有很多模块。
●<a href="http://www.gcc.ntu.edu.tw/arcgis/ArcGIS%20Developer's%20Guide%20for%20VBA/VBA_Chap01/The_VBA_Development_Environment.htm" target="_blank" >使用VBA编辑器制作使用者窗体</A>（Creating User Forms in the VBA Editor）
使用者窗体提供了使用者接口相当丰富的功能，可以随意的加入宏中。虽然有许多固定的对话盒可用在宏中与使用者产生互动，复杂的宏或许就需要属于自己的客制窗体。你可以选择Insert－User Form来增加宏中的窗体。图1-6显示一个新增的使用者窗体。
<v:shape><v:imagedata></v:imagedata></v:shape>
图1-6　新的使用者窗体
在图1-6中，新的使用者窗体叫做UserForm1，它同时也被加入项目浏览窗口中，你可以在属性窗口更改窗体名称。你也可以藉由工具对话盒增加窗体中的使用者接口控制，选择View－Toolbox就可以开启工具对话盒。在窗体中增加一个文字盒与命令钮的步骤如下，然后你就可以加入一些程序代码，让使用者一按下窗体中的命令钮就在文字盒中显示目前的日期和时间。
1.开启ArcMap并打开VBA编辑器。
2.在项目浏览窗口中选择目前的项目文件，别选一般模式（Normal template）。
3.选择Insert－User Form在目前的项目文件中插入一个新的窗体。
4.如果工具对话盒（Toolbox dialog）是隐藏状态，选择View－Toolbox就可以开启它。在工具对话盒中选择命令钮这项工具，如果你不甚熟悉各个工具钮，把鼠标移至该工具上就会显示出它的名称。
5.当命令钮这项工具选好后，在窗体上按一下以增加一个命令钮。
6.在工具对话盒中选择文字盒（Text Box）工具，在窗体上按一下以放置一个文字盒。
7.透过拖曳和更改大小来排列使用者接口控制，而窗体将如图1-7所示。
<v:shape><v:imagedata></v:imagedata></v:shape>
图1-7　使用者接口控制
8.增加显示日期和时间的程序代码。在CommandButton1上按鼠标右键，并选择View Code的选项，将开启程序代码窗口如下：
Private Sub CommandButton1_Click()
End Sub
9.增加Me.TextBox1.Text = Now()这串程序代码，程序代码窗口将含有下列程序：
Private Sub CommandButton1_Click()
 Me.TextBox1.Text = Now()
End Sub
10.当你的光标在CommandButton1_Click()的程序中，选择Run－Run Sub／UserForm来测试你的窗体，该使用者窗体就会显示出来，当你按下窗体上的命令钮，就会在文字盒中看到现在的日期和时间，按下窗体右上角的关闭钮就可以关掉窗体。
你可以透过选择Tool－Macros－Macros直接在ArcMap窗口中直接执行宏，然而，使用者窗体不会出现在宏选单中，因此，你不能直接在ArcMap窗口中直接执行使用者窗体。你需要一个宏以显示你的使用者窗体，用前述方法产生一个新的宏，并增加下列程序代码以显示你的使用者窗体。
UserForm1.Show
在这一章中，你学会如何使用VBA编辑器来产生新的宏，这些宏是用VBA语言所写成的，在后面几章你将会学到更多VBA程序写法。

喜欢0 评分0

个人专栏: https://zhuanlan.zhihu.com/c_165676639

举报回复

发帖回复

« 返回列表

您需要登录后才可以回帖，登录或者注册

返回顶部

hanli0611 发的VBA常用代码的完整教程1

最新喜欢：