適用于 Visual Basic 6.0 用戶的 Screen 對象

nxhujiee 2010-04-16

展開全文

Visual Basic 6.0 的 Screen 對象在 Visual Basic 2005 中沒有直接等效項，但是可以使用 .NET Framework 來重復(fù)它的大部分功能。

概念差異

在 Visual Basic 6.0 中，Screen 對象提供對應(yīng)用程序中的活動窗體和控件的訪問，提供有關(guān)正在顯示應(yīng)用程序的屏幕的信息，并且允許控制光標(biāo)的外觀。

在 Visual Basic 2005 中，沒有對應(yīng)于 Screen 對象的直接等效項，但是可以使用 .NET Framework 來重復(fù)它的大部分功能。

注意
Visual Basic 2005 具有一個 Screen 屬性 -- My.Computer.Screen。與 Visual Basic 6.0 Screen 對象不同，My.Computer.Screen 僅返回有關(guān)屏幕的只讀信息，如它的設(shè)備名稱、工作區(qū)和顏色深度。有關(guān)更多信息，請參見 My.Computer.Screen 屬性

ActiveControl 屬性

在 Visual Basic 6.0 中，Screen 對象的 ActiveControl 屬性用于確定擁有焦點的控件。ActiveControl 屬性可用于全局功能中，例如，用于 Screen.ActiveControl 中，此時將返回當(dāng)前選定窗體上的活動控件。如果引用了特定窗體（例如，Form2.ActiveControl），則 ActiveControl 在引用窗體為活動時指定將擁有焦點的控件。

在 Visual Basic 2005 中，不再有全局的 ActiveControl 屬性；窗體的每一個實例都具有它自己的 ActiveControl 屬性。當(dāng)引用特定的窗體時，該屬性的工作方式與它在 Visual Basic 6.0 中的完全相同。若要確定當(dāng)前選定窗體上的活動控件，必須先循環(huán)訪問 OpenForms 集合并檢查 ContainsFocus 屬性，確定哪一個窗體是活動的。

ActiveForm 屬性

在 Visual Basic 6.0 中，Screen 對象的 ActiveForm 屬性用于確定當(dāng)前哪一個窗體擁有焦點。如果 MDI 父窗體擁有焦點，則 ActiveForm 返回最近一次擁有焦點的 MDI 子窗體。

在 Visual Basic 2005 中，不再有全局 ActiveForm 屬性。若要確定活動窗體，必須循環(huán)訪問 OpenForms 集合并查找其 ContainsFocus 屬性設(shè)置為 True 的窗體。

Visual Basic 2005 MDI 父窗體（IsMDIContainer 設(shè)置為 True 的任何窗體）具有一個 ActiveMDIChild 屬性，它可用于返回活動子窗體而不必使用 OpenForms 集合。

MousePointer 屬性

在 Visual Basic 6.0 中，Screen 對象的 MousePointer 屬性用于更改光標(biāo)的外觀；設(shè)置之后它將應(yīng)用于應(yīng)用程序中的所有窗體。

在 Visual Basic 2005 中，不再有全局 MousePointer 屬性；每個窗體都具有一個 Cursor 屬性，它可用于僅更改該窗體的光標(biāo)外觀。

TwipsPerPixel 屬性

在 Visual Basic 6.0 中，Screen 對象的 TwipsPerPixelX 和 TwipsPerPixelY 屬性用于將屏幕度量從邏輯緹（Visual Basic 6.0 中的標(biāo)準(zhǔn)度量單位）轉(zhuǎn)換為像素。

在 Visual Basic 2005 中，像素是標(biāo)準(zhǔn)度量單位；不再需要任何轉(zhuǎn)換。

用于 Screen 對象的代碼更改

下面的示例演示 Visual Basic 6.0 和 Visual Basic 2005 在編碼方法上的不同之處。

用于確定活動控件的代碼更改

下面的代碼演示如何從當(dāng)前選定窗體上的當(dāng)前選定控件將文本復(fù)制到剪貼板。

	復(fù)制代碼
' Visual Basic 6.0 If TypeOf Screen.ActiveControl Is TextBox Then Clipboard.SetText Screen.ActiveControl.Text End If

Visual Basic

復(fù)制代碼

' 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

用于確定活動窗體的代碼更改

下面的代碼演示如何更改當(dāng)前選中窗體的標(biāo)題。

	復(fù)制代碼
' Visual Basic 6.0 Screen.ActiveForm.Caption = "This is the selected form"

Visual Basic

復(fù)制代碼

' 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 應(yīng)用程序中活動窗體的代碼更改

下面的代碼演示如何更改當(dāng)前選中的 MDI 子窗體的標(biāo)題。

	復(fù)制代碼
' Visual Basic 6.0 Screen.ActiveForm.Caption = "This is the selected child form"

Visual Basic	復(fù)制代碼
' Visual Basic 2005 Me.ActiveMdiChild.Text = "This is the selected child form"

Screen 對象屬性的等效項

下表列出了 Visual Basic 6.0 屬性和它們的 Visual Basic 2005 等效項。根據(jù)需要提供了解釋行為差異的主題鏈接。如果 Visual Basic 2005 中沒有直接等效項，則提供指向介紹替換項的主題的鏈接。

屬性

Visual Basic 6.0	Visual Basic 2005 等效項
ActiveControl	My.Application.OpenForms(0).ActiveControl
ActiveForm	My.Application.OpenForms(0).ContainsFocus 或 ActiveMdiChild（MDI 應(yīng)用程序）
FontCount Fonts	新的實現(xiàn)。枚舉字體的行為有所不同。有關(guān)更多信息，請參見字體處理（針對 Visual Basic 6.0 用戶）。
Height	My.Computer.Screen.Bounds.Height
MouseIcon	新的實現(xiàn)。有關(guān)更多信息，請參見無法設(shè)置自定義 MousePointer。
MousePointer	System.Windows.Forms.Cursor
TwipsPerPixelX TwipsPerPixelY	新的實現(xiàn)。在 Visual Basic 2005 中，坐標(biāo)以像素為單位；緹不用作度量單位。
Width	My.Computer.Screen.Bounds.Width