VisualBasic程序创建闪烁(标语)屏
2006-02-27 21:08:15 来源:WEB开发网核心提示:大型应用系统启动运行的时间需要很长时间,其时间会根据需要初始化的数量和用户系统的速度变化,因此在主窗口显示前,应显示一个初始化窗口,使应用程序看起来更具吸引力,因为当装载程序时不断可以向用户显示一些信息,而且可产生美观的视觉效果,VisualBasic程序创建闪烁(标语)屏,例如vb、delphi在启动时均在主界面前显
大型应用系统启动运行的时间需要很长时间,其时间会根据需要初始化的数量和用户系统的速度变化,因此在主窗口显示前,应显示一个初始化窗口,使应用程序看起来更具吸引力,因为当装载程序时不断可以向用户显示一些信息,而且可产生美观的视觉效果。例如vb、delphi在启动时均在主界面前显示一splash窗口.
----1.下面是显示闪烁(标语)屏splash的一种简单方法:
optionexplicit
PRivatesubform_load()
'显示主窗口
me.show
'显示splash窗口
frmsplash.show
doevents
'执行应用程序初始化
initialize
'关闭splash窗口
unloadspalsh
endsub
----该过程代码应放在应用程序的启动窗体中。第一个show方法可使windows在屏幕上显示主窗体,下一个show方法显示闪烁屏,它是你设计的名为frmsplash的窗体.在利用show方法之后,再利用Doevents函数,以确保闪烁屏窗体的所有元数立即绘制完。Initialize函数执行应用程序在启动时需要执行的费时任务,例如,从文件中装载数据,将窗体装入内存等等。这时一切都准备就绪.
----2.闪烁窗体模板
----VisualBasic中含有许多摸板窗体,其中之一是闪烁屏。要为项目添加Splashscreen窗体,需要从project菜单中选择AddForm.在AddForm对话框的New标签上选择SplashScreen图标,并单击Open.这样SplashScreen窗体就被添加到项目中.
----下列代码显示了如何定制SplashScreen窗体摸板的实例:
optionexplicit
privatesubform_load()
frmsplash.lbllicenseto=app.legaltrademarks
frmsplash.lblcompanyproduct=app.productname
frmsplash.lblplatform="window98"
frmsplash.lblcopyright=app.legalcopyright
frmsplash.lblcompany=app.companyname
frmsplash.lblwarning="Warning:thisprogramisprotected"&_
"bycopyrightlaw,sodon'tcopy"
frmsplash.show
doevents
initialize
unloadfrmsplash
endsub
----注意这里使用了app对象,该对象可以访问有关你的应用程序的信息;
----splashscreen窗体摸板代码模块的代码如下所示:
PrivateSubForm_keypress(keyasciiasinteger)
unloadme
Endsub
Privatesubform_load()
lblversion.caption="version"&app.major&".
"app.minor"."app.revision
lblproductname.caption=app.title
endsub
privatesubframe1_click()
unloadme
EndSub->
----1.下面是显示闪烁(标语)屏splash的一种简单方法:
optionexplicit
PRivatesubform_load()
'显示主窗口
me.show
'显示splash窗口
frmsplash.show
doevents
'执行应用程序初始化
initialize
'关闭splash窗口
unloadspalsh
endsub
----该过程代码应放在应用程序的启动窗体中。第一个show方法可使windows在屏幕上显示主窗体,下一个show方法显示闪烁屏,它是你设计的名为frmsplash的窗体.在利用show方法之后,再利用Doevents函数,以确保闪烁屏窗体的所有元数立即绘制完。Initialize函数执行应用程序在启动时需要执行的费时任务,例如,从文件中装载数据,将窗体装入内存等等。这时一切都准备就绪.
----2.闪烁窗体模板
----VisualBasic中含有许多摸板窗体,其中之一是闪烁屏。要为项目添加Splashscreen窗体,需要从project菜单中选择AddForm.在AddForm对话框的New标签上选择SplashScreen图标,并单击Open.这样SplashScreen窗体就被添加到项目中.
----下列代码显示了如何定制SplashScreen窗体摸板的实例:
optionexplicit
privatesubform_load()
frmsplash.lbllicenseto=app.legaltrademarks
frmsplash.lblcompanyproduct=app.productname
frmsplash.lblplatform="window98"
frmsplash.lblcopyright=app.legalcopyright
frmsplash.lblcompany=app.companyname
frmsplash.lblwarning="Warning:thisprogramisprotected"&_
"bycopyrightlaw,sodon'tcopy"
frmsplash.show
doevents
initialize
unloadfrmsplash
endsub
----注意这里使用了app对象,该对象可以访问有关你的应用程序的信息;
----splashscreen窗体摸板代码模块的代码如下所示:
PrivateSubForm_keypress(keyasciiasinteger)
unloadme
Endsub
Privatesubform_load()
lblversion.caption="version"&app.major&".
"app.minor"."app.revision
lblproductname.caption=app.title
endsub
privatesubframe1_click()
unloadme
EndSub->
Tags:VisualBasic 程序 创建
编辑录入:爽爽 [复制链接] [打 印][]
- ››创建基于PPTP的站点到站点VPN连接:ISA2006系列之...
- ››创建基于L2TP的站点到站点的VPN连接:ISA2006系列...
- ››创建一个Twisted Reactor TCP服务器
- ››创建Windows Mobile上兼容性好的UI 程序
- ››创建android的Service
- ››创建远古部落环境与原住民角色
- ››程序启动画面
- ››创建并扩展Apache Wicket Web应用
- ››创建不在任务条中显示窗口按钮的应用
- ››创建 Android 文件系统(Root file system)
- ››创建 Android 系统步骤简介
- ››创建 Android SD Card 映像的方法
更多精彩
赞助商链接