这里所谓单独封面是只独立应用窗口本身个窗口这个窗口在运行时首先弹出屏幕用于装饰本身或简单演示下优越性这样封面在很多专业WINDOWS中均存在在VB中可有两种简单思路方法实现这功能　　第种思路方法:多窗体编程思路方法

　　此思路方法是通常采用思路方法即在中创建两个或两个以上Form窗体把其中个作为专门封面制作场所具体思路方法:

　　1、创建个新项目Form1并在此窗体内安放Command1命令按钮在Command1-Click事件中输入结束代码“END”

　　2、单击菜单“Insert"项目加入个新窗体Form1

　　3、双击Form1窗体空白处在Form1-Load事件中输入如下代码用于隐藏主窗体Form1置第 2窗体为最大模式并在运行首先显示和 2窗体:

　　Private Sub Form-Load ’隐藏主窗口Form1.Visible = 0’窗口2最大模式Form2.WindowState =2’显示窗口2Form2.ShowEnd Sub

　　4、在窗体Form2中定义全程变量:

　　Dim strr1 As StringDim i As Integer

　　5、在窗体Form2中放入个时间Control控件Timer1

　　6、在窗体Form2中Form-Load 事件中输入以下代码用于在窗体2中显示图像并置时间Control控件频率:

　　Private Sub Form-Load Form2.Picture = LoadPicture("c:\windows\up.bmp")Timer1.Interval = 10i =0End Sub

　　7、在时间Control控件Timer1- Timer1()事件中进行封面制作工作演示简单动画并控制此动画运行段时间后自动停止关闭封面返回主窗口；下面代码实现在个图片上随机显示串显示30次串后自动退出

　　Private Sub Timer1-Timer
Strr1 = "封面演示“
With Form2
.Font.Transparent =True ’透明显示
.Font.Size = Rnd *30+10 ’随机变化字号
.Font.Italic =True ’斜体有效
.ForeColor=RGB(Rnd*256,Rnd*256,Rnd*256) ’随机变化前景
.FontName =Screen.Fonts (Rnd*7+14) ’随机变化字体
End With
hh=Form2.TextHehght (strr1) ’取串高度
ww= Form2.TextWidth (strr1) ’取串宽度
x=Rnd * ( Form2.ScaleWidth-ww) ’随机改变坐标
y=Rnd *( Form2.ScaleHeight-hh)
Form2.Current X=x
F 2.Current Y=y
Form2.Pr strr1 ’显示
i = i +1 ’计数
If i $#@62;30 Then
Unload Me ’关闭封面
Form1.Show ’调入主窗口
Timer1.Enabled =False ’关闭时间Control控件
End If
End Sub

　　8、为了能够人为地控制封面停留时间可在窗体Form2鼠标单击事件中安放退出封面代码:

　　Private Sub Form-Click
Unload Me
Form1.Show
Timer1.Enabled =False ’关闭时间Control控件
End If
End Sub

　　至此工作全部完成当运行时首先弹出封面封面上显示幅？BMP图像的后在此图像上进行随机串显示串位置、字体、字号、前景色等值都是随机变化显示30次后自动关闭封面返回主窗口演示过程中用鼠标单击窗口也会返回主窗口在主窗口中按下结束按钮退出具体操作时还有很多其它窍门技巧比如可以置第 2个窗体为主窗体这样运行时可自动先弹出封面可省略隐藏窗体和调入窗体过程另外第 2窗体也可以在运行时由代码动态生成这样编程时复杂些但有利于代码管理；封面具体制作过程有许多动态图像控制思路方法可以使用只要灵活动用VB作图思路方法再加上些必要API配合会制作出理想封面

　　第 2种思路方法:隐藏Control控件思路方法

　　多窗口编程存在着定复杂性需要对多个窗体？Frm文件进行管理编码时还需要频繁地在多个窗口间进行转换实际上通过个窗体也可以编制出类似封面效果基本原理就是在运行时首先通过VISIBLE属性隐藏全部Control控件然后在主窗体内进行封面设计和演示延时定时间再恢复所有Control控件显示即达到了独立封面制作过程由于窗体内Control控件很多逐隐藏或显示非常繁琐可采用容器Control控件简化操作过程即把Control控件全部放到Frame1等Control控件上这样只要执行Frame1.Visible=0即可使其上面所有Control控件隐藏起来

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

　　’定义全程变量
Dim i ,j As Integer
’退出按钮
Private Sub Command1-Click
End
End Sub
’单击窗体关闭封面
Private Sub Form-Click
Frame1.Visible =1 ’恢复容器Control控件
timer1.Enabled =False ’关闭时间Control控件
Form1.WindowState =0 ’恢复缺省窗口模式
End Sub
’准备工作
Private Sub Form -Load
Form1.WindowState =2 ’窗口最大化
Frame1.Width =Form1.Width ’调整容器Control控件尺寸
Frame1.Height =Form1.Height
Frame1.Top =0 ’调整容器Control控件位置
Frame1.Left =0
Frame1.Visible =0 ’隐藏容器Control控件
timer1.Interval =10 ’置时间频率
Form1.Picture =LoadPicture ("c:\windows\up.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
=strr
Form1.Current X=i ’连续改变坐标
Form1.Current Y=i
Form1.Pr g ’显示串
i = i +1
If i $#@62;72 Then ’放大到72号字
j =j +1 ’循环计数
i =0
Form1.Current X=72
Form1.Current Y=72
Form1.ForeColor =RGB(255,56,0) ’重新显示次
Form1.Pr g
End If
If j =5 Then ’动画计数
Frame1.Visible =1 ’显示容器Control控件
timer1.Enabled =False ’关闭时间Control控件
Form1.WindowState=0 ’恢复窗口模式
End If
End Sub



　　以上思路方法及在WINDOWS 95系统下在VB4.0环境下调试通过