建站
咨詢
售后
建站咨詢
新聞中心
經(jīng)過(guò)長(zhǎng)時(shí)間學(xué)習(xí)VB.NET，于是和大家分享一下利用VB.NET隱藏控件制作單獨(dú)程序封面，看完本文你肯定有不少收獲，希望本文能教會(huì)你更多東西。多窗口編程存在著一定的復(fù)雜性，需要對(duì)多個(gè)窗體的·Frm文件進(jìn)行管理，編碼時(shí)還需要頻繁地在多個(gè)窗口間進(jìn)行轉(zhuǎn)換。實(shí)際上通過(guò)一個(gè)窗體也可以編制出類似的封面效果?；驹砭褪窃诔绦蜻\(yùn)行時(shí)首先通過(guò)VISIBLE屬性全部VB.NET隱藏控件，然后在主窗體內(nèi)進(jìn)行程序封面設(shè)計(jì)和演示，延時(shí)一定時(shí)間再恢復(fù)所有控件的顯示，即達(dá)到了獨(dú)立程序封面的制作過(guò)程。由于窗體內(nèi)的控件很多，逐一隱藏或顯示非常繁瑣，可采用容器控件簡(jiǎn)化操作過(guò)程，即把控件全部放到Frame1等控件上，這樣只要執(zhí)行Frame1.Visible=0，即可使其上面的所有隱藏VB.NET隱藏控件起來(lái)。
成都創(chuàng)新互聯(lián)公司不只是一家網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司；我們對(duì)營(yíng)銷、技術(shù)、服務(wù)都有自己獨(dú)特見(jiàn)解，公司采取“創(chuàng)意+綜合+營(yíng)銷”一體化的方式為您提供更專業(yè)的服務(wù)！我們經(jīng)歷的每一步也許不一定是最完美的，但每一步都有值得深思的意義。我們珍視每一份信任，關(guān)注我們的成都做網(wǎng)站、網(wǎng)站設(shè)計(jì)質(zhì)量和服務(wù)品質(zhì)，在得到用戶滿意的同時(shí)，也能得到同行業(yè)的專業(yè)認(rèn)可，能夠?yàn)樾袠I(yè)創(chuàng)新發(fā)展助力。未來(lái)將繼續(xù)專注于技術(shù)創(chuàng)新，服務(wù)升級(jí)，滿足企業(yè)一站式成都全網(wǎng)營(yíng)銷推廣需求，讓再小的成都品牌網(wǎng)站建設(shè)也能產(chǎn)生價(jià)值！
#T#c由于程序只涉及一個(gè)窗體，程序設(shè)計(jì)的大部分工作只是編碼過(guò)程，所以不再分步介紹。在窗體Form1中安放一個(gè)時(shí)間控件Timer1 和一個(gè)容器控件Frame1,再在Frame1上安放一個(gè)命令按鈕Command1，具體程序設(shè)計(jì)時(shí)可把所有主程序工作控件放在Frame1上；之后把下面的代碼填入相應(yīng)的事件之中即可完成全部程序設(shè)計(jì)工作。運(yùn)行此程序后首先在全屏幕窗體內(nèi)顯示圖像，并從左上角開始逐漸放大字符串“程序封面演示”，放大過(guò)程中顏色發(fā)生平滑變化，形成美麗的拖尾效果，連續(xù)顯示5次后自動(dòng)關(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
- ’封面制作 （動(dòng)畫演示）
- Private Sub timer1-Timer ()
- Strr ="程序封面演示"
- With Form1 ’透明顯示
- .Font.Transparent =True
- .Font.Size = i + 1 ’放大字號(hào)
- .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號(hào)字
- 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 ’動(dòng)畫計(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)試通過(guò)。
文章名稱：全面實(shí)現(xiàn)利用VB.NET隱藏控件制作單獨(dú)程序封面
轉(zhuǎn)載注明：http://www.dlmjj.cn/article/djdjsoo.html
