经过长时间学习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环境下调试通过。
