VB方法大全

来源：九壹网

方法

返回示例?/a〉应用于

用于将项目添加到 ListBox 或 ComboBox 控件，或者将行添加到 MS Flex Grid 控件。不支持命名参数。语法 object。AddItem item, index AddItem 方法的语法包含下列部分：: 部分描述必需的。一个对象表达式，其值为“应用于”列表中的一个对象。必需的。字符串表达式，它用来指定添加到该对象的项目。这仅仅对于 MS Flex Grid 控件，才能使用 tab字符（字符代码 09）分隔将要插入到新添加行中每列的多重字符串。可选的.是整数,它用来指定新项目或行在该对象中的位置.对于 ListBox 或 ComboBox 控件的首项，或者对于 MS Flex Grid 控件的首行，index 为 0。 object Item Index 说明

如果所给出的 index 值有效，则 item 将放置在 object 中相应的位置。如果省略 index，当 Sorted 属性设置为 True 时,item 将添加到恰当的排序位置，当 Sorted 属性设置为 False 时， item 将添加到列表的结尾。

绑定到 Data 控件的 ListBox 或 ComboBox 控件不支持 AddItem 方法。

AddItem 方法示例

本示例使用 Addltem 方法增加 100 项给一个列表框。要检验此示例，可将本例代码粘贴到一个带有被命名为 List1 的 ListBox 控件的窗体的声明部分，然后按 F5 键并单击该窗体. Private Sub Form_Click ()

Dim Entry, I， Msg ’ 声明变量.

Msg = \"Choose OK to add 100 items to your list box.\" MsgBox Msg ’ 显示信息。

For I = 1 To 100 ' 计数值从 1 到 100。 Entry = \"Entry \" & I ' 创建输入项。 List1.AddItem Entry ' 添加该输入项。 Next I

Msg = \"Choose OK to remove every other entry.” MsgBox Msg ' 显示信息。 For I = 1 To 50 ’ 确定如何

List1.RemoveItem I ’ 每隔一项 Next I ’ 删除。

Msg = ”Choose OK to remove all items from the list box。\" MsgBox Msg ' 显示信息.

List1.Clear ’ 清除列表框。 End Sub

应用于：

ComboBox 控件 ListBox 控件

相关基础知识：

命名参数

一参数，在对象库中预先定义了其名称。对每个参数，不必拘泥于语法所规定的特定顺序来提供值，而是只需按任何顺序用命名参数分配值。例如,假设一方法接受了三个参数： DoSomeThing namedarg1， namedarg2, namedarg3 在对命名参数赋值时,可使用以下语句：

DoSomeThing namedarg3 := 4， namedarg2 ：= 5， namedarg1 ：= 20 注意，命名的参数不必按语法中安排的正规顺序出现。

对象表达式

说明具体对象的表达式，可以包含对象的容器。例如，应用程序可以拥有 Application 对象，其中包含 Document 对象，而 Document 对象又包含 Text 对象。

字符串表达式

任何其值为一连串字符的表达式。字符串表达式的元素可包含返回字符串的函数、字符串文字、字符串常数、字符串变量、字符串 Variant 或返回字符串 Variant (VarType 8）的函数。

方法示例应用于

返回在对象上画圆、椭圆或弧. 语法 object。Circle ［Step］（x, y）, radius， [color, start， end, aspect］ Circle 方法的语法有如下的对象限定符和部分：部分描述可选的。对象表达式，其值为“应用于\"列表中的对象。如果object 省略，具有焦点的窗体作为object. 可选的。关键字，指定圆、椭圆或弧的中心,它们相对于当前 object 的 CurrentX 和 CurrentY 属性提供的坐标。必需的. Single (单精度浮点数），圆、椭圆或弧的中心坐标.object 的 ScaleMode 属性决定了使用的度量单位。必需的.Single （单精度浮点数），圆、椭圆或弧的半径。 object 的 ScaleMode 属性决定了使用的度量单位. 可选的。Long （长整型数），圆的轮廓的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。 object Step （x, y） radius color start, end 可选的。 Single （单精度浮点数），当弧、或部分圆或椭圆画完以后,start 和 end 指定（以弧度为单位）弧的起点和终点位置。其范围从 —2 pi 到 2 pi .起点的缺省值是0; 终点的缺省值是2 * pi。可选的。 Single （单精度浮点数），圆的纵横尺寸比。缺省值为 1。0，它在如何屏幕上都产生一个标准圆（非椭圆)。 aspect 说明

想要填充圆，使用圆或椭圆所属对象的 FillColor 和 FillStyle 属性.只有封闭的图形才能填充。封闭图形包括圆、椭圆、或扇形。

画部分圆或椭圆时，如果 start 为负，Circle 画一半径到 start，并将角度处理为正的;如果 end 为负，Circle 画一半径到 end，并将角度处理为正的.Circle 方法总是逆时针（正）方向绘图。画圆、椭圆或弧时线段的粗细取决于 DrawWidth 属性值.在背景上画圆的方法取决于 DrawMode 和 DrawStyle 属性值。

画角度为 0 的扇形时，要画出一条半径（向右画一水平线段)，这时给 start 规定一很小的负值,不要给 0。

。可以省略语法中间的某个参数，但不能省略分隔参数的逗号。您指定的最后一个参数后面的逗号是可以省略的。

Circle 执行时,CurrentX 和 CurrentY 属性被参数设置为中心点. 这个方法不能用在 With匛nd With 语句块中。

Circle 方法示例

这个示例用Circle 方法在窗体画许多同心圆.要运行这个示例，将此代码放入窗体的 General 部分。按 F5 并单击窗体。 Sub Form_Click （)

Dim CX， CY, Radius, Limit ' Declare variable。 ScaleMode = 3 ’ 以像素为单位。 CX = ScaleWidth / 2 ’ X 位置。 CY = ScaleHeight / 2 ' Y 位置。

If CX > CY Then Limit = CY Else Limit = CX For Radius = 0 To Limit ' 半径。

Circle (CX, CY), Radius,RGB(Rnd ＊ 255, Rnd ＊ 255, Rnd ＊ 255) Next Radius End Sub

应用于：

Form 对象、Forms 集合 PictureBox 控件 PropertyPage 对象 UserControl 对象

相关基础知识：

对象表达式

说明具体对象的表达式，可以包含对象的容器.例如，应用程序可以拥有 Application 对象，其中包含 Document 对象，而 Document 对象又包含 Text 对象。

关键字

Visual Basic 程序语言中的保留字或符号；例如，语句、函数名称或运算符.

焦点

在任何时间接收鼠标单击或键盘输入的能力。在 Microsoft Windows 环境中，在同一时间只有一个窗口、窗体或控件具有这种能力。“具有焦点”的对象通常会以突出显示标题或标题栏来表示。用户或应用程序可设置焦点.

方法

返回示例

清除 Err 对象的所有属性设置. 语法

object。Clear

objec 总是 Err 对象. 说明

在处理错误之后使用 Clear 来清除 Err 对象,例如，在对 On Error Resume Next 使用拖延错误处理时就可使用。每当执行下列语句时就会自动调用方法：

• • •

任意类型的 Resume 语句。

Exit Sub， Exit Function, Exit Property 任何 On Error 语句。

注意当处理因访问其他对象产生的错误时，与其使用 On Error GoTo,不如使用 On Error Resume Next。每一次与对象打交道之后都检查 Err，则可消除代码访问对象时的含混之处。可以确认是哪个对象将错误引入 Err。Number 中,也可以确认最初是哪个对象产生了这个错误（Err.Source 中指定的对象）。

