VB5.0制作屏幕保护程序奥秘
屏 幕 保 护 程 序 在 预 显 小 窗 口 中 显 示 出 来， 首 先 取 得 命 令 行 中 预 显 窗 口 句 柄， 用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 目 录 里, 打 开 屏 幕 保 护 属 性 窗 口, 选 择 自 己 的 屏 幕 保 护 程 序, 点 击 预 览, 欣 赏 一 下 自 己 的 杰 作, 感 觉 如 何?
---- 本
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 目 录 里, 打 开 屏 幕 保 护 属 性 窗 口, 选 择 自 己 的 屏 幕 保 护 程 序, 点 击 预 览, 欣 赏 一 下 自 己 的 杰 作, 感 觉 如 何?
---- 本