用户在图12-6 中可以看到,如果仅仅只靠设置对象的属性,还不能设置出满意的窗体。如列表框和组合列表框的选项就无法通过设置属性来设置。此时需要调用对象的各种方法来设置。 对象的方法很多,对象不同,方法也不尽相同。列表框和组合列表框都有一个AddItem 方法,通过调用这个方法,即可在列表框和组合列表框中加入相应的选项。 为了在文档打开时能够自动对窗体的对象进行初始化,可以在 AutoOpen 过程中调用,其代码如下:
Public Sub AutoOpen() ListBox1.AddItem "党员" ListBox1.AddItem "团员" ListBox1.AddItem "民主党派" ListBox1.AddItem "无党派人士" ComboBox1.AddItem "北京" ComboBox1.AddItem "广西" ComboBox1.AddItem "广东" ComboBox1.AddItem "陕西" ComboBox1.AddItem "山西" ComboBox1.AddItem "山东" End Sub
通过以上代码,在打开文档时如果设置了运行自动宏,即可显示如图12-7 所示的 界面。 如果【选项】对话框的【编辑器】选项卡中设置了【自动列出成员】复选框,那么在输入某个对象的名称后输入“.”,即可在屏幕上列出该对象的方法和属性,图12-8 所示的是自动组合列表框的成员。
对象的方法前面由图标来标识,其他的为该对象的属性。下面介绍VBA 中经常用到的一些方法及其意义。 Add 方法 用于在 TabStrip 或多页中添加或插入一个标签或页,或通过其程序设计标识符 (ProgID)在页或窗体中添加控件。
- 语法:
对于多页和 TabStrip :Set Object = object.Add( [ Name [, Caption [, index]]]) 对于其他控件:Set Control = object.Add( ProgID [, Name [, Visible]]) Add 方法的语法包括表12-6 所示成分。
AddItem 方法
对于单列的列表框或组合框,在列表中添加一项。对于多列的列表框或组合框,在列表中添加一行。
- 语法
Variant = object.AddItem [ item [, varIndex]] AddItem 方法的语法有表12-7 所示的成分。
Clear 方法
从一个对象或集合中删去所有对象。
- 语法
object.Clear object 为必需的有效对象。 Copy 方法 将对象的内容复制到剪贴板上。
- object.Copy
object 为必需的有效对象。 Cut 方法 从一个对象中删除选定的信息并将它送到剪贴板。 语法 object.Cut object 为必需的有效对象。 DropDown 方法 显示组合框的列表区。 语法 object.DropDown object 为必需的有效对象。 在组合框中使用DropDown 方法打开组合框中的列表。 GetFormat 方法 返回一个整数值,表明指定的格式是否在 DataObject 上。 语法 Boolean = object.GetFormat(format) GetFormat 方法的语法成分如表12-8 所示。
[NextPage]
设置 format 的设置如表12-9 所示。
|