方法示例

本示例使用 Err 对象的 Clear 方法将 Err 对象之数值属性重新设置为零，并将其字符串属性设置为零长度字符串。如果在代码中省略 Clear 方法，则每完成一次循环便会显示一次错误信息（发生错误之后）,不论程序中的计算结果是否真的有错误。 Dim Result(10) As Integer ' 声明数组变量 ’其元素容易溢出 Dim indx

On Error Resume Next ’ 将错误处理的方式改为“继续下一行”。 Do Until indx = 10

' 下面计算若有错误发生，便显示错误信息。 Result（indx） = Rnd ＊ indx * 20000 If Err.Number 〈> 0 Then

MsgBox Err， , ”Error Generated： \"， Err.HelpFile, Err.HelpContext Err。Clear ' 清除 Err 对象的属性。 Else

indx = indx + 1

End If Loop

相关基础知识：

属性

对象的命名属性。属性定义了对象特性,像大小、颜色、对象状态等.

语句

在语法上为完全的单元，可表达一种动作、声明或定义.尽管可以用分号（：) 使一行中包含多个语句，但语句通常要占据一行。也可用续行符（ _）在第二个物理行上继续一个逻辑行上的内容。

方法

返回示例应用于

清除运行时 Form 或 PictureBox 所生成的图形和文本。语法

object.Cls

object 所在处代表一个对象表达式，其值为“应用于\"列表中的一个对象。如果省略 object，则带有焦点的 Form 就被认为是 object。说明

Cls 将清除图形和打印语句在运行时所产生的文本和图形，而设计时在 Form 中使用 Picture 属性设置的背景位图和放置的控件不受 Cls 影响。如果激活 Cls 之前 AutoRedraw 属性设置为

False，调用时该属性设置为 True，则放置在 Form 或 PictureBox 中的图形和文本也不受影响。这就是说,通过对正在处理的对象的 AutoRedraw 属性进行操作，可以保持 Form 或〈font face=\"Ve

方法

返回示例应用于

用于除了 Line、Menu、Shape、Timer 或 CommonDialog 控件之外的任何控件的开始、结束或取消拖动操作.不支持命名参数。语法 object。Drag action Drag 方法的语法包含下列部分：部分描述必需的.是一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则认为该对象事件过程包含有 Drag 方法。 object action 设置值

action 的设置值有：常数 vbCancel 值 0 描述可选的.是一个常数或数值,如“设置值”中所描述的，它指定要执行的动作。如果省略 action，则缺省值为开始拖动对象。取消拖动操作开始拖动 object 结束拖放 object vbBeginDrag 1 vbEndDrag 2 说明

上述常数在 Visual Basic （VB）对象浏览器的对象库里列出.

只有当对象的 DragMode 属性设置为手工(0）时，才需要使用 Drag 方法控制拖放操作。但是,也可以对 DragMode 属性设置为自动(1 或 vbAutomatic）的对象使用 Drag。

如果在拖动对象过程中想改变鼠标指针形状，使用 DragIcon 或 MousePointer 属性。如果没有指定 DragIcon 属性,则只能使用 MousePointer 属性。

Drag 方法一般是同步的，这意味着其后的语句直到拖动操作完成之后才执行.然而，如果该控件的 DragMode 属性设置为 Manual （0 or vbManual)，则它可以异步执行。

Drag 方法示例

本示例使用 Drag 方法将一个位图 (bmp) 文件的文件名拖到显示该位图的图片框中。要检验此示例,可将本例所有代码粘贴到一个含有 DriveListBox、DirListBox、FileListBox、PictureBox 和 Label 控件的窗体的声明部分。对所有控件要使用缺省名。所有控件大小和位置的确定应使它们易于被看到和使用。标签的大小和位置并不重要，因为它们在运行时会改变.当程序开始时,可以浏览文件系统并装载任何需要的位图。装入所需要显示的位图后,可单击该位图的文件名并将它拖到图片框中。 Private Sub Form_Load ()

Picture1。AutoSize = —1 ' 打开 AutoSize。 Label1.Visible = 0 ' 使该标签不可见。

File1.Pattern = ”＊。BMP；＊.ICO；＊。WMF\" ' 设置文件的各种样式。 End SubPrivate Sub Dir1_Change (） ' 任何 Dir1 中的变更 File1。Path = Dir1。Path ' 都显示在 ile1 中。

End SubPrivate Sub Drive1_Change （) ’ 任何 Drive1 中的变更 Dir1.Path = Drive1.Drive ’ 都显示在 Dir1 中。

End SubPrivate Sub File1_MouseDown （Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim DY ' 声明变量。

DY = TextHeight（\"A\"） ' 取得一行的高度。

Label1.Move File1。Left， File1.Top + Y - DY /2, File1。Width, DY Label1.Drag ’ 拖标签轮廓。 End SubPrivate Sub Dir1_DragOver (Source As Control, X As Single， Y As Single, State As Integer) ’ 改变指针为不放.

If State = 0 Then Source.MousePointer = 12 ’ 使用缺省鼠标指针。

If State = 1 Then Source。MousePointer = 0

End SubPrivate Sub Drive1_DragOver (Source As Control， X As Single， Y As Single， State As Integer)

’ 改变指针为不放.

If State = 0 Then Source。MousePointer = 12 ’ 使用缺省鼠标指针.

If State = 1 Then Source.MousePointer = 0

End SubPrivate Sub Form_DragOver （Source As Control， X As Single， Y As Single, State As Integer)

' 改变指针为不放。

If State = 0 Then Source。MousePointer = 12 ' 使用缺省鼠标指针。

If State = 1 Then Source。MousePointer = 0

