|
用户在图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 方法
用于在 TabSip 或多页中添加或插入一个标签或页,或通过其
程序设计标识符 (ProgID)在页或窗体中添加控件。
- 语法:
对于多页和 TabSip :Set Object = object.Add( [ Name [,
Caption [, index]]])
对于其他控件:Set Conol = 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 所示。

设置
format 的设置如表12-9 所示。

GetFromClipboard 方法
从剪贴板复制数据到 DataObject。
- 语法
Sing = object.GetFromClipboard( )
- 说明
DataObject 可以包含多个数据项,但每个数据项必须有不同的
格式。例如,DataObject 可以包含一个文本项和用户定义项,但不
能同时有两个文本项。
GetText 方法
用特定的格式在 DataObject 中检索一文本串。
- 语法
Sing = object.GetText([ format])
GetText 方法的语法成分如表12-10 所示。

说明
DataObject 支持多种格式,但只支持每种格式的一个数据项。
例如,DataObject 可能包含一个文本项和一个自定义格式的项;但
不能包含两个文本项。
如果不指定格式,GetText 方法要求从 DataObject 中得到文本
格式的信息。
Item 方法
返回集合的一个成员,无论按位置,还是按名称。
语法
Set Object = object.Item(collectionindex)
Item 方法的语法成分如表12-11 所示。
设置
collectionindex 可以是字符串,也可以是整数。如果是字符串,
则必须是一个有效的成员名。如果是一个整数,其最小值为 0,而
最大值比集合中的项目数少 1。
Move 方法
移动一个窗体或控件,或者移动Conols 集合中的所有控件。
语法
对于窗体或控件
object.Move([ Left [, Top [, Width [, Height [, Layout]]]]])
对于 Conols 集合
object.Move(X, Y)
Move 方法的语法成分如表12-12 所示。
设置
Left、Top、Width、Height、X 和Y 参数的最大值和最小值,随应用程序的不同而 不同。
Paste 方法
把剪贴板上的内容传送到一个对象。
语法
object.Paste
说明
将粘贴到组合框或者文本框中的数据作为文本来处理。
粘贴方法若用于窗体,可将任何对象粘贴到窗体上。
PutInClipboard 方法
将
|