关于超想
本站导航
邮件列表
  首页 | 本站产品 | Delphi资料 | 免费资源 | 程序人生 | 软件工程 | 网站设计 | 推荐网站
你所在的位置 -> 主页 -> 超想软件 -> 编程资料 -> Vb -> 其它文章 ->详细
相关内容  
 
 
在Delphi程序中应用IE浏览器控件
DELPHI 中动态链接库的使用
利用Hook技术实现键盘监控
Delphi下汉字输入法的编程及使用
在Delphi中用拼音首字符序列来实现检索功能
在DELPHI中处理时间
Delphi 元件撰写常问问题
任意动态改变/添加网络设置中的 TCP/IP 的 DNS 地址
Delphi 3中Cookie的建立使用
Delphi4.0 开发WEBMAIL程序
用DELPHI制作留言板
 
【新品推荐】

  详细内容
 

在VB中如何创建闪烁(标语)屏
作者: 评价: 上站日期: 2001-09-04
内容说明:
来源:

  
  
  大型应用系统启动运行的时间需要很长时间,其时间会根据需要初始化的数量和用户系统的速度变化,因此在主窗口显示前,应显示一个初始化窗口,使应用程序看起来更具吸引力,因为当装载程序时不断可以向用户显示一些信息,而且可产生美观的视觉效果。例如vb、delphi在启动时均在主界面前显示一splash窗口.
  ---- 1. 下面是显示闪烁(标语)屏splash的一种简单方法:
  
  option explicit
  private sub form_load()
  '显示主窗口
  me.show
  '显示splash窗口
  frmsplash.show
  doevents
  '执行应用程序初始化
  initialize
  '关闭splash窗口
  unload spalsh
  end sub
  
  ---- 该过程代码应放在应用程序的启动窗体中。第一个show方法可使windows在屏幕上显示主窗体,下一个show方法显示闪烁屏,它是你设计的名为frmsplash的窗体.在利用show方法之后,再利用Doevents函数,以确保闪烁屏窗体的所有元数立即绘制完。Initialize函数执行应用程序在启动时需要执行的费时任务,例如,从文件中装载数据,将窗体装入内存等等。这时一切都准备就绪.
  
  ---- 2.闪烁窗体模板
  
  ---- Visual Basic 中含有许多摸板窗体,其中之一是闪烁屏。要为项目添加Splash screen 窗体,需要从project菜单中选择Add Form.在Add Form 对话框的New标签上选择Splash Screen图标,并单击Open.这样Splash Screen窗体就被添加到项目中.
  
  ---- 下列代码显示了如何定制Splash Screen 窗体摸板的实例:
  
  option explicit
  private sub form_load()
  frmsplash.lbllicenseto=app.legaltrademarks
  frmsplash.lblcompanyproduct=app.productname
  frmsplash.lblplatform="window 98"
  frmsplash.lblcopyright=app.legalcopyright
  frmsplash.lblcompany=app.companyname
  frmsplash.lblwarning="Warning:this program is protected" & _
  "by copyright law,so don't copy "
  frmsplash.show
  doevents
  initialize
  unload frmsplash
  end sub
  
  ---- 注意这里使用了app对象,该对象可以访问有关你的应用程序的信息;
  
  ---- splash screen 窗体摸板代码模块的代码如下所示:
  
  Private Sub Form_keypress(keyascii as integer)
  unload me
  End sub
  
  Private sub form_load()
  lblversion.caption="version"&app.major&".
  "app.minor"."app.revision
  lblproductname.caption=app.title
  end sub
  private sub frame1_click()
  unload me
  End Sub
  

 
你所在的位置 -> 主页 -> 超想软件 -> 编程资料 -> Vb -> 其它文章 ->详细
  首页 | 本站产品 | Delphi资料 | 免费资源 | 程序人生 | 软件工程 | 网站设计 | 推荐网站
声明:本站内容除注明原创以外均从网上摘抄,如有侵权请指明。
  如果您对我们的网站有什么意见或者建议,请与我们联系
powered by 建站易上手- V2.0