国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 學(xué)院 > 開(kāi)發(fā)設(shè)計(jì) > 正文

在VisualBasic中實(shí)現(xiàn)啟動(dòng)程序時(shí)的閃爍屏幕

2019-11-18 17:36:24
字體：大 中 小
來(lái)源：轉(zhuǎn)載
供稿：網(wǎng)友
----在大量的應(yīng)用軟件中，軟件啟動(dòng)后一幅畫(huà)面有幾秒的信息顯示，列出產(chǎn)品、平臺(tái)、版本號(hào)和版權(quán)信息，稱(chēng)之為“啟動(dòng)程序時(shí)的閃爍屏幕”。在VisualBasic中是如何實(shí)現(xiàn)的呢？本文討論生成啟動(dòng)屏幕的一種方法，并使之多彩化。做到啟動(dòng)屏幕在桌面停留時(shí)，提示文字在桌面上“流動(dòng)”(如《東方快車(chē)》啟動(dòng)畫(huà)面)。同時(shí)也可以實(shí)現(xiàn)流動(dòng)文字的閃爍、變色等效果。如果在文字底部設(shè)置畫(huà)面，文字可以從畫(huà)面上流動(dòng)。待顯示完畢從畫(huà)面頂部消失后，可重新從畫(huà)面底部冉冉升起，循環(huán)出現(xiàn)。這樣設(shè)計(jì)后，可用在軟件說(shuō)明及著作者列表等等，以豐富的軟件的畫(huà)面顯示效果。

----取工程1，窗體Form1、Form2，設(shè)Form1為啟動(dòng)窗體。在Form2上新建Frame1、Timer1和Temer2，F(xiàn)rame1的Caption屬性設(shè)置成空值，以形成美觀的立體邊框。Timer1和Temer2的Enabled的屬性設(shè)為T(mén)rue。在Frame1上創(chuàng)建Picture1，調(diào)整Picture1為合適大小。將Form1的ScaleMode屬性設(shè)為1-Twip，F(xiàn)orm2的StartUpPosition屬性設(shè)為2-CenterScreen(中心對(duì)齊)。為了保證窗體Form2不顯示窗體最上面的“藍(lán)色說(shuō)明條”，將Caption屬性設(shè)為空值，ControlBox屬性設(shè)為False即可。在Picture1上創(chuàng)建標(biāo)簽Label1，調(diào)整BackStyle為0(透明)。在Label1的Caption屬性填寫(xiě)“作者：沈陽(yáng)姜雪小姐”一段文字，以便觀察。調(diào)整文字的大小、顏色。在窗體Form2上可隨意設(shè)置版面信息。

----Form1代碼如下：

I=I 1
IfI>50Then'窗體Form2停留時(shí)間，可以調(diào)整大小
UnloadMe
Form1.Show
Timer1.Enabled=False
Timer2.Enabled=False
EndIf
EndSub
SubColor(CtrlAsControl,color1AsInteger,
color2AsInteger,color3AsInteger)'選取顏色
IfVal(Ctrl.Tag)=color1Then
Ctrl.Tag=color2
ElseIfVal(Ctrl.Tag)=color2Then
Ctrl.Tag=color3
ElseIfVal(Ctrl.Tag)=color3Then
Ctrl.Tag=color1
Else
Ctrl.Tag=color1
EndIf
Ctrl.ForeColor=QBColor(Ctrl.Tag)
EndSub

PrivateSubTimer2_Timer()'控制文字移動(dòng)位置及速度
Step1=1800:Step2=4500:Step3=40
IfLabel1.Top<-Step1-Label1.TopThen
Label1.Top=Label1.Top Step2
EndIf
Label1.Top=Label1.Top-Step3
EndSub

----可以調(diào)整Timer1.Interval、Timer2.Interval值的大小，它們分別決定文字顏色變換速度及文字流動(dòng)速度；根據(jù)窗體和控件情況調(diào)整Step1、Step2為合適值；Step3為文字跳躍步長(zhǎng)；通過(guò)改變ColorLabel1，I，J，K語(yǔ)句中的I，J，K值來(lái)改變文字的變換顏色。在中文VisualBasic5.0下實(shí)現(xiàn)。->

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 吉首市| 巴里| 岱山县| 恩施市| 麟游县| 临泽县| 翼城县| 永和县| 双城市| 雅安市| 凯里市| 抚宁县| 霞浦县| 鄢陵县| 通化市| 舒兰市| 靖边县| 家居| 玉门市| 广宁县| 尤溪县| 西盟| 饶河县| 宜州市| 宁安市| 柳林县| 凌云县| 罗平县| 光泽县| 腾冲县| 昆山市| 平昌县| 天气| 元谋县| 闽侯县| 徐水县| 屯门区| 辰溪县| 石台县| 都安| 大宁县|