ActiveForm 属性
返回 返回活动窗口的窗体。如果 MDIForm 对象是活动的或者是被引用的，则所指定的是活动的 MDI 子窗体。 语法
object.ActiveForm
object 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。 说明
为了访问窗体的属性或者调用其方法需使用 ActiveForm 属性－例如，Screen.ActiveForm.MousePointer = 4.
这个属性在多文档接口 (MDI) 应用程序中尤其有用，其中，工具条上的一个按钮必须初始化为 MDI 子窗体中控件的一个动作。当用户单击工具条上的“复制”按钮时，代码可以引用 MDI 子窗体上的活动控件中的文本－例如，ActiveForm.ActiveControl.SelText.
当窗体上的控件拥有焦点时，该窗体就是屏幕上的活动窗体 (Screen.ActiveForm)。 另外，一个 MDIForm 对象能够包含一个在 MDI 父窗体 (MDIForm.ActiveForm) 的上下文中是活动窗体的子窗体。屏幕上的 ActiveForm 不必与 MDI 窗体中的 ActiveForm 一致，比如当对话框为活动时。由于这个原因，当对话框有机会成为 ActiveForm 的属性设置时，用 ActiveForm 指定 MDIForm。 注意 当一个活动的 MDI 子窗体没有被最大化时，父窗体和子窗体的标题栏都显示为活动的。 如果打算将 Screen.ActiveForm 或 MDIForm.ActiveForm 传递给一个过程，必须用类属的类型 (As Form) 而不是具体的窗体类型 (As MyForm) 来声明那个过程中的参数，即使 ActiveForm 总是引用相同类型的窗体。
ActiveForm 属性为 ProjectTemplate 对象确定缺省值。
ActiveForm 属性示例
该例子在 MDIForm 对象中的活动子窗体上打印时间。要试用此例，先创建一个 MDIForm，然后在其上添加一个 PictureBox 控件并在 PictureBox 控件中添加一个 CommandButton 控件。在 Form1 中，把 MDIChild 属性设置为 True。（你也可以把 AutoRedraw 设置为 True，这样即使在别的窗体覆盖了它后，仍可在窗体上保持文本。）将相应的代码粘贴到每个窗体的声明部分，然后按下 F5 键。 '将所有的代码复制到 MDI 窗体中。 Private Sub MDIForm_Load ()
Dim NewForm As New Form1 '创建 Form1 的新实例。 NewForm.Show
End SubPrivate Sub Command1_Click () '在活动窗体上打印时间。
ActiveForm.Print \End Sub
这个例子显示了如何使用工具栏上的按钮在实现剪切、复制、粘贴和删除操作中，利用 Clipboard 对象。要试用此例，先创建一个新的工程，在 Form1 上放置 TextBox 和 CheckBox 控件，然后创建一个新的 MDI 窗体。在 MDI 窗体上，放置一个 PictureBox 控件，然后在 PictureBox 中插入一个
CommandButton 控件。将 CommandButton 的 Index 属性设为 0（创建一个控件数组）。将 Form1 的 MDIChild 属性设为 True。
要运行该例子，将该代码复制到 MDIForm 的声明部分，然后按下 F5 键。注意，当 CheckBox 拥有焦点时，按钮将不工作，因为 CheckBox 现在代替了 TextBox 而成为活动控件。 Private Sub MDIForm_Load () Dim I '声明变量。
Command1(0).Move 0, 0, 700, 300 '在工具栏上定位按钮。 For I = 1 To 3 '创建别的按钮。 Load Command1(I) '创建按钮。
Command1(I).Move I * 700, 0, 700, 300 '放置并调整按钮的尺寸。 Command1(I).Visible = True '显示按钮。 Next I
Command1(0).Caption = \设置按钮标题。 Command1(1).Caption = \ Command1(2).Caption = \ Command1(3).Caption = \
End SubPrivate Sub Command1_Click (Index As Integer) 'ActiveForm 指的是 MDI 窗体中的活动窗体。
If TypeOf ActiveForm.ActiveControl Is TextBox Then Select Case Index Case 0 '剪切。
'复制选中的文本到剪贴板。
Clipboard.SetText ActiveForm.ActiveControl.SelText '删除选中的文本。
ActiveForm.ActiveControl.SelText = \ Case 1 '复制。
'复制选中的文本到剪贴板。
Clipboard.SetText ActiveForm.ActiveControl.SelText Case 2 '粘贴。
'将剪贴板上的文本放到文本框中。
ActiveForm.ActiveControl.SelText = Clipboard.GetText() ActiveWindow 属性 返回 牋牋牋牋?/p> 返回开发环境中活动的窗口，此属性为只读。 说明 当开发环境中有一个以上的窗口被打开时，ActiveWindow 属性的设置值是拥有焦点的那个窗口。如果拥有焦点的是主窗口，则 ActiveWindow 属性返回 Nothing。 ActiveWindow 属性示例 下列示例使用 ActiveWindow 属性来返回当前活动窗口的标题。 Debug.Print Application.VBE.ActiveWindow.Caption 应用于： VBE 对象 相关基础知识： 开发环境 编写代码、创建控件、设置控件与窗体属性等功能的应用程序。这与运行应用程序相对。 焦点 在任何时间接收鼠标单击或键盘输入的能力。在 Microsoft Windows 环境中，在同一时间只有一个窗口、窗体或控件具有这种能力。“具有焦点”的对象通常会以突出显示标题或标题栏来表示。用户或应用程序可设置焦点。 Align 属性 返回 返回或设置一个值，确定对象是否可在窗体上以任意大小、在任意位置上显示，或是显示在窗体的顶端、底端、左边或右边，而且自动改变大小以适合窗体的宽度。 语法 object.Align [= number] Align 属性语法包含下面部分: 部分 Object Number 描述 对象表达式，其值是“应用于”列表中的一个对象。 整数值，用来确定如何显示对象，“设置值”中有详细描述。 设置值 ?span class=\number 的设置值如下： 常数 VbAlignNone 设置值 0 描述 （非 MDI 窗体的缺省值）无 － 可以在设计时或在程序中确定大小和位置。 如果对象在 MDI 窗体上，则忽略该设置值。 （MDI 窗体的缺省值）顶部－ 对象显示在窗体的顶部，其宽度等于窗体的 ScaleWidth 属性设置值。 底部－ 对象显示在窗体的底部，其宽度等于窗体的 ScaleWidth 属性设置值。 左边－ 对象在窗体的左面，其宽度等于窗体的 ScaleWidth 属性设置值。 右边－ 对象在窗体的右面，其宽度为窗体的 ScaleWidth 属性设置值。 VbAlignTop 1 VbAlignBottom 2 VbAlignLeft 3 VbAlignRight 4 说明 用 Align 属性可以很快地在窗体的顶部或底部创建工具栏或状态栏。当用户改变窗体的大小时，Align 值设置为 1 或 2 的对象，会自动地改变大小以适合窗体的宽度。 燩ictureBox 和 Data 控件是唯一能放在 MDI 窗体上的标准控件。MDI 窗体的内部区域定义为没有被控件覆盖的空间。当 MDI 子窗体在 MDI 父窗体中最大化时，它不会覆盖任何控件。 number 设置值 3 和 4 可以用来将工具栏对齐于窗体或 MDI 窗体的左边和右边。如果在 MDI 窗体的一个角上有两个工具栏，上或下对齐会优先占满整个角，而不用左右对齐。就象上下对齐的对象一样，左右对齐的对象占据 MDI 窗体的内部区域。 Align 属性示例 这个例子是在 MDIForm 对象中把 PictureBox 控件作为工具栏，利用 CommandButton 控件把 PictureBox 从窗体的顶部移动到底部。要试用此例，先创建一个新的 MDIForm，并设置 Form1 的 MDIChild 属性为 True。在 MDIForm 中画一个 PictureBox，并在 PictureBox 中放一个 CommandButton。把代码粘贴到 MDIForm 的声明部分，然后按下 F5 键。单击 CommandButton 移动 PictureBox。 Private Sub Command1_Click () If Picture1.Align = vbAlignTop Then Picture1.Align = vbAlignBottom ' Align to bottom of form. Else Picture1.Align = vbAlignTop ' Align to top of form. End If End Sub 应用于： ADO Data 控件 CoolBar 控件 Data 控件 Extender 对象 PictureBox 控件 ProgressBar 控件 RemoteData 控件 StatusBar 控件