CST_VBA界面的创建.pdf

第二章 VBA 创建界面 VBA 采用VB 的编程语言和语法，是一种可视化的、面向对象的、采用事件 驱动的结构化高级程序设计语言，不过VBA 的部分函数与VB 的不一样，这一 点需要注意。一个完整的VBA 程序通常包含以下几个部分： ① 界面。界面也就是人机对话框，用户可以通过输入相关数据、点击操作按 钮，让VBA 进行各种数据计算、模型创建、数据输出等功能。 ② 主程序。主程序也就是 Sub Main 和 End Sub 之间的程序，主程序可以实 现宏文件的特定功能，是一个完整的程序体。 ③ 子程序。子程序可以完成某个具体的小功能，是为主程序服务的。有时候 主程序需要反复执行同一操作，若每次都编写同样的程序，则显得过于冗杂。因 此编写功能很小、但很具体的子程序，可以随时调用。 ④ 数据输出。有的时候，经过计算的数据需要输出到txt 文件、打印成报表 格式等，因此程序中还应该具备数据输出的功能。当然，该功能是附属功能，可 以不存在。 如果一个宏程序中包含了上述四个部分，那么该宏程序就是一个非常完整、 功能齐全的程序了。接下来首先讲解如何利用VBA 创建界面。 在CST 主窗口的菜单栏中打开Open VBA Macro Editor，单击图1-9 左侧的 图标，那么就打开了窗口编辑对话框，如图2-1 所示。 图2-1 窗口编辑对话框 1 之前使用过VB 软件的可能会发现，VBA 此时的操作界面竟然和VB 的操作界面 一模一样，都具备可视化的效果。 图2-1 左侧部分是窗体中可以使用的控件，包括text 文本框、单选按钮等等， 中部是放置控件的载体，它的大小可以任意调整，而调整后的大小就是实际的窗 体大小。需要注意的是：创建的窗体中必须至少包含 OKButton 和 CancelButton 中的一个，否则系统会提示存在错误。 2.1 控件 ① Text 静态文本 静态文本text 通常用来显示数据输出，或者提示用户的标签等。在窗体中添 加一个静态文本，双击便可打开并查看text1 静态文本的部分属性，如图 2-2 所 示。 图2-2 Text 静态文本的部分属性 图2-2 中，Left，Top，Width，Height 分别是指text 静态文本左侧到窗口左 侧的距离、顶部到窗口顶部的距离，text 静态文本自身的宽度和高度，基本单位 是像素。Caption 是该静态文本显示的内容，方便用户识别；而Field 右侧第一个 文本框显示的是系统对该text 静态文本的命名，用于计算机自身识别；下拉菜单 中包括Left /Center /Right，表示Caption 中的内容是居中显示，还是靠左/靠 右显示。 2 除了上述的部分属性之外，Text 静态文本还包括如下所示的属性。 函数名 功能 Text 修改静态文本显示的内容 Enable 使静态文本有效或者无效 Visible 使静态文本可见或者不可见 例如，修改Text1 静态文本中的内容，可以用如下程序 DlgText”Text1”,”The Caption” 为了使该静态文本无效或者不可见，可以使用如下程序 DlgEnable”Text1”,0 或者 DlgEnable”Text1”,False DlgVisible”Text1”,0 或者 DlgVisible”Text1”,False 但是需要注意的是，上面的这三行程序不可以在主程序中出现，即 Text/ Enable/ Visible 这三个函数只可以在子函数中出现。如果他们在主程序中出现的 话，那么系统将会提示错误。 ② Textbox 文本框 Textbox 文本框通常用来输入数据，作为人机交互的输入端。在窗体中添加一 个Textbox 文本框，双