把表单放在屏幕的正中央

领测软件测试网

　　 
　　把 表 单 放 在 屏 幕 的 正 中 央
---- 在 开 发VB 程 序 时， 一 般 希 望 将 表 单 放 在 屏 幕 可 利 用 区 域 的 正 中 央， 实 现 上 可 以 利 用Move (Screen.Width - Width) 2, (Screen.Height - Height) 2 的 方 法 来 实 现。

但 是 当 用 户 使 用Windows 95 或 NT 操 作 系 统 时， 在 屏 幕 的 底 端 会 有 一 任 务 条， 上 述 的 实 现 方 法 并 未 考 虑 该 任 务 条 所 占 的 空 间， 表 单 实 际 并 未 处 于 屏 幕 可 利 用 区 域 的 正 中 央。 下 面 的 代 码 段 实 现 了 在 每 次 启 动 应 用 程 序 时， 无 论 屏 幕 是 否 有 任 务 条， 表 单 都 会 处 于 屏 幕 可 利 用 区 域 的 正 中 央。 在 工 程 中 增 添 一 模 块， 在 模 块 中 加 上 如 下 的 代 码：
Option Explicit
Private Const SPI_GETWORKAREA = 48
Private Declare Function SystemParametersInfo& Lib "User32" Alias "SystemParametersInfoA" (ByVal uAction As Long,ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long)
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Function CenterForm32 (frm As Form)
Dim ScreenWidth&, ScreenHeight&, ScreenLeft&, ScreenTop&
Dim DesktopArea As RECT
Call SystemParametersInfo (SPI_GETWORKAREA, 0, DesktopArea, 0)
ScreenHeight = (DesktopArea.Bottom - DesktopArea.Top) * Screen.TwipsPerPixelY
ScreenWidth = (DesktopArea.Right - DesktopArea.Left) * Screen.TwipsPerPixelX
ScreenLeft = DesktopArea.Left * Screen.TwipsPerPixelX
ScreenTop = DesktopArea.Top * Screen.TwipsPerPixelY
frm.Move (ScreenWidth - frm.Width) 2 + ScreenLeft, (ScreenHeight - frm.Height) 2 + ScreenTop
End Function

---- 要 调 用CenterForm32 函 数， 可 在 表 单 的Load 事 件 中 增 添 代 码CenterForm32 Me 即 可。 以 上 代 码 在VB4/32，VB5 中 实 现。

文章来源于领测软件测试网 https://www.ltesting.net/