麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 學院 > 開發設計 > 正文

在VisualBasic中實現啟動程序時的閃爍屏幕

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

----取工程1，窗體Form1、Form2，設Form1為啟動窗體。在Form2上新建Frame1、Timer1和Temer2，Frame1的Caption屬性設置成空值，以形成美觀的立體邊框。Timer1和Temer2的Enabled的屬性設為True。在Frame1上創建Picture1，調整Picture1為合適大小。將Form1的ScaleMode屬性設為1-Twip，Form2的StartUpPosition屬性設為2-CenterScreen(中心對齊)。為了保證窗體Form2不顯示窗體最上面的“藍色說明條”，將Caption屬性設為空值，ControlBox屬性設為False即可。在Picture1上創建標簽Label1，調整BackStyle為0(透明)。在Label1的Caption屬性填寫“作者：沈陽姜雪小姐”一段文字，以便觀察。調整文字的大小、顏色。在窗體Form2上可隨意設置版面信息。

----Form1代碼如下：

I=I 1
IfI>50Then'窗體Form2停留時間，可以調整大小
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()'控制文字移動位置及速度
Step1=1800:Step2=4500:Step3=40
IfLabel1.Top<-Step1-Label1.TopThen
Label1.Top=Label1.Top Step2
EndIf
Label1.Top=Label1.Top-Step3
EndSub

----可以調整Timer1.Interval、Timer2.Interval值的大小，它們分別決定文字顏色變換速度及文字流動速度；根據窗體和控件情況調整Step1、Step2為合適值；Step3為文字跳躍步長；通過改變ColorLabel1，I，J，K語句中的I，J，K值來改變文字的變換顏色。在中文VisualBasic5.0下實現。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 在线免费观看毛片视频 | 久久久国产精品视频 | 欧美精品一区二区三区在线 | 神马久久蜜桃 | 欧美色大成网站www永久男同 | 天天色宗合 | 欧美性激情视频 | 羞羞草视频 | 中文字幕免费一区 | 国产一区精品在线观看 | 91在线视频观看 | 国产18成人免费视频 | 27xxoo无遮挡动态视频 | 爱操成人网 | 中文字幕在线免费播放 | 成人福利视频网站 | 欧美高清在线精品一区二区不卡 | h视频在线免费观看 | 欧美激情 在线播放 | 久国久产久精永久网页 | cosplay裸体福利写真 | 国产一区二区三区视频观看 | 91网页视频入口在线观看 | 色人久久 | 国产精品亚洲一区二区三区在线观看 | 亚洲一区免费观看 | 精品中文字幕久久久久四十五十骆 | 国产流白浆高潮在线观看 | 国产一级中文字幕 | 国产一级毛片国产 | 看毛片免费 | 牛牛视频在线 | 亚洲成人中文字幕在线 | 精品一区二区在线观看视频 | 黄色大片网 | 成人三级电影网 | 成人一级在线 | 成人福利视频导航 | 午夜丰满少妇高清毛片1000部 | 91www成人久久 | 嗯～啊～弄嗯～啊h高潮视频 |