VB5.0中基于桌面的屏幕技巧(2)

---- 3. 桌 面 的 横 向 或 纵 向 滚 动: 此 效 果 只 需 要 把 桌 面 图 形 写 到 一 个 图 形 框Picture 之 中, 然 后 通 过 修 改 此 图 形 框 的 起 始 坐 标, 即 可 以 使 桌 面 在 屏 幕 上 发 生 平 滑 滚 动;

---- 4. 桌 面 上 显 示 文 字 或 图 形: 此 效 果 主 要 使 用VB 的 绘 图 方 法 及Print 命 令, 在VB 中 窗 体 或 图 形 框 均 支 持VB 绘 图 方 法, 下 面 的 程 序 中 先 画 两 个 重 叠 的 实 心 矩 形, 然 后 在 其 上 面 显 示 文 字, 最 终 形 成 带 有 背 景 和 边 框 的 字 符 串;

---- 5. 桌 面 变 暗: 桌 面 变 暗 的 效 果 在 你 关 闭WINDOWS 95 时 即 可 见 到, 在VB 中 要 使 图 形 亮 度 降 低 并 不 件 容 易 的 事, 需 要 多 个API 函 数 及 复 杂 的 编 程, 但 可 通 过 一 种 颜 色 抖 动 的 方 法 解 决, 即 在 桌 面 图 形 上 均 匀 的 写 上 黑 色 象 素, 可 使 图 形 产 生 明 显 的 降 低 亮 度 的 感 觉。

---- 由 于 这 个 演 示 程 序 是 连 续 演 示 上 述 五 种 特 技, 其 效 果 显 得 不 太 理 想, 如 果 你 单 独 使 用 其 中 的 一 种 处 理 方 法, 即 在 正 常 的 桌 面 状 态 下 直 接 使 桌 面 变 化, 将 更 为 理 想。 以 上 给 出 了 用VB 对WINDOWS 95 桌 面 进 行 特 殊 操 作 的 原 理 和 方 法, 实 际 上 利 用 这 个 原 理 加 入VB 中 灵 活 的 图 像 处 理 手 段, 可 以 实 现 对 桌 面 更 为 复 杂 的 其 它 控 制 效 果, 比 如 可 制 作 完 整 的 屏 幕 保 护 程 序, 有 兴 趣 的 读 者 可 以 一 试, 以 上 程 序 在WINDOWS 95 系 统、VB5.0 环 境 下 调 试 通 过。

---- 附 源 程 序 清 单:

---- 'API 函 数 引 用

Private Declare Function BitBlt
Lib "gdi32" (ByVal hDestDC As Long,
ByVal X As Long, ByVal Y As
Long, ByVal nWidth As Long,
ByVal nHeight As Long, ByVal
hSrcDC As Long, ByVal xSrc As Long,
ByVal ySrc As Long, ByVal
dwRop As Long) As Long
Private Declare Function GetDC
Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function Get
DesktopWindow Lib "user32" () As Long
Private Declare Function ReleaseDC
Lib "user32" (ByVal hwnd As Long,
ByVal hdc As Long) As Long

' 变 量 说 明
Dim sWnd, sDC, hd
' 直 接 演 示 特 技 效 果
Private Sub Form_Load()
' 置 窗 口 背 景 为 黑 色 无 边 框
'Form1.BackColor = 0
'Form1.BorderStyle = 0
' 修 改 窗 口 尺 寸 与 屏 幕 相 同
Form1.AutoRedraw = True
Form1.Width = Screen.Width
Form1.Height = Screen.Height
Form1.Top = 0
Form1.Left = 0
' 修 改PICTURE 尺 寸 与 屏 幕 相 同
Picture1.Width = Screen.Width
Picture1.Height = Screen.Height
Picture1.Top = 0
Picture1.Left = 0
' 获 得 桌 面 图 像 句 柄
sWnd = GetDesktopWindow()
sDC = GetDC(sWnd)
hd=BitBlt(Picture1.hdc,0,0,Form1.
Width,Form1.Height,sDC,0,0,&HCC0020)
hd = ReleaseDC(sWnd, sDC)
Picture1.Visible = False
Form1.Show
' 修 改IMAGE 尺 寸 与 屏 幕 相 同
Image1.Stretch = True
Image1.Picture = Picture1.Image
Image1.Width = Screen.Width
Image1.Height = Screen.Height
Image1.Top = 0
Image1.Left = 0
' 桌 面 逐 渐 缩 小
For i = 0 To Screen.Height / 35
Image1.Visible = False
Image1.Top = 15 * i
Image1.Left = 15 * i
Image1.Width = Screen.Width - 2 * Image1.Left
Image1.Height = Screen.Height - 2 * Image1.Top
Image1.Visible = True
DoEvents
Next i
Image1.Visible = False
' 随 机 位 置 显 示 桌 面
For i = 0 To 20
Dim ll As Integer
Dim tt As Integer
ll = Rnd(1) * Screen.Width - Screen.Width / 2
tt = Rnd(1) * Screen.Height - Screen.Height / 2
Form1.PaintPicture Picture1.
Image,ll,tt,Screen.Width,Screen.Height
DoEvents
Next i
' 显 示PICTURE 并 清 屏 幕
Picture1.Visible = True
Form1.Cls

' 横 向 移 动
For i = 0 To Screen.Width * 2 / 5
Picture1.Left = Picture1.Left 5
If Picture1.Left > Screen.Width Then
Picture1.Left = -Screen.Width
End If
DoEvents
Next i
' 纵 向 移 动
For i = 0 To Screen.Height * 2 / 5
Picture1.Top = Picture1.Top 5
If Picture1.Top > Screen.Height Then
Picture1.Top = -Screen.Height
End If
DoEvents
Next i
' 桌 面 上 显 示 文 字
For i = 0 To 50
With Picture1
.ScaleMode = 3 ' 以 象 素 为 单 位
.FontTransparent = True
.Font.Size = Rnd * 30 10
.Font.Italic = True
.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
.FontName = Screen.Fonts(Rnd * 7 14)
End With
hh = Picture1.TextHeight("OK DESKTOP 演 示")

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有