全面实现利用VB.NET隐藏控件制作单独程序封面

经过长时间学习VB.NET，于是和大家分享一下利用VB.NET隐藏控件制作单独程序封面，看完本文你肯定有不少收获，希望本文能教会你更多东西。多窗口编程存在着一定的复杂性，需要对多个窗体的·Frm文件进行管理，编码时还需要频繁地在多个窗口间进行转换。实际上通过一个窗体也可以编制出类似的封面效果。基本原理就是在程序运行时首先通过VISIBLE属性全部VB.NET隐藏控件，然后在主窗体内进行程序封面设计和演示，延时一定时间再恢复所有控件的显示，即达到了独立程序封面的制作过程。由于窗体内的控件很多，逐一隐藏或显示非常繁琐，可采用容器控件简化操作过程，即把控件全部放到Frame1等控件上，这样只要执行Frame1.Visible=0，即可使其上面的所有隐藏VB.NET隐藏控件起来。

成都创新互联公司不只是一家网站建设的网络公司；我们对营销、技术、服务都有自己独特见解，公司采取“创意+综合+营销”一体化的方式为您提供更专业的服务！我们经历的每一步也许不一定是最完美的，但每一步都有值得深思的意义。我们珍视每一份信任，关注我们的成都做网站、网站设计质量和服务品质，在得到用户满意的同时，也能得到同行业的专业认可，能够为行业创新发展助力。未来将继续专注于技术创新，服务升级，满足企业一站式成都全网营销推广需求，让再小的成都品牌网站建设也能产生价值！

#T#c由于程序只涉及一个窗体，程序设计的大部分工作只是编码过程，所以不再分步介绍。在窗体Form1中安放一个时间控件Timer1 和一个容器控件Frame1,再在Frame1上安放一个命令按钮Command1，具体程序设计时可把所有主程序工作控件放在Frame1上；之后把下面的代码填入相应的事件之中即可完成全部程序设计工作。运行此程序后首先在全屏幕窗体内显示图像，并从左上角开始逐渐放大字符串“程序封面演示”，放大过程中颜色发生平滑变化，形成美丽的拖尾效果，连续显示5次后自动关闭封面，返回主程序窗口，同样立即关闭程序封面，返回主程序窗口，单击主窗体中的命令按钮退出程序。

 
 
  
  ’定义全程变量    
  Dim i ,j As Integer    
  ’退出程序按钮    
  Private Sub Command1-Click ()    
  End    
  End Sub    
  ’单击窗体关闭封面    
  Private Sub Form-Click ()    
  Frame1.Visible =1 ’恢复容器控件    
  timer1.Enabled =False ’关闭时间控件    
  Form1.WindowState =0 ’恢复缺省窗口模式    
  End Sub    
  ’准备工作    
  Private Sub Form -Load ()    
  Form1.WindowState =2 ’窗口最大化    
  Frame1.Width =Form1.Width ’调整容器控件尺寸    
  Frame1.Height =Form1.Height    
  Frame1.Top =0 ’调整容器控件位置    
  Frame1.Left =0   
  Frame1.Visible =0 ’隐藏容器控件    
  timer1.Interval =10 ’置时间频率    
  Form1.Picture =LoadPicture ("c:\windows\setup.bmp") ’装入图像    
  Form1.ScaleMode=3 ’置坐标刻度    
  Form1.FontName =“黑体” ’置字体名称    
  End Sub    
  ’封面制作 （动画演示）    
  Private Sub timer1-Timer ()    
  Strr ="程序封面演示"   
  With Form1 ’透明显示    
  .Font.Transparent =True   
  .Font.Size = i + 1 ’放大字号    
  .Font.Italic =True ’斜体有效    
  .ForeColor=RGB(i*3,56,256-i*3) ’平滑变化颜色    
  End With    
  string =strr   
  Form1.Current X=i ’连续改变坐标    
  Form1.Current Y=i   
  Form1.Print stringg ’显示字符串    
  ii = i +1    
  If i >72 Then ’放大到72号字    
  jj =j +1 ’循环计数    
  i =0   
  Form1.Current X=72   
  Form1.Current Y=72   
  Form1.ForeColor =RGB(255,56,0) ’重新显示一次字符    
  Form1.Print stringg    
  End If    
  If j =5 Then ’动画计数    
  Frame1.Visible =1 ’显示容器控件    
  timer1.Enabled =False ’关闭时间控件    
  Form1.WindowState=0 ’恢复窗口模式    
  End If    
  End Sub

以上方法及程序在WINDOWS 95系统下，在VB4.0环境下调试通过。

分享文章：全面实现利用VB.NET隐藏控件制作单独程序封面
转载来源：http://www.shufengxianlan.com/qtweb/news38/83838.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容