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

高生钓友俱乐部

高生钓友俱乐部

2016-02-19 18:09

每个人都希望每天都是开心的,不要因为一些琐事扰乱了心情还,闲暇的时间怎么打发,关注图老师可以让你学习更多的好东西,下面为大家推荐在VisualBasic中实现启动程序时的闪烁屏幕,赶紧看过来吧!
----在大量的应用软件中,软件启动后一幅画面有几秒的信息显示,列出产品、平台、版本号和版权信息,称之为“启动程序时的闪烁屏幕”。在VisualBasic中是如何实现的呢?本文讨论生成启动屏幕的一种方法,并使之多彩化。做到启动屏幕在桌面停留时,提示文字在桌面上“流动”(如《东方快车》启动画面)。同时也可以实现流动文字的闪烁、变色等效果。如果在文字底部设置画面,文字可以从画面上流动。待显示完毕从画面顶部消失后,可重新从画面底部冉冉升起,循环出现。这样设计后,可用在软件说明及著作者列表等等,以丰富的软件的画面显示效果。
  
  ----取工程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代码如下:
  
  PrivateSubForm_Load()
  Form1.Visible=0'使窗体Form1不可见
  Form2.Show'显示窗体Form2
  EndSub
  
  Form2各控件代码如下:
  OptionExplicit
  DimStep1,Step2,Step3AsInteger
  DimZfAsString
  DimIAsInteger
  
  PrivateSubForm_Click()
  '单击窗体Form2时,结束窗体Form2的执行,
  显示窗体Form1,关闭Timer、Timer1。
  UnloadMe
  Form1.Show
  Timer1.Enabled=False
  Timer2.Enabled=False
  EndSub
  
  PrivateSubForm_Load()
  Picture1.Picture=LoadPicture
  ("c:windowsClouds.bmp")'任意选择一图片
  Timer1.Interval=80'时间步长
  Timer2.Interval=50
  EndSub
  
  PrivateSub
  Frame1_Click()'单击控件Frame1内区域时,
  结束窗体Form2的执行,显示窗体Form1,关闭Timer、Timer1。
  UnloadMe
  Form1.Show
  Timer1.Enabled=False
  Timer2.Enabled=False
  EndSub
  
  PrivateSub
  Picture1_Click()
  '单击图片Picture1内区域时,结束窗体Form2的执行,
  显示窗体Form1,关闭Timer、Timer1。
  UnloadMe
  Form1.Show
  Timer1.Enabled=False
  Timer2.Enabled=False
  EndSub
  
  PrivateSubTimer1_Timer()
  ColorLabel1,15,13,9'调用变换的颜色
  I=I 1
  IfI50Then'窗体Form2停留时间,可以调整大小
  UnloadMe
  Form1.Show
  Timer1.Enabled=False
  Timer2.Enabled=False
  EndIf
  EndSub
  SubColor(CtrlAsControl,color1AsInteger,
  color2AsInteger,color3AsInteger)'选取颜色
  IfVal(Ctrl.Tag)=color1Then
  Ctrl.Tag=color2
  ElseIfVal(Ctrl.Tag)=color2Then
  Ctrl.Tag=color3
  ElseIfVal(Ctrl.Tag)=color3Then
  Ctrl.Tag=color1
  Else
  Ctrl.Tag=color1
  EndIf
  Ctrl.ForeColor=QBColor(Ctrl.Tag)
  EndSub
  
  PrivateSubTimer2_Timer()'控制文字移动位置及速度
  Step1=1800:Step2=4500:Step3=40
  IfLabel1.Top-Step1-Label1.TopThen
  Label1.Top=Label1.Top Step2
  EndIf
  Label1.Top=Label1.Top-Step3
  EndSub
  
  ----可以调整Timer1.Interval、Timer2.Interval值的大小,它们分别决定文字颜色变换速度及文字流动速度;根据窗体和控件情况调整Step1、Step2为合适值;Step3为文字跳跃步长;通过改变ColorLabel1,I,J,K语句中的I,J,K值来改变文字的变换颜色。在中文VisualBasic5.0下实现。->

展开更多 50%)
分享

猜你喜欢

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

编程语言 网络编程
在VisualBasic中实现启动程序时的闪烁屏幕

VisualBasic实现在程序中开启网页

编程语言 网络编程
VisualBasic实现在程序中开启网页

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

VisualBasic程序中如何启动默认的拨号连接

编程语言 网络编程
VisualBasic程序中如何启动默认的拨号连接

让VisualBasic程序在Windows启动时自动执行

编程语言 网络编程
让VisualBasic程序在Windows启动时自动执行

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

在ASP处理程序时显示进度

ASP
在ASP处理程序时显示进度

在C#中启动另一个程序的实现方法

编程语言 网络编程
在C#中启动另一个程序的实现方法

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

QQ登录提示在异地登录能提供上次登录的IP吗

QQ登录提示在异地登录能提供上次登录的IP吗

Skype如何同步我的联系人

Skype如何同步我的联系人
下拉加载更多内容 ↓