End SubPrivate Sub File1_DragOver (Source As Control， X As Single, Y As Single， State As Integer）

On Error Resume Next

If State = 0 And Right$(File1。Filename,4） = \"。ICO” Then

Label1.DragIcon = LoadPicture(File1.Path + \"\\” + File1。Filename) If Err Then MsgBox ”The icon file can't be loaded.\" ElseIf State = 1 Then

Label1。DragIcon = LoadPicture （） ’ 使用非拖式图标。 End If

End SubPrivate Sub Picture1_DragDrop （Source As Control， X As Single， Y As Single) On Error Resume Next

Picture1.Picture = LoadPicture（File1.Path + \"\\” + File1。Filename） If Err Then MsgBox \"The picture file can't be loaded。” End Sub

应用于：

CheckBox 控件 ComboBox 控件

CommandButton 控件 Data 控件

DirListBox 控件 DriveListBox 控件 FileListBox 控件 Frame 控件

HScrollBar、VScrollBar 控件 Image 控件 Label 控件 ListBox 控件 OLE 容器控件

OptionButton 控件 PictureBox 控件 TextBox 控件

相关基础知识:

命名参数

一参数，在对象库中预先定义了其名称。对每个参数，不必拘泥于语法所规定的特定顺序来提供值，而是只需按任何顺序用命名参数分配值。例如,假设一方法接受了三个参数： DoSomeThing namedarg1， namedarg2， namedarg3 在对命名参数赋值时，可使用以下语句：

DoSomeThing namedarg3 ：= 4, namedarg2 := 5， namedarg1 := 20 注意，命名的参数不必按语法中安排的正规顺序出现。

对象表达式

说明具体对象的表达式，可以包含对象的容器。例如，应用程序可以拥有 Application 对象，其中包含 Document 对象,而 Document 对象又包含 Text 对象。

对象浏览器

一个对话框,可在其内检查对象库中的内容，以获得有关对象的信息。

对象库

文件扩展名为。olb 的文件，向自动化控件（比如 Visual Basic）提供有关可用对象的信息。可用对象浏览器检查对象库的内容，以获得有关对象的信息。

方法示例应用于

返回在对象上画直线和矩形. 语法

object。 [Step] （x1, 1) ［Step］ (x2， y2）, [color］, [B][F］方法的语法有以下对象限定符和部分：

方法

返回示例应用于

在一次 DDE 对话过程中将命令字符串发送给发送端应用程序。不支持命名参数。语法 object.LinkExecute string LinkExecute 方法的语法包含下列部分：部分描述必需的。一个对象表达式,其值为“应用于”列表中的一个对象. 必需的。一个字符串表达式，它含有源应用程序所识别的命令. object string 说明

string 的实际值根据源应用程序而改变.例如，Microsoft Excel 和 Microsoft Word for Windows 接受括在方括号（［］）中宏命令所组成的命令字符串。要查看源应用程序所接受的命令字符串,请查阅该应用程序的文档.

LinkExecute 方法示例

本示例建立一个 Microsoft Excel 的 DDE 链接，将一些值放置到一个新工作单的第一行的单元里,并按照这些值画图.LinkExecute 向 Microsoft Excel 发送激活工作单的命令,选择一些值并按照它们画图。要检验此示例，计算机中必须装有 Microsoft Excel 而且要在 Autoexec。bat 文件的路径中声明.将本例代码粘贴到一个带缺省名 Text1 的 TextBox 控件的窗体的声明部分,然后按 F5 键并单击该窗体.

Private Sub Form_Click ()

Dim Cmd， I, Q, Row， Z ' 声明变量。 Q = Chr(34） ' 定义引用标记。

’ 创建一个含有 Microsoft Excel 宏指令的字串。

Cmd = \"［ACTIVATE（\" ＆ Q ＆”SHEET1\" ＆ Q ＆ ”）]\"

Cmd = Cmd & ”[SELECT（” ＆ Q & \"R1C1:R5C2\" & Q & ”)］” Cmd = Cmd & \"［NEW(2,1）］［ARRANGE。ALL(）］” If Text1.LinkMode = vbNone Then

Z = Shell(”Excel\ ’ 启动 Microsoft Excel。 Text1。LinkTopic = \"Excel｜Sheet1\" ’ 设置连接主题。 Text1.LinkItem = ”R1C1” ’ 设置连接项目。

Text1。LinkMode = vbLinkManual ' 设置连接模式。 End If

For I = 1 To 5

Row = I ' 定义行号。

Text1.LinkItem = ”R” ＆ Row & ”C1” ’ 设置连接项目. Text1.Text = Chr（ + I) ' 将值放置在 Text 中。 Text1。LinkPoke ' 将值放入单元。

Text1.LinkItem = \"R\" ＆ Row ＆ ”C2\" ’ 设置连接项目。 Text1。Text = Row ' 将值放置在 Text 中。 Text1.LinkPoke ' 将值放入单元。 Next I

On Error Resume Next

Text1.LinkExecute Cmd ’ 执行 Microsoft Excel 命令。

MsgBox \"LinkExecute DDE demo with Microsoft Excel finished.\"， End End Sub

应用于:

Label 控件

PictureBox 控件 TextBox 控件

相关基础知识:

发送端

当同时运行两个或多个支持动态数据交换（DDE) 的程序时，发送信息或命令的应用程序、窗体或控件。

命名参数

一参数，在对象库中预先定义了其名称。对每个参数，不必拘泥于语法所规定的特定顺序来提供值，而是只需按任何顺序用命名参数分配值。例如，假设一方法接受了三个参数： DoSomeThing namedarg1, namedarg2， namedarg3 在对命名参数赋值时，可使用以下语句:

DoSomeThing namedarg3 ：= 4, namedarg2 ：= 5， namedarg1 := 20 注意，命名的参数不必按语法中安排的正规顺序出现.

对象表达式

说明具体对象的表达式,可以包含对象的容器。例如，应用程序可以拥有 Application 对象，其中包含 Document 对象，而 Document 对象又包含 Text 对象。

字符串表达式

任何其值为一连串字符的表达式。字符串表达式的元素可包含返回字符串的函数、字符串文字、字符串常数、字符串变量、字符串 Variant 或返回字符串 Variant (VarType 8) 的函数。

方法示例应用于

返回在 DDE 对话过程中将 Label、PictureBox 或 TextBox 控件的内容传送给发送端应用程序。语法

object。

object 所在处代表一个对象表达式，其值为“应用于”列表中的一个对象。说明

object 是包含在 DDE 对话中作为接收端的 Label、PictureBox 或 TextBox 的名称。如果 object 为一个Label,则将 Caption 属性的内容传输到源端。如果 object 为一个 PictureBox，则将 Picture 属性的内容传送给源端。如果 object 为一个 TextBox，则将 Text 属性的内容传送给源端。

典型情况下，一次 DDE 对话的信息从源端向接收端流动。但是，允许接收端对象给源端提供数据。并非所有的源应用程序都接受这种方法提供的数据,如果源应用程序不接受数据，则会有一个错误发生.

LinkPoke 方法示例

本示例建立一个 Microsoft Excel 的 DDE 链接,将一些值放置到一个新工作单的第一行的单元里,并按照这些值画图。LinkPoke 将画图需要的值发送到 Microsoft Excel 的工作单上。要检验此示例,计算机中必须装有 Microsoft Excel 而且要在 Autoexec。bat 文件的路径中声明。将本例代码粘贴到一个带缺省名 Text1 的 TextBox 控件的窗体的声明部分,然后按 F5 键并单击该窗体。 Private Sub Form_Click (）

Dim Cmd, I， Q， Row, Z ' 声明变量。 Q = Chr(34） ’ 定义引用标记.

’ 创建一个含有 Microsoft Excel 宏指令的字串.

Cmd = \"［ACTIVATE(” & Q ＆\"SHEET1\" ＆ Q & ”）]\"

Cmd = Cmd ＆ \"［SELECT(\" & Q & ”R1C1：R5C2\" ＆ Q & ”）］\" Cmd = Cmd & \"［NEW(2，1）]［ARRANGE。ALL（)]” If Text1。LinkMode = vbNone Then

Z = Shell(\"Excel\"， 4） ' 启动Microsoft Excel. Text1.LinkTopic = \"Excel|Sheet1\" ’ 设置连接主题。 Text1.LinkItem = ”R1C1” ’ 设置连接项目。

Text1。LinkMode = vbLinkManual ' 设置连接模式。 End If

For I = 1 To 5

Row = I ’ 定义行号。

Text1.LinkItem = ”R” ＆ Row ＆ ”C1” ’ 设置连接项目。 Text1。Text = Chr（ + I） ’ 将值放置在 Text 中。 Text1。LinkPoke ’ 将值放入单元。

Text1.LinkItem = \"R” & Row & \"C2” ’ 设置连接项目。 Text1。Text = Row ’ 将值放置在 Text 中。 Text1。LinkPoke ’ 将值放入单元。 Next I

Text1.LinkExecute Cmd ' 执行 Microsoft Excel 命令。 On Error Resume Next

MsgBox \"LinkPoke DDE demo with Microsoft Excel finished.”, End End Sub

应用于：

Label 控件

PictureBox 控件 TextBox 控件

相关基础知识：

发送端

当同时运行两个或多个支持动态数据交换 (DDE) 的程序时，发送信息或命令的应用程序、窗体或控件。

对象表达式

说明具体对象的表达式，可以包含对象的容器。例如,应用程序可以拥有 Application 对象，其中包含 Document 对象，而 Document 对象又包含 Text 对象。

接收端

在动态数据交换 (DDE) 的活动链接中，从发送端应用程序处请求数据的应用程序、窗体或控件。

方法

返回示例应用于

在一次 DDE 对话过程中将命令字符串发送给发送端应用程序。不支持命名参数。

语法 object。LinkExecute string LinkExecute 方法的语法包含下列部分: 部分描述必需的。一个对象表达式，其值为“应用于”列表中的一个对象。必需的.一个字符串表达式,它含有源应用程序所识别的命令。 object string 说明

string 的实际值根据源应用程序而改变。例如，Microsoft Excel 和 Microsoft Word for Windows 接受括在方括号（［］) 中宏命令所组成的命令字符串。要查看源应用程序所接受的命令字符串，请查阅该应用程序的文档。

LinkExecute 方法示例

本示例建立一个 Microsoft Excel 的 DDE 链接，将一些值放置到一个新工作单的第一行的单元里，并按照这些值画图。LinkExecute 向 Microsoft Excel 发送激活工作单的命令,选择一些值并按照它们画图。要检验此示例，计算机中必须装有 Microsoft Excel 而且要在 Autoexec。bat 文件的路径中声明.将本例代码粘贴到一个带缺省名 Text1 的 TextBox 控件的窗体的声明部分，然后按 F5 键并单击该窗体.

Private Sub Form_Click （）

Dim Cmd, I， Q， Row, Z ' 声明变量。 Q = Chr（34) ’ 定义引用标记。

' 创建一个含有 Microsoft Excel 宏指令的字串.

Cmd = ”［ACTIVATE(\" ＆ Q ＆”SHEET1\" ＆ Q ＆ ”)］\"

Cmd = Cmd & \"［SELECT（” ＆ Q & ”R1C1：R5C2” & Q & \"）］” Cmd = Cmd & \"[NEW（2,1）］[ARRANGE.ALL(）］\" If Text1。LinkMode = vbNone Then

Z = Shell(\"Excel\ Microsoft Excel。 Text1。LinkTopic = \"Excel|Sheet1\" ’ 设置连接主题。 Text1。LinkItem = \"R1C1\" ’ 设置连接项目.

Text1。LinkMode = vbLinkManual ’ 设置连接模式。 End If

For I = 1 To 5

Row = I ’ 定义行号.

Text1.LinkItem = ”R\" ＆ Row & ”C1” ’ 设置连接项目. Text1.Text = Chr( + I） ' 将值放置在 Text 中。 Text1.LinkPoke ' 将值放入单元。

Text1.LinkItem = ”R\" ＆ Row ＆ ”C2” ’ 设置连接项目。 Text1.Text = Row ' 将值放置在 Text 中。 Text1。LinkPoke ’ 将值放入单元。 Next I

On Error Resume Next

Text1。LinkExecute Cmd ’ 执行 Microsoft Excel 命令.

MsgBox ”LinkExecute DDE demo with Microsoft Excel finished。\ End End Sub

应用于：

Label 控件

PictureBox 控件 TextBox 控件

相关基础知识：

接收端

在动态数据交换（DDE）的活动链接中，从发送端应用程序处请求数据的应用程序、窗体或控件.

对象表达式

说明具体对象的表达式，可以包含对象的容器。例如，应用程序可以拥有 Application 对象，其中包含 Document 对象，而 Document 对象又包含 Text 对象。

发送端像素

当同时运行两个或多个支持动态数据交换 (DDE）的程序时，发送信息或命令的应用程序、窗体或控件.

即“图片元素”的简称，它是代表屏幕上的最小图形度量单位的点.像素是依赖于屏幕的，即屏幕元素的维数因显示系统和分辨率而异。

方法

示例应用于

在一次 DDE 对话中请求发送端应用程序更新 Label、PictureBox 或 TextBox 控件中的内容。语法

object。

object 所在处代表一个对象表达式,其值为“应用于”列表中的一个对象。说明

object 是包含在一次 DDE 对话中作为接收端的 Label、PictureBox 或 TextBox 的名称。

引起源应用程序将最当前的数据发送给 object，并且,如果 object 为 Label,则更新 Caption 属性设置,如果 object 为 PictureBox，则更新 Picture 属性设置，如果 object 为 TextBox，则更新 Text 属性设置。

如果 object 的 LinkMode 属性设置为自动( 1 或 vbLinkAutomatic),则源应用程序自动更新 object 而不需要。如果 object 的 LinkMode 属性设置为手工（2 或 vbLinkManual），则只有使用时源应用程序才更新 object。如果 object 的 LinkMode 属性设置为通知 Notify（ 3 或 vbLinkNotify),则源端通过调用 LinkNotify 事件通知接收端已更改数据。然后接收端必须使用更新数据。

LinkRequest 方法示例

本示例使用 LinkRequest 更新含有 Microsoft Excel 方法

返回应用于

描述

将一个指定的文件或文件夹从一个地方移动到另一个地方. 语法 object.Move destination Move 方法语法有如下几部分：部分描述必需的。始终是一个 File 或 Folder 对象的名字。 object destination 必需的。文件或文件夹要移动到的目标。不允许有通配符。说明

Move 方法对一个 File 或 Folder 的结果和执行 FileSystemObject。MoveFile 或

FileSystemObject.MoveFolder 操作的结果是一样的.但应当注意，后面的方法能够移动多个文件或文件夹。

应用于：

File 对象 Folder 对象

OLEDrag 方法

返回应用于

引起部件初始化 OLE 拖放操作. 语法

object.OLEDrag

object 所在处代表对象表达式,其值是“应用于”列表中的一个对象. 说明

当调用 OLEDrag 方法时，部件的 OLEStartDrag 事件发生，允许向目标部件提供数据。

应用于:

CheckBox 控件 ComboBox 控件

CommandButton 控件

Data 控件

DirListBox 控件 DriveListBox 控件 FileListBox 控件 Frame 控件 Image 控件 Label 控件 ListBox 控件 MDIForm 对象

OptionButton 控件 PictureBox 控件 PropertyPage 对象 TextBox 控件 UserControl 对象

相关基础知识:

对象表达式

说明具体对象的表达式，可以包含对象的容器.例如，应用程序可以拥有 Application 对象，其中包含 Document 对象，而 Document 对象又包含 Text 对象。

方法

返回应用于

用以在 Form， PictureBox 或 Printer 上绘制图形文件（。bmp、。wmf、.emf、。cur、。ico或 .dib)的内容。不支持命名参数。语法 object。PaintPicture picture, x1， y1, width1， height1, x2， y2, width2， height2， opcode PaintPicture 方法的语法包含下列部分: 部分描述可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，带有焦点的 Form 对象缺省为 object. 必需的.要绘制到 object 上的图形源。Form 或 PictureBox 必须是 Picture 属性。必需的。均为单精度值,指定在 object 上绘制 picture 的目标坐标（x-轴和y—轴）。object 的 ScaleMode 属性决定使用的度量单位。可选的。单精度值，指示 picture 的目标宽度。object 的 ScaleMode 属性决定使用的度量单位。如果目标宽度比源宽度（width2）大或小，将适当地拉伸或压缩 picture。如果该参数省略,则使用源宽度。可选的。单精度值，指示 picture 的目标高度。object 的 ScaleMode 属object Picture x1, y1 Width1 Height1 性决定使用的度量单位.如果目标高度比源高度（height2）大或小，将适当地拉伸或压缩 picture。如果该参数省略，则使用源高度. x2， y2

可选的.均为单精度值,指示 picture 内剪贴区的坐标(x—轴和y-轴）.object 的 ScaleMode 属性决定使用的度量单位。如果该参数省略,则缺省为 0返回示例应用于

按照长整数，返回在 Form 或 PictureBox 上所指定磅的红-绿—蓝（RGB) 颜色。不支持命名参数。语法 object.Point(x, y) Point 方法的语法包含下列部分：部分描述可选的。一个对象表达式,其值为“应用于”列表中的一个对象。如果省略 object,带有焦点的 Form 象缺省为 object。必需的。均为单精度值,指示 Form 或 PictureBox 的 ScaleMode 属性中该点的水平（x—轴）和垂直（y—轴）坐标.必须用括号包括这些值。 object x， y 说明

如果由 x 和 y 坐标所引用的点位于 object 之外，Point 方法将返回 -1.

Point 方法示例

本示例使用 Point 方法来确定一个窗体上的一个指定点的颜色。要检验此示例，可将本例代码粘贴到一个窗体的声明部分，然后按 F5 键并单击该窗体。 Private Sub Form_Click (）

Dim LeftColor， MidColor， Msg, RightColor ’ 声明变量. AutoRedraw = —1 ’ 打开AutoRedraw.

Height = 3 * 1440 ' 将高度设置为 3 英寸. Width = 5 * 1440 ’ 将宽度设置为 5 英寸。 BackColor = QBColor(1) ’ 将背景设置为蓝色。 ForeColor = QBColor（4） ' 将前景设置为红色。

Line （0， 0)—(Width / 3， Height），， BF ' 红框。 ForeColor = QBColor(15） ' 将前景设置为白色.

Line (Width / 3, 0)—（（Width / 3）＊ 2, Height), ， BF LeftColor = Point（0, 0） ' 查找左框颜色，，

MidColor = Point（Width / 2, Height / 2） ' 中框, 和 RightColor = Point（Width， Height) ' 右框。

Msg = \"The color number for the red box on the left side of \" Msg = Msg & \"the form is ” & LeftColor ＆ \"。 The ”

Msg = Msg & \"color of the white box in the center is \" Msg = Msg & MidColor & ”。 The color of the blue \"

Msg = Msg ＆ ”box on the right is ” & RightColor & ”。” MsgBox Msg ’ 显示信息。 End Sub

应用于:

Form 对象、Forms 集合 PictureBox 控件 PropertyPage 对象 UserControl 对象

相关基础知识：

磅

在印刷术语中，一磅是 1/72 英寸.字体大小通常用磅来表达。

命名参数

一参数,在对象库中预先定义了其名称。对每个参数，不必拘泥于语法所规定的特定顺序来提供值,而是只需按任何顺序用命名参数分配值。例如，假设一方法接受了三个参数： DoSomeThing namedarg1， namedarg2， namedarg3 在对命名参数赋值时，可使用以下语句：

DoSomeThing namedarg3 ：= 4， namedarg2 ：= 5, namedarg1 := 20 注意,命名的参数不必按语法中安排的正规顺序出现。

对象表达式

说明具体对象的表达式,可以包含对象的容器。例如，应用程序可以拥有 Application 对象，其中包含 Document 对象，而 Document 对象又包含 Text 对象。

焦点

在任何时间接收鼠标单击或键盘输入的能力。在 Microsoft Windows 环境中，在同一时间只有一个窗口、窗体或控件具有这种能力.“具有焦点\"的对象通常会以突出显示标题或标题栏来表示。用户或应用程序可设置焦点.

方法

返回示例应用于

将对象上的点设置为指定颜色. 语法

object.PSet [Step］（x， y）, [color］ PSet 方法的语法有如下对象限定符和部分：

部分描述可选的。对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。可选的。关键字，指定相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置的坐标。必需的. Single （单精度浮点数）,被设置点的水平（ x 轴）和垂直（ y 轴）坐标。可选的。Long (长整型数），为该点指定的 RGB 颜色.如果它被省略，则使用当前的 ForeColor 属性值.可用 RGB 函数或 QBColor 函数指定颜色. object Step （x， y) color 说明

所画点的尺寸取决于 DrawWidth 属性值.当 DrawWidth 为 1，PSet 将一个像素的点设置为指定颜色.当 DrawWidth 大于 1，则点的中心位于指定坐标。画点的方法取决于 DrawMode 和 DrawStyle 属性值。

执行 PSet 时，CurrentX 和 CurrentY 属性被设置为参数指定的点。

想用 PSet 方法清除单一像素，规定该像素的坐标,并用 BackColor 属性设置作为 color 参数。这个方法不能用在 With匛nd With 语句块中。

PSet 方法示例

这个示例用 PSet 方法在窗体上画五彩碎纸。想运行这个示例，将代码放入窗体的General 部分。按 F5 并单击窗体。 Sub Form_Click （）

Dim CX, CY, Msg, XPos, YPos ' Declare variables. ScaleMode

RemoveItem 方法

返回示例?/a> 应用于

用以从 ListBox 或 ComboBox 控件中删除一项，或从 MS Flex Grid 控件中删除一行。不支持命名参数. 语法 object.RemoveItem index RemoveItem 方法的语法包含下列部分: 部分描述必需的。一个对象表达式，其值为“应用于”列表中的一个对象。必需的。一个整数，它表示要删除的项或行在对象中的位置.对于 ListBox object index 或 ComboBox 中的首项或 MS Flex Grid 控件中的首行，index = 0。说明

被绑定到 Data 控件的 ListBox 或 ComboBox 不支持 RemoveItem 方法.

RemoveItem 方法示例

本示例使用 Removeltem 方法将一个列表框中的输入项删除。要检验此示例，可将本例代码粘贴到一个带有名为 List1 的一个 ListBox 控件的窗体的声明部分，然后按 F5 键并单击该窗体. Private Sub Form_Click （)

Dim Entry， I， Msg ’ 声明变量。

Msg = \"Choose OK to add 100 items to your list box。\" MsgBox Msg ’ 显示信息。

For I = 1 To 100 ' 计数值从 1 到 100。 Entry = ”Entry \" ＆ I ’ 创建输入项。 List1。AddItem Entry ' 添加该输入项。 Next I

Msg = ”Choose OK to remove every other entry.\" MsgBox Msg ’ 显示信息。 For I = 1 To 50 ' 确定如何

List1。RemoveItem I ’ 每隔一项 Next I ' 删除。

Msg = ”Choose OK to remove all items from the list box。” MsgBox Msg ’ 显示信息. List1。Clear ’ 清除列表框. End Sub

应用于：

ComboBox 控件 ListBox 控件

相关基础知识:

命名参数

一参数，在对象库中预先定义了其名称.对每个参数，不必拘泥于语法所规定的特定顺序来提供值,而是只需按任何顺序用命名参数分配值。例如,假设一方法接受了三个参数： DoSomeThing namedarg1， namedarg2， namedarg3 在对命名参数赋值时，可使用以下语句:

DoSomeThing namedarg3 := 4， namedarg2 ：= 5, namedarg1 ：= 20 注意，命名的参数不必按语法中安排的正规顺序出现。

对象表达式

说明具体对象的表达式,可以包含对象的容器。例如，应用程序可以拥有 Application 对象,其中包含 Document 对象,而 Document 对象又包含 Text 对象。

方法

返回示例应用于

用以定义 Form、PictureBox 或 Printer 的坐标系统。不支持命名参数。语法 object。Scale （x1， y1) - （x2, y2) Scale 方法的语法包含下列部分: 部分描述可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则带有焦点的 Form 对象缺省为 object。可选的。均为单精度值，指示定义 object 左上角的水平(x—轴）和垂直（y-轴）坐标。这些值必须用括号括起。如果省略，则第二组坐标也必须省略。可选的。均为单精度值，指示定义 object 右下角的水平和垂直坐标.这些值必须用括号括起。如果省略,则第一组坐标也必须省略. object x1， y1 x2， y2 说明

Scale 方法使您能够将坐标系统重置到所选择的任意刻度。Scale 对运行时的图形语句以及控件位置的坐标系统都有影响。

如果使用不带参数的 Scale（两组坐标都省略），坐标系统将重置s为缇.

Scale 方法示例

本示例使用 Move 方法设立一个自定义座标系统，使得一个条形图可以在窗体上画出。要检验此示例，可将本例代码粘贴到一个窗体的声明部分，然后按 F5 键并单击该窗体. Private Sub Form_Click （）

Dim I， OldFontSize ’ 声明变量。

Width = 80： Height = 5760 ’ 按缇设置窗体大小. Move 100,100 ' 移动窗体起点。

AutoRedraw = —1 ' 打开AutoRedraw。

OldFontSize = FontSize ' 保持旧的字体大小。 BackColor = QBColor(7) ’ 将背景设置为灰色.

Scale (0， 110)-（130， 0） ' 设定自定义座标系统。 For I = 100 To 10 Step —10

Line （0， I)-（2， I) ' 每隔 10 个单位划尺寸标记. CurrentY = CurrentY + 1.5 ’ 移动光标位置。 Print I ' Print scale mark value on left。 Line （ScaleWidth — 2, I）—（ScaleWidth, I） CurrentY = CurrentY + 1。5 ’ 移动光标位置. CurrentX = ScaleWidth — 9

Print I ' 将尺寸标记值打印在右边. Next I

' 画条形图。

Line (10， 0）—（20， 45）， RGB(0， 0， 255)， BF ’ 第一个蓝色条。 Line (20， 0)—(30， 55）， RGB（255, 0, 0), BF ’ 第一个红色条。 Line （40， 0)—(50, 40), RGB(0, 0， 255）， BF Line （50, 0)-（60， 25), RGB(255, 0， 0), BF

Line (70， 0）-(80, 35）， RGB（0， 0， 255)， BF Line (80, 0）-（90， 60), RGB(255, 0， 0）, BF Line (100, 0）-(110, 75）, RGB（0, 0, 255）, BF Line （110, 0)-(120, 90)， RGB（255, 0， 0）, BF CurrentX = 18: CurrentY = 100 ’ 移动光标位置。 FontSize = 14 ’ 放大标题尺寸。

Print \"Widget Quarterly Sales\" ’ 打印标题。 FontSize = OldFontSize ’ 还原字体大小。

CurrentX = 27: CurrentY = 93 ’ 移动光标位置。 Print \"Planned Vs. Actual” ' 打印子标题。

Line （29, 86）—（34， 88）, RGB(0, 0, 255）， BF ’ 打印图例。 Line (43， 86)-（49, 88)， RGB（255， 0, 0）, BF End Sub

应用于：

ComboBox 控件 ListBox 控件

相关基础知识：

命名参数

一参数，在对象库中预先定义了其名称。对每个参数，不必拘泥于语法所规定的特定顺序来提供值，而是只需按任何顺序用命名参数分配值。例如,假设一方法接受了三个参数： DoSomeThing namedarg1， namedarg2, namedarg3 在对命名参数赋值时,可使用以下语句:

DoSomeThing namedarg3 := 4, namedarg2 := 5， namedarg1 := 20 注意,命名的参数不必按语法中安排的正规顺序出现。

对象表达式

说明具体对象的表达式，可以包含对象的容器.例如，应用程序可以拥有 Application 对象，其中包含 Document 对象，而 Document 对象又包含 Text 对象。

焦点

运行时

代码正在运行的时期。在运行时,不可编辑过程码。缇

一个与屏幕无关的单位，用来保证屏幕应用程序对屏幕元素的定位和比例在所有的显示系统上的一致性.一缇等价于 1/20 个打印机的磅。一逻辑英寸大约有 1440 缇，一逻辑厘米约 567 缇（打印时的一英寸或一厘米所对应的屏幕上的长度)。

方法

返回应用于

用以将 Form,PictureBox 或 Printer 的宽度或高度值从一种 ScaleMode 属性的度量单位转换到另一种.不支持命名参数。语法 object.ScaleX （width， fromscale， toscale) object.ScaleY (height， fromscale， toscale) ScaleX 和 ScaleY 方法的语法包含如下部分：部分描述可选的。一个对象表达式，其值为“应用于”列表中的一个对象.如果省略 object，则带有焦点的 Form 对象缺省为 object。必需的.为 object 指定被转换的度量单位的数量。必需的.为 object 指定被转换的度量单位的数量。可选的.一个常数或数值，按照下列设置中的描述，指定 object 的 width 或 height 从哪一种坐标系统转换。fromscale 可取的数值与 ScaleMode 属性的数值加上 HiMetric 的新数值相同。可选的。一个常数或数值，按照下列“设置值\"中的描述，指定 object 的 width 或 height 转换到哪一种坐标系统。toscale 可取的数值与 ScaleMode 属性的数值加上 HiMetric 的新数值相同。 object width height fromscale toscale 设置值

用于 fromscale 和 toscale 设置值有：常数 vbUser vbTwips vbPoints vbPixels vbCharacters vbInches vbMillimeters vbCentimeters vbHimetric 值 0 1 2 3 4 5 6 7 8 描述用户定义：指示 object 的宽度和高度设置为自定义值. 缇（每逻辑英寸 1440 缇;每逻辑厘米 567 缇）。磅（每逻辑英寸 72 点）。像素 (显示器或打印机分辨率的最小单位）。字符（水平 = 每单位 120 缇，垂直 = 每单位 240 缇）. 英寸毫米厘米 HiMetric。如果省略 fromscale，则 HiMetric 为缺省值。 vbContainerPosition vbContainerSize 9 10 决定控件位置。决定控件大小. 说明

ScaleX 和 ScaleY 方法按 fromscale 指定的度量单位取值（width 或 height）,并将它转换为 toscale 指定的度量单位下相应的值。

也可以结合 PaintPicture 方法使用 ScaleX 和 ScaleY。

应用于：

Form 对象、Forms 集合 PictureBox 控件 PropertyPage 对象 UserControl 对象

相关基础知识：

命名参数

一参数，在对象库中预先定义了其名称.对每个参数，不必拘泥于语法所规定的特定顺序来提供值，而是只需按任何顺序用命名参数分配值.例如,假设一方法接受了三个参数： DoSomeThing namedarg1, namedarg2， namedarg3 在对命名参数赋值时，可使用以下语句:

DoSomeThing namedarg3 := 4， namedarg2 ：= 5， namedarg1 := 20 注意，命名的参数不必按语法中安排的正规顺序出现。

对象表达式

说明具体对象的表达式，可以包含对象的容器。例如，应用程序可以拥有 Application 对象，其中包含 Document 对象,而 Document 对象又包含 Text 对象。

焦点

在任何时间接收鼠标单击或键盘输入的能力。在 Microsoft Windows 环境中，在同一时间只有一个窗口、窗体或控件具有这种能力。“具有焦点”的对象通常会以突出显示标题或标题栏来表示.用户或应用程序可设置焦点。

缇

一个与屏幕无关的单位，用来保证屏幕应用程序对屏幕元素的定位和比例在所有的显示系统上的一致性。一缇等价于 1/20 个打印机的磅.一逻辑英寸大约有 1440 缇，一逻辑厘米约 567 缇(打印时的一英寸或一厘米所对应的屏幕上的长度）。

磅

在印刷术语中,一磅是 1/72 英寸。字体大小通常用磅来表达。

像素

即“图片元素”的简称，它是代表屏幕上的最小图形度量单位的点。像素是依赖于屏幕的,即屏幕元素的维数因显示系统和分辨率而异。

方法

返回应用于

将焦点移至指定的控件或窗体. 语法

object.

object 所在处代表对象表达式，其值是“应用于\"列表中的一个对象。说明

对象必须是 Form 对象、MDIForm 对象或者能够接收焦点的控件。调用方法以后，任何的用户输入将指向指定的窗体或控件。

焦点只能移到可视的窗体或控件。因为在窗体的 Load 事件完成前窗体或窗体上的控件是不可视的，所以如果不是在 Form_Load 事件过程完成之前首先使用 Show 方法显示窗体的话，是不能使用方法将焦点移至正在自己的 Load 事件中加载的窗体的。

也不能把焦点移到 Enabled 属性被设置为 False 的窗体或控件。如果已在设计时将 Enabled 属性设置为 False，必须在使用方法使其接收焦点前将 Enabled 属性设置为 True.

应用于:

ComboBox 控件

CommandButton 控件 DirListBox 控件 DriveListBox 控件 FileListBox 控件

Form 对象、Forms 集合

HScrollBar、VScrollBar 控件 ListBox 控件 MDIForm 对象 OLE 容器控件

OptionButton 控件 PictureBox 控件 PropertyPage 对象 TextBox 控件 UserControl 对象

相关基础知识：

焦点

在任何时间接收鼠标单击或键盘输入的能力。在 Microsoft Windows 环境中，在同一时间只有一个窗口、窗体或控件具有这种能力。“具有焦点”的对象通常会以突出显示标题或标题栏来表示。用户或应用程序可设置焦点。

对象表达式

说明具体对象的表达式，可以包含对象的容器.例如,应用程序可以拥有 Application 对象，其中包含 Document 对象，而 Document 对象又包含 Text 对象。

设计时

开发环境中编译应用程序的时期，此时，添加控件、设置控件或窗体属性等。而在运行时，则像用户一样与应用程序交互作用。

ShowWhatsThis 方法

返回示例应用于

显示 Windows 95 Help 所提供的“这是什么\"弹出式窗口使用的 Help 文件中选定的一个主题. 语法

object。ShowWhatsThis

object 所在处代表一个对象表达式，其值是“应用于\"列表中的一个对象。说明

ShowWhatsThis 方法对于从应用程序上下文菜单中提供上下文敏感 Help非常有用。该方法显示语法中指定对象的 WhatsThisHelpID 属性所标识的主题。

ShowWhatsThis 方法示例

该例子显示通过在为该按钮创建的上下文菜单中选取一个菜单命令的某个 CommandButton 控件的“这是什么\"的 Help 主题.

设置窗体的 WhatsThisHelp 属性为 True。将 CommandButton 控件放在窗体上，用“菜单编辑器”创建一个菜单,使它具有顶层不可见的项 mnuBtnContextMenu 和子菜单 mnuBtnWhatsThis,子菜单标题为“这是什么？”

Private ThisControl As ControlPrivate Sub Command1_MouseUp（Button As Integer, Shift As Integer， X As Single, Y As Single) If Button = vbRightButton Then Set ThisControl = Command1 PopupMenu mnuBtnContextMenu End If

Set ThisControl = Nothing

End SubPrivate Sub mnuBtnWhatsThis_Click(） ThisControl。ShowWhatsThis End Sub

应用于：

CheckBox 控件 ComboBox 控件

CommandButton 控件 Data 控件

DirListBox 控件 DriveListBox 控件

FileListBox 控件 Frame 控件

HScrollBar、VScrollBar 控件 Image 控件 Label 控件 ListBox 控件 OLE 容器控件

OptionButton 控件 PictureBox 控件 TextBox 控件

相关基础知识：

对象表达式

说明具体对象的表达式，可以包含对象的容器。例如,应用程序可以拥有 Application 对象,其中包含 Document 对象，而 Document 对象又包含 Text 对象.

方法

返回示例应用于

用以返回按 Form、PictureBox 或 Printer 的当前字体将被打印的文本字符串的高度。不支持命名参数。语法 object。TextHeight(string） TextHeight 方法的语法包含下列部分：部分描述可选的。一个对象表达式，其值为“应用于”列表中的一个对象.如果省略 object，则带有焦点的 Form 对象缺省为 object。必需的。一个字符串表达式，它用以计算确定其高度的字符串。必须用括号包括该字符串表达式。 object String 说明

字符串高度是以对 object 有效的 ScaleMode 属性设置或通过 Scale 方法的坐标系统来表示的。使用 TextHeight 可以确定文本显示需要的垂直空间高度。返回的高度包括文本上下的正常前导空间，因此，可以使用该高度来计算和定位 object 内的多行文本.

如果 string 含有嵌入的回车返回符,TextHeight 将返回各行的累加高度，包括每行上下的前导空间。

TextHeight 方法示例

b>TextHeight 方法被用来在一个窗体上使正文行垂直居中.要检验此示例，可将本例代码粘贴到一个窗体的声明部分,然后按 F5 键并单击该窗体。 Private Sub Form_Click （）

Dim HalfWidth, HalfHeight， Msg ’ 声明变量。 AutoRedraw = -1 ' 打开AutoRedraw。

BackColor = QBColor(4) ' 设置背景颜色。 ForeColor = QBColor(15) ' 设置前景颜色。 Msg = \"Visual Basic\" ' 创建信息。 FontSize = 48 ’ 设置字体大小。

HalfWidth = TextWidth(Msg） / 2 ' 计算半宽。 HalfHeight = TextHeight（Msg） / 2 ’ 计算半高。 CurrentX = ScaleWidth / 2 - HalfWidth ’ 设置X。 CurrentY = ScaleHeight / 2 - HalfHeight ’ 设置Y。 Print Msg ’ 打印信息. End Sub

方法

返回示例应用于

用以返回按 Form、PictureBox 或 Printer 的当前字体将被打印的文本字符串的高度。不支持命名参数. 语法 object.TextHeight（string） TextHeight 方法的语法包含下列部分：部分描述可选的。一个对象表达式，其值为“应用于\"列表中的一个对象。如果省略 object，则带有焦点的 Form 对象缺省为 object。必需的。一个字符串表达式,它用以计算确定其高度的字符串。必须用括号包括该字符串表达式. object String 说明

字符串高度是以对 object 有效的 ScaleMode 属性设置或通过 Scale 方法的坐标系统来表示的.使用 TextHeight 可以确定文本显示需要的垂直空间高度。返回的高度包括文本上下的正常前导空间，因此，可以使用该高度来计算和定位 object 内的多行文本。

如果 string 含有嵌入的回车返回符，TextHeight 将返回各行的累加高度，包括每行上下的前导空间。

TextHeight 方法示例

b〉TextHeight 方法被用来在一个窗体上使正文行垂直居中。要检验此示例,可将本例代码粘贴到一个窗体的声明部分,然后按 F5 键并单击该窗体。 Private Sub Form_Click （)

Dim HalfWidth， HalfHeight， Msg ’ 声明变量。 AutoRedraw = -1 ’ 打开AutoRedraw.

BackColor = QBColor（4) ’ 设置背景颜色. ForeColor = QBColor（15） ' 设置前景颜色.

Msg = ”Visual Basic\" ’ 创建信息。 FontSize = 48 ' 设置字体大小。

HalfWidth = TextWidth(Msg) / 2 ' 计算半宽. HalfHeight = TextHeight（Msg) / 2 ' 计算半高. CurrentX = ScaleWidth / 2 - HalfWidth ' 设置X。 CurrentY = ScaleHeight / 2 — HalfHeight ' 设置Y。 Print Msg ’ 打印信息。 End Sub

方法

返回应用于

从一个 Data 控件的 Recordset 对象中取得当前记录，并且在连结某个 Data 控件的控件中显示适当的数据。不支持已命名参数。语法

object。

object 所在处代表对象表达式，其值是“应用于”列表中的对象。说明

用这种方法将被连结控件的内容恢复为其原始值，等效于用户更改了数据之后决定取消更改。这种方法等效于使当前记录又成为当前记录，除非无事件发生。方法终止任何挂起的 Edit 或 AddNew 操作。

应用于：

Data 控件

相关基础知识：

当前记录

在 Recordset 对象中能修改或检查数据的那个记录。使用 Move 方法可以在记录集中使当前记录重定位。使用 Find 方法或者 Seek 方法按照某一特定标准可以改变当前记录的位置。

在 Recordset 中可以没有当前记录，但 Recordset 最多只能有一个当前记录.例如，当一个 dynaset 类型的 Recordset 记录被删除后,或者当 Recordset 中没有记录时，当前记录就没有定义.在这种情况下，涉及当前记录的任何操作都会产生一个可以捕获的错误。

对象表达式

说明具体对象的表达式，可以包含对象的容器。例如，应用程序可以拥有 Application 对象，其中包含 Document 对象,而 Document 对象又包含 Text 对象.

方法

返回应用于

保存被连结控件的当前值.不支持已命名的参数。语法

object。

Object 所在处代表对象表达式，其值是“应用于”列表中的对象。说明

用这种方法在 Validate 事件期间将被连结的控件的当前内容保存到数据库中而不再次触发 Validate 事件。使用这种方法可避免创建一个层叠事件.

方法与执行 Edit 方法改变一个字段并随后执行 Update 方法产生同样效果，除非无事件发生。

可用这种方法以避免触发 Validate 事件。

不论何时想更新数据库中某条记录，所有有效性检查规则在记录被写到数据库之前都必须得到满足。这些规则可通过设置 ValidationRule 属性来建立；或者，在 Microsoft SQL Server 中,通过处理 SQL 的缺省、规则和编写的一些触发器以保证引用和数据的完整性来建立。

某些情况下，因为该操作违反了引用完整性的约束条件，包含记录的页被锁定数据库或 Recordset 对象不能更新或用户没有执行操作的许可权可能不发生更新.这些条件中任何一条都将产生一个可以捕获的错误。

应用于：

Data 控件

相关基础知识：

对象表达式

说明具体对象的表达式，可以包含对象的容器.例如,应用程序可以拥有 Application 对象，其中包含 Document 对象,而 Document 对象又包含 Text 对象。

层叠事件

由事件过程直接或间接调用它自身所引起的一系列事件,也称为事件的层叠或递归.层叠事件过程经常引起运行时错误的结果,例如堆栈溢出。

方法

返回应用于

将指定的 MDIForm，Form 或控件放置在其图层的z—顺序的前端或后端.不支持命名参数。语法

object. position

方法的语法包含下列部分：

部分描述可选的.一个对象表达式,其值为“应用于\"列表中的一个对象。如果省略 object，则具有焦点的 Form 对象缺省为 object。可选的。一个整数,它用以指示 object 相对于同一 object 其它实例的位置.如果 position 为 0 或被省略，则 object 定位在Z-顺序前面.如果 position 为 1,则 object 定位在Z—顺序后面。 object Position 说明

在设计时选择“编辑”菜单中的“置前\"或“置后”菜单命令，可以设置对象的Z-顺序。

在 MDIForm 对象内，Zorder 根据 position 的数值决定将 MDI子窗体放置到 MDI 客户区的前面或后面。对于 MDIForm 或 Form 对象，Zorder 根据 position 的数值决定将窗体放置到屏幕的前面或后面。因此，窗体可以显示在其它运行中的应用程序的前面或后面。

有三个图层与窗体和容器相关联。后层是显示图形方法结果的绘图空间。下一个是中层,用来显示图形对象和 Label 控件。前层显示所有非图形控件，如 CommandButton、CheckBox 或 ListBox。靠近前层的层中包含的东西将覆盖该层后面的各层包含的东西。Zorder 只对该对象在其中显示的那一层内的各个对象进行重排.

应用于：

CheckBox 控件 ComboBox 控件

CommandButton 控件 Data 控件

DirListBox 控件 DriveListBox 控件 FileListBox 控件

Form 对象、Forms 集合 Frame 控件

HScrollBar、VScrollBar 控件 Image 控件 Label 控件 Line 控件 ListBox 控件 MDIForm 对象 OLE 容器控件

OptionButton 控件 PictureBox 控件 Shape 控件 TextBox 控件

相关基础知识：

命名参数

一参数，在对象库中预先定义了其名称。对每个参数，不必拘泥于语法所规定的特定顺序来提供值，而是只需按任何顺序用命名参数分配值。例如，假设一方法接受了三个参数： DoSomeThing namedarg1, namedarg2, namedarg3 在对命名参数赋值时，可使用以下语句：

DoSomeThing namedarg3 := 4， namedarg2 ：= 5， namedarg1 ：= 20 注意，命名的参数不必按语法中安排的正规顺序出现.

对象表达式

说明具体对象的表达式,可以包含对象的容器.例如,应用程序可以拥有 Application 对象，其中包含 Document 对象，而 Document 对象又包含 Text 对象。

在任何时间接收鼠标单击或键盘输入的能力.在 Microsoft Windows 环境中,在同一时间只有一个窗口、窗体或控件具有这种能力。“具有”的对象通常会以突出显示标题或标题栏来表示.用户或应用程序可设置。

这一期间是指在开发环境中，通过增加控件、设置控件或窗体属性等方式建造一个应用程序。相反，在运行时，程序员像用户那样与应用程序进行人机交互。

指多文档界面（）应用程序中包含在窗体中的一个窗体。为了创建一个，应将其 MDIChild 属性值置为 True。

指可以包含其它对象的对象.

因篇幅问题不能全部显示，请点此查看更多更全内容

查看全文