适用于 Visual Basic 6.0 用户的 Screen 对象

nxhujiee 2010-04-16

展开全文

Visual Basic 6.0 的 Screen 对象在 Visual Basic 2005 中没有直接等效项，但是可以使用 .NET Framework 来重复它的大部分功能。

概念差异

在 Visual Basic 6.0 中，Screen 对象提供对应用程序中的活动窗体和控件的访问，提供有关正在显示应用程序的屏幕的信息，并且允许控制光标的外观。

在 Visual Basic 2005 中，没有对应于 Screen 对象的直接等效项，但是可以使用 .NET Framework 来重复它的大部分功能。

注意
Visual Basic 2005 具有一个 Screen 属性 -- My.Computer.Screen。与 Visual Basic 6.0 Screen 对象不同，My.Computer.Screen 仅返回有关屏幕的只读信息，如它的设备名称、工作区和颜色深度。有关更多信息，请参见 My.Computer.Screen 属性

ActiveControl 属性

在 Visual Basic 6.0 中，Screen 对象的 ActiveControl 属性用于确定拥有焦点的控件。ActiveControl 属性可用于全局功能中，例如，用于 Screen.ActiveControl 中，此时将返回当前选定窗体上的活动控件。如果引用了特定窗体（例如，Form2.ActiveControl），则 ActiveControl 在引用窗体为活动时指定将拥有焦点的控件。

在 Visual Basic 2005 中，不再有全局的 ActiveControl 属性；窗体的每一个实例都具有它自己的 ActiveControl 属性。当引用特定的窗体时，该属性的工作方式与它在 Visual Basic 6.0 中的完全相同。若要确定当前选定窗体上的活动控件，必须先循环访问 OpenForms 集合并检查 ContainsFocus 属性，确定哪一个窗体是活动的。

ActiveForm 属性

在 Visual Basic 6.0 中，Screen 对象的 ActiveForm 属性用于确定当前哪一个窗体拥有焦点。如果 MDI 父窗体拥有焦点，则 ActiveForm 返回最近一次拥有焦点的 MDI 子窗体。

在 Visual Basic 2005 中，不再有全局 ActiveForm 属性。若要确定活动窗体，必须循环访问 OpenForms 集合并查找其 ContainsFocus 属性设置为 True 的窗体。

Visual Basic 2005 MDI 父窗体（IsMDIContainer 设置为 True 的任何窗体）具有一个 ActiveMDIChild 属性，它可用于返回活动子窗体而不必使用 OpenForms 集合。

MousePointer 属性

在 Visual Basic 6.0 中，Screen 对象的 MousePointer 属性用于更改光标的外观；设置之后它将应用于应用程序中的所有窗体。

在 Visual Basic 2005 中，不再有全局 MousePointer 属性；每个窗体都具有一个 Cursor 属性，它可用于仅更改该窗体的光标外观。

TwipsPerPixel 属性

在 Visual Basic 6.0 中，Screen 对象的 TwipsPerPixelX 和 TwipsPerPixelY 属性用于将屏幕度量从逻辑缇（Visual Basic 6.0 中的标准度量单位）转换为像素。

在 Visual Basic 2005 中，像素是标准度量单位；不再需要任何转换。

用于 Screen 对象的代码更改

下面的示例演示 Visual Basic 6.0 和 Visual Basic 2005 在编码方法上的不同之处。

用于确定活动控件的代码更改

下面的代码演示如何从当前选定窗体上的当前选定控件将文本复制到剪贴板。

	复制代码
' Visual Basic 6.0 If TypeOf Screen.ActiveControl Is TextBox Then Clipboard.SetText Screen.ActiveControl.Text End If

Visual Basic

复制代码

' Visual Basic 2005
            Dim i As Integer
            For i = 0 To My.Application.OpenForms.Count - 1
            If My.Application.OpenForms.Item(i).ContainsFocus Then
            If TypeOf (My.Application.OpenForms.Item(i).ActiveControl) _
            Is TextBox Then
            My.Computer.Clipboard.SetText(My.Application.OpenForms. _
            Item(i).ActiveControl.Text)
            End If
            End If
            Next

用于确定活动窗体的代码更改

下面的代码演示如何更改当前选中窗体的标题。

	复制代码
' Visual Basic 6.0 Screen.ActiveForm.Caption = "This is the selected form"

Visual Basic

复制代码

' Visual Basic 2005
            Dim i As Integer
            For i = 0 To My.Application.OpenForms.Count - 1
            If My.Application.OpenForms.Item(i).ContainsFocus Then
            My.Application.OpenForms.Item(i).Text = _
            "This is the selected form"
            End If
            Next

用于确定 MDI 应用程序中活动窗体的代码更改

下面的代码演示如何更改当前选中的 MDI 子窗体的标题。

	复制代码
' Visual Basic 6.0 Screen.ActiveForm.Caption = "This is the selected child form"

Visual Basic	复制代码
' Visual Basic 2005 Me.ActiveMdiChild.Text = "This is the selected child form"

Screen 对象属性的等效项

下表列出了 Visual Basic 6.0 属性和它们的 Visual Basic 2005 等效项。根据需要提供了解释行为差异的主题链接。如果 Visual Basic 2005 中没有直接等效项，则提供指向介绍替换项的主题的链接。

属性

Visual Basic 6.0	Visual Basic 2005 等效项
ActiveControl	My.Application.OpenForms(0).ActiveControl
ActiveForm	My.Application.OpenForms(0).ContainsFocus 或 ActiveMdiChild（MDI 应用程序）
FontCount Fonts	新的实现。枚举字体的行为有所不同。有关更多信息，请参见字体处理（针对 Visual Basic 6.0 用户）。
Height	My.Computer.Screen.Bounds.Height
MouseIcon	新的实现。有关更多信息，请参见无法设置自定义 MousePointer。
MousePointer	System.Windows.Forms.Cursor
TwipsPerPixelX TwipsPerPixelY	新的实现。在 Visual Basic 2005 中，坐标以像素为单位；缇不用作度量单位。
Width	My.Computer.Screen.Bounds.Width