---- Visual Basic 5.0 具 有 面 向 对 象 的 程 序 设 计 思 想 及 可 视 化 的 编 程 方 式， 可 开 发 出 各 种 多 媒 体 应 用 程 序， 颇 得 软 件 设 计 者 青 睐。 使 用Visual Basic 5.0 可 以 很 容 易 建 立 屏 幕 保 护 程 序。
---- 屏 幕 保 护 程 序 主 要 用 来 保 护 显 示 器 的 屏 幕， 以 免 被 长 时 间 的 静 止 图 象 灼 伤。 此 外， 它 的 富 有 创 意 的 迷 人 的 动 画 效 果 使 人 在 上 机 的 间 隙 也 能 感 受 到 电 脑 带 来 的 诸 多 乐 趣。 很 多 电 脑 爱 好 者 都 会 有 自 己 动 手 制 作 屏 幕 保 护 程 序 的 愿 望， 尤 其 是 想 做 一 款 能 体 现 个 性 特 点、 富 有 生 活 情 趣 的 屏 幕 保 护 程 序。 本 文 介 绍 了 一 种 用Visual Basic 5.0 编 程 语 言 制 作 屏 幕 保 护 程 序 的 方 法， 供 有 创 作 欲 望 和 有 兴 趣 的 爱 好 者 尝 试。
---- 在win95 的 桌 面 点 右 键 弹 出 菜 单 选 属 性, 就 出 现 显 示 器 设 置 界 面， 有 一 个 标 签 是 设 置 屏 幕 保 护 程 序 的。 在 该 页 的 画 面 上， 选 择win95 所 带 的 标 准 屏 幕 保 护 程 序， 可 以 了 解 到 一 个 标 准 屏 幕 保 护 程 序 具 有 以 下 特 点：
---- 1. 可 在 标 签 上 的 小“ 显 示 器” 中 预 显
---- 2. 点 击“ 预 览” 按 钮 直 接 运 行 屏 幕 保 护 程 序， 不 需 等 待 预 定 时 间
---- 3. 点 击“ 设 置” 按 钮 对 屏 幕 保 护 程 序 作 速 度 快 慢 等 设 置
---- 下 面 具 体 探 讨 了 如 何 利 用Visual Basic 5.0 设 计 具 有 以 上 特 点 的 标 准 屏 幕 保 护 程 序， 也 就 是 在 设 计 屏 幕 保 护 程 序 时 应 注 意 的 几 个 问 题：
---- 一、 屏 幕 保 护 程 序 预 备 知 识
---- 屏 幕 保 护 程 序 是 以.SCR 为 后 缀 的 文 件， 实 际 上 就 是 标 准 的Windows 可 执 行 文 件， 在 编 译 时 将 扩 展 名EXE 修 改 为SCR， 不 再 建 立 带 扩 展 名 为EXE 的 可 执 行 文 件。 许 多 谈 论 屏 幕 保 护 的 文 章 都 只 谈 论 了 屏 幕 保 护 程 序 中 的 图 像 显 示 技 巧， 对 于 程 序 与 系 统 之 间 的 接 口 谈 论 极 少 或 不 愿 涉 及， 笔 者 通 过 逆 向 工 程 获 得 了 它 的 使 用 方 法 及 参 数。 屏 幕 保 护 程 序 与 系 统 之 间 接 口 的 使 用 很 简 单， 是 通 过 传 给 屏 幕 保 护 程 序 的 命 令 行 参 数 来 实 现 的， 其 格 式 为：
ScrSave.exe App.scr /X nnnn
---- X 为 命 令 行 参 数，nnnn 为 传 递 给 程 序 的 数 值。
---- 命 令 行 参 数 主 要 有 以 下 几 种：
---- /S 或 /s： 起 动 模 式， 显 示 或 预 览 屏 幕 保 护 程 序
---- /P nnn 或 /p nnn： 预 显 模 式，nnn 为 十 进 制 数， 是 预 显 小 显 示 器 的 窗 口 句 柄
---- /C 或 /c： 设 置 模 式， 调 出 设 置 窗 口 进 行 设 置
---- /A 或 /a： 口 令 模 式， 调 出 口 令 设 置 窗 口（ 本 文 暂 不 讨 论 此 参 数， 感 兴 趣 的 朋 友 可 自 己 试 试）
---- 二、 防 止 同 时 运 行 屏 幕 保 护 程 序 的 两 个 实 例
---- Visual Basic 提 供 了 一 个App 对 象， 它 有 一 个PreInstance 属 性， 如 果 当 前Visual Basic 应 用 程 序 的 一 个 实 例 已 经 运 行 时， 便 把 该 属 性 设 置 为True， 从 而 避 免 同 时 运 行 一 个 屏 幕 保 护 程 序 的 多 个 实 例。 对 于 屏 幕 保 护 程 序， 在 屏 幕 保 护 属 性 窗 口 中， 由 于 预 显 程 序 也 调 用 了 一 次 程 序， 还 需 要 通 过 查 找 同 名 程 序 的 方 式 防 止 同 时 运 行 屏 幕 保 护 程 序 的 两 个 实 例。 调 用FindWindow API 过 程 能 够 确 定 系 统 中 是 否 有 另 外 的 应 用 程 序 正 在 运 行。 它 需 要 两 个 字 符 串 参 数， 一 个 表 示 应 用 程 序 的 类 名， 另 一 个 表 示 窗 口 的 标 题 栏：
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
---- 下 面 的 代 码 展 示App.PreInstance 和FindWindow 是 如 何 典 型 地 在 一 个 屏 幕 保 护 程 序 中 实 现 的。
Private Sub CheckShouldRun()
注释：如果屏幕保护程序已运行，退出
If Not App.PrevInstance Then Exit Sub
注释：确定系统中是否有同名的屏幕保护程序正在运行
If FindWindow(vbNullString, APP_NAME) Then End
注释：设置实例名称
frmCover.Caption = APP_NAME
End Sub
---- 三、 在 屏 幕 保 护 程 序 中 隐 藏 鼠 标
---- ShowCursor API 函 数 允 许 在Visual Basic 应 用 程 序 中 隐 藏 或 显 示 鼠 标， 每 次 用 参 数 值True 或False 调 用ShowCursor 可 以 使 鼠 标 显 示 或 隐 藏。 以 下 是ShowCursor API 函 数 的 声 明：
Declare Function ShowCursor Lib "user32"
(ByVal bShow As Long) As Long
---- 四、 检 测 鼠 标 的 移 动
---- 鼠 标 的 移 动 在 屏 幕 保 护 模 式 时， 需 要 退 出 程 式， 但 在 预 显 模 式 时， 不 对 程 序 有 影 响， 所 以 设 置RunMode 全 局 变 量 来 确 定 鼠 标 对 程 序 是 否 起 作 用。MouseMove 事 件 用 来 检 测 鼠 标 的 移 动， 当 应 用 程 序 启 动 时 甚 至 鼠 标 实 际 上 并 未 移 动 的 情 况 下，MouseMove 事 件 都 会 触 发 一 次。 所 以 触 发MouseMove 事 件 时， 只 是 记 录 鼠 标 当 前 位 置， 仅 当 鼠 标 真 正 从 其 起 始 位 置 移 开 一 个 较 大 位 移 时， 才 终 止 屏 幕 保 护 程 序。 具 体 实 现 代 码 如 下：
Private Sub Form_MouseMove(Button As Integer,
Shift As Integer, x As Single, y As Single)
Static x0 As Integer
Static y0 As Integer
注释：非屏幕保护模式退出过程
If RunMode < > rmScreenSaver Then Exit Sub
注释：大的鼠标移动退出程序
If ((x0 = 0) And (y0 = 0)) Or _
((Abs(x0 - x) < 5) And (Abs(y0 - y) < 5)) _
Then
注释：小的鼠标移动
x0 = x
y0 = y
Exit Sub
End If
Unload Me
End Sub
---- 五、 设 置 参 数 的 读 取 和 保 存
---- 在Visual Basic 中，SaveSetting 函 数 提 供 了 在 Windows 注 册 表 中 保 存 或 建 立 应 用 程 序 私 有 参 数 的 功 能。 其 语 法 为：
SaveSetting appname, section, key, setting
---- SaveSetting 函 数setting 的 值 保 存 在 如HKEY_CURRENT_USER\Software\VB and VBA Program Settings\appname\section\key 下。
---- GetSetting 函 数 提 供 在 Windows 注 册 表 中 读 取 应 用 程 序 私 有 参 数 的 功 能。 其 语 法 为：
GetSetting(appname, section, key[, default])
---- 如 果 GetSetting 的 参 数 中 的 任 何 一 项 都 不 存 在， 则 GetSetting 返 回 default 的 值。 如 果default 值 省 略， 则 返 回 长 度 为 零 的 字 符 串 ("")。
---- 程 序 中 应 用 如 下：
Public Sub SaveConfig()
注释：保存设置参数到注册表中
SaveSetting APP_NAME, _
"Settings", "NumBalls", Format$(NumBalls)
End Sub
Public Sub LoadConfig()
注释：从注册表中读取参数，如果没有设置，默认值为1
NumBalls = CInt(GetSetting(APP_NAME, _
"Settings", "NumBalls", "1"))
End Sub
---- 六、 小 屏 幕 预 显 窗 口 实 现
---- 要 将 屏 幕 保 护 程 序 在 预 显 小 窗 口 中 显 示 出 来， 首 先 取 得 命 令 行 中 预 显 窗 口 句 柄， 用GetClientRect 获 得 其 大 小， 通 过GetWindowLong 获 得 当 前 窗 口 的 状 态， 设 置 成 子 窗 口 状 态 后 用SetWindowLong 放 回Windows 结 构 中， 用SetParent 将 屏 幕 保 护 的 窗 口 链 接 为 预 显 窗 口 的 子 窗 口， 最 后 用SetWindowPos 将 程 序 在 预 显 窗 口 中 显 示 出 来。 程 序 中 用 到 了GetClientRect、GetWindowLong、SetWindowLong、SetParent、SetWindowPos 这 几 个API 函 数， 这 里 给 出 这 几 个 函 数 的 声 明：
Declare Function GetClientRect Lib "user32"
(ByVal hwnd As Long, lpRect As RECT) As Long
Declare Function GetWindowLong Lib "user32" Alias "
GetWindowLongA" (ByVal hwnd As Long,
ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32"
Alias "SetWindowLongA" (ByVal hwnd As Long,
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function SetParent Lib "user32"
(ByVal hWndChild As Long,
ByVal hWndNewParent As Long) As Long
Declare Function SetWindowPos Lib "user32"
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long,
ByVal x As Long, ByVal y As Long, ByVal cx As Long,
ByVal cy As Long, ByVal wFlags As Long) As Long
Case rmPreview 注释：预显模式
注释：获得预显窗口句柄
preview_hwnd = GetHwndFromCommand(args)
注释：获得预显窗口大小
GetClientRect preview_hwnd, preview_rect
Load frmCover
注释：设置“Preview”窗口名
frmCover.Caption = "Preview"
注释：获得当前窗口状态
window_style = GetWindowLong
(frmCover.hwnd, GWL_STYLE)
注释：将当前窗口设置为子窗口状态
window_style = (window_style Or WS_CHILD)
注释：设置当前窗口状态
SetWindowLong frmCover.hwnd, _
GWL_STYLE, window_style
注释：设置当前窗口为预显窗口子窗口
SetParent frmCover.hwnd, preview_hwnd
注释：把预显窗口句柄写入当前窗口的windows结构中
SetWindowLong frmCover.hwnd, _
GWL_HWNDPARENT, preview_hwnd
注释：预显屏幕保护程序
SetWindowPos frmCover.hwnd, _
HWND_TOP, 0&, 0&, _
preview_rect.Right, _
preview_rect.Bottom, _
SWP_NOZORDER Or SWP_NOACTIVATE Or _
SWP_SHOWWINDOW
---- 七、 重 要 属 性 设 置
窗体要修改的属性有以下几个
BackColor = &H00000000& 背景色为黑色
BorderStyle = 0 注释：None 窗口边框无
ControlBox = 0 注释：False 控制钮无
MaxButton = 0 注释：False 最大化钮无
MinButton = 0 注释：False 最小化钮无
ScaleMode = 3 注释：Pixel 比例模式为Pixel
WindowState = 2 注释：Maximized初始化窗口状态为最大化
---- Timer 控 件（ 在Form 窗 体 中）Enabled 属 性 在 设 计 环 境 中 设 置 为False。
---- 以 下 给 出 一 个 完 整 的 屏 幕 保 护 程 序 的 例 子, 其 演 示 效 果 为: 几 个 小 球 在 屏 幕 上 不 停 的 弹 跳. 感 兴 趣 的 朋 友 可 以 将 程 序 中 的InitializeBalls 和tmrMoveBalls_Timer 两 个 过 程 进 行 修 改, 就 可 以 生 成 各 种 精 彩 的 屏 幕 保 护 程 序, 如 加 入 文 字 移 动 显 示, 明 星 图 片 切 换 显 示...
---- 当 你 完 成 这 些 修 改 后, 生 成 一 个SCR 文 件, 把 它 放 入Windows 95 下 的System 目 录 里, 打 开 屏 幕 保 护 属 性 窗 口, 选 择 自 己 的 屏 幕 保 护 程 序, 点 击 预 览, 欣 赏 一 下 自 己 的 杰 作, 感 觉 如 何?
---- 本 程 序 在Visual Basic 5.0 ,Windows 95 环 境 下 运 行 通 过
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
