在Visual Basic 中实现启动程序时的闪烁屏幕

---- 在 大 量 的 应 用 软 件 中， 软 件 启 动 后 一 幅 画 面 有 几 秒 的 信 息 显 示， 列 出 产 品、 平 台、 版 本 号 和 版 权 信 息， 称 之 为“ 启 动 程 序 时 的 闪 烁 屏 幕”。 在Visual Basic 中 是 如 何 实 现 的 呢 ？ 本 文 讨 论 生 成 启 动 屏 幕 的 一 种 方 法， 并 使 之 多 彩 化。 做 到 启 动 屏 幕 在 桌 面 停 留 时， 提 示 文 字 在 桌 面 上“ 流 动”( 如《 东 方 快 车》 启 动 画 面)。 同 时 也 可 以 实 现 流 动 文 字 的 闪 烁、 变 色 等 效 果。 如 果 在 文 字 底 部 设 置 画 面， 文 字 可 以 从 画 面 上 流 动。 待 显 示 完 毕 从 画 面 顶 部 消 失 后， 可 重 新 从 画 面 底 部 冉 冉 升 起， 循 环 出 现。 这 样 设 计 后， 可 用 在 软 件 说 明 及 著 作 者 列 表 等 等， 以 丰 富 的 软 件 的 画 面 显 示 效 果。

---- 取 工 程1， 窗 体Form1、Form2， 设Form1 为 启 动 窗 体。 在Form2 上 新 建Frame1、Timer1 和Temer2，Frame1 的Caption 属 性 设 置 成 空 值， 以 形 成 美 观 的 立 体 边 框。Timer1 和Temer2 的Enabled 的 属 性 设 为True。 在Frame1 上 创 建Picture1， 调 整Picture1 为 合 适 大 小。 将Form1 的ScaleMode 属 性 设 为1-Twip，Form2 的StartUpPosition 属 性 设 为2-CenterScreen( 中 心 对 齐)。 为 了 保 证 窗 体Form2 不 显 示 窗 体 最 上 面 的“ 蓝 色 说 明 条”， 将Caption 属 性 设 为 空 值，ControlBox 属 性 设 为False 即 可。 在Picture1 上 创 建 标 签Label1， 调 整BackStyle 为0( 透 明)。 在Label1 的Caption 属 性 填 写“ 作 者： 沈 阳 姜 雪 小 姐” 一 段 文 字， 以 便 观 察。 调 整 文 字 的 大 小、 颜 色。 在 窗 体Form2 上 可 随 意 设 置 版 面 信 息。

---- Form1 代 码 如 下：

Private Sub Form_Load()
Form1.Visible = 0 '使窗体Form1不可见
Form2.Show '显示窗体Form2
End Sub

Form2各控件代码如下：
Option Explicit
Dim Step1, Step2, Step3 As Integer
Dim Zf As String
Dim I As Integer

Private Sub Form_Click()
'单击窗体 Form2时，结束窗体Form2的执行，
显示窗体Form1，关闭Timer、Timer1。
Unload Me
Form1.Show
Timer1.Enabled = False
Timer2.Enabled = False
End Sub

Private Sub Form_Load()
Picture1.Picture = LoadPicture
("c:\Windows\Clouds.bmp") '任意选择一图片
Timer1.Interval = 80 '时间步长
Timer2.Interval = 50
End Sub

Private Sub
Frame1_Click() '单击控件Frame1内区域时，
结束窗体Form2的执行，显示窗体Form1，关闭Timer、Timer1。
Unload Me
Form1.Show
Timer1.Enabled = False
Timer2.Enabled = False
End Sub

Private Sub
Picture1_Click()
'单击图片Picture1内区域时，结束窗体Form2的执行，
显示窗体Form1，关闭Timer、Timer1。
Unload Me
Form1.Show
Timer1.Enabled = False
Timer2.Enabled = False
End Sub

Private Sub Timer1_Timer()
Color Label1, 15, 13, 9 '调用变换的颜色
I = I 1
If I > 50 Then '窗体Form2停留时间，可以调整大小
Unload Me
Form1.Show
Timer1.Enabled = False
Timer2.Enabled = False
End If
End Sub
Sub Color(Ctrl As Control, color1 As Integer,
color2 As Integer, color3 As Integer) '选取颜色
If Val(Ctrl.Tag) = color1 Then
Ctrl.Tag = color2
ElseIf Val(Ctrl.Tag) = color2 Then
Ctrl.Tag = color3
ElseIf Val(Ctrl.Tag) = color3 Then
Ctrl.Tag = color1
Else
Ctrl.Tag = color1
End If
Ctrl.ForeColor = QBColor(Ctrl.Tag)
End Sub

Private Sub Timer2_Timer() '控制文字移动位置及速度
Step1 = 1800: Step2 = 4500: Step3 = 40
If Label1.Top < -Step1 - Label1.Top Then
Label1.Top = Label1.Top Step2
End If
Label1.Top = Label1.Top - Step3
End Sub

---- 可 以 调 整Timer1.Interval、Timer2.Interval 值 的 大 小， 它 们 分 别 决 定 文 字 颜 色 变 换 速 度 及 文 字 流 动 速 度； 根 据 窗 体 和 控 件 情 况 调 整Step1、Step2 为 合 适 值；Step3 为 文 字 跳 跃 步 长； 通 过 改 变Color Label1，I，J，K 语 句 中 的I，J，K 值 来 改 变 文 字 的 变 换 颜 色。 在 中 文Visual Basic 5.0 下 实 现。

上一篇： 从文件中提取图标
下一篇： 利用VB捕捉并保存屏幕图象

标签：

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