經(jīng)過長時(shí)間學(xué)習(xí)VB.NET，于是和大家分享一下利用VB.NET隱藏控件制作單獨(dú)程序封面，看完本文你肯定有不少收獲，希望本文能教會你更多東西。多窗口編程存在著一定的復(fù)雜性，需要對多個(gè)窗體的·Frm文件進(jìn)行管理，編碼時(shí)還需要頻繁地在多個(gè)窗口間進(jìn)行轉(zhuǎn)換。實(shí)際上通過一個(gè)窗體也可以編制出類似的封面效果。基本原理就是在程序運(yùn)行時(shí)首先通過VISIBLE屬性全部VB.NET隱藏控件，然后在主窗體內(nèi)進(jìn)行程序封面設(shè)計(jì)和演示，延時(shí)一定時(shí)間再恢復(fù)所有控件的顯示，即達(dá)到了獨(dú)立程序封面的制作過程。由于窗體內(nèi)的控件很多，逐一隱藏或顯示非常繁瑣，可采用容器控件簡化操作過程，即把控件全部放到Frame1等控件上，這樣只要執(zhí)行Frame1.Visible=0，即可使其上面的所有隱藏VB.NET隱藏控件起來。

#T#c由于程序只涉及一個(gè)窗體，程序設(shè)計(jì)的大部分工作只是編碼過程，所以不再分步介紹。在窗體Form1中安放一個(gè)時(shí)間控件Timer1 和一個(gè)容器控件Frame1,再在Frame1上安放一個(gè)命令按鈕Command1，具體程序設(shè)計(jì)時(shí)可把所有主程序工作控件放在Frame1上；之后把下面的代碼填入相應(yīng)的事件之中即可完成全部程序設(shè)計(jì)工作。運(yùn)行此程序后首先在全屏幕窗體內(nèi)顯示圖像，并從左上角開始逐漸放大字符串“程序封面演示”，放大過程中顏色發(fā)生平滑變化，形成美麗的拖尾效果，連續(xù)顯示5次后自動關(guān)閉封面，返回主程序窗口，同樣立即關(guān)閉程序封面，返回主程序窗口，單擊主窗體中的命令按鈕退出程序。

’定義全程變量  
Dim i ,j As Integer  
’退出程序按鈕  
Private Sub Command1-Click ()  
End  
End Sub  
’單擊窗體關(guān)閉封面  
Private Sub Form-Click ()  
Frame1.Visible =1 ’恢復(fù)容器控件  
timer1.Enabled =False ’關(guān)閉時(shí)間控件  
Form1.WindowState =0 ’恢復(fù)缺省窗口模式  
End Sub  
’準(zhǔn)備工作  
Private Sub Form -Load ()  
Form1.WindowState =2 ’窗口最大化  
Frame1.Width =Form1.Width ’調(diào)整容器控件尺寸  
Frame1.Height =Form1.Height  
Frame1.Top =0 ’調(diào)整容器控件位置  
Frame1.Left =0 
Frame1.Visible =0 ’隱藏容器控件  
timer1.Interval =10 ’置時(shí)間頻率  
Form1.Picture =LoadPicture ("c:\windows\setup.bmp") ’裝入圖像  
Form1.ScaleMode=3 ’置坐標(biāo)刻度  
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 ’連續(xù)改變坐標(biāo)  
Form1.Current Y=i 
Form1.Print stringg ’顯示字符串  
ii = i +1  
If i >72 Then ’放大到72號字  
jj =j +1 ’循環(huán)計(jì)數(shù)  
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 ’動畫計(jì)數(shù)  
Frame1.Visible =1 ’顯示容器控件  
timer1.Enabled =False ’關(guān)閉時(shí)間控件  
Form1.WindowState=0 ’恢復(fù)窗口模式  
End If  
End Sub 

以上方法及程序在WINDOWS 95系統(tǒng)下，在VB4.0環(huán)境下調(diào)試通過。