小说改编的网页游戏,欢乐颂第一季,好看的言情小说

VisualBasic5.0因其可視化的編程方式越來(lái)越受到編程人員的青睞，我們可以使用VisualBasic5.0編寫(xiě)擁有漂亮的界面、動(dòng)聽(tīng)的音樂(lè)的多媒體軟件。但在實(shí)際的編程過(guò)程中可能會(huì)遇到一些難以解決的問(wèn)題，以下是筆者在多媒體創(chuàng)作中的幾點(diǎn)經(jīng)驗(yàn)，或許能豐富一下你的多媒體配件箱。

一、背景音樂(lè)

在使用VisualBasic5.0編制應(yīng)用程序時(shí)，我們可以利用OLE嵌套的方法很容易的為一個(gè)應(yīng)用程序加入背景音樂(lè)。

進(jìn)入VisualBasic5.0系統(tǒng)環(huán)境，建立一個(gè)新的表單。點(diǎn)擊‘表單控制'上的‘OLE容器'，并將其拖至FORM中任意位置。在‘插入對(duì)象'窗口中選擇‘媒體剪輯'，選中‘以圖標(biāo)顯示'欄（必須選中此欄，否則無(wú)法將其隱藏起來(lái)），按‘確認(rèn)'鍵退出。
在‘媒體播放機(jī)'窗口中，選擇‘文件'、‘打開(kāi)'，從文件列表中選擇想要作為背景音樂(lè)的聲音文件。由于音樂(lè)文件一般不是很長(zhǎng)，所以要求循環(huán)播放，可以通過(guò)設(shè)置‘媒體播放機(jī)'重復(fù)播放來(lái)實(shí)現(xiàn)。然后選擇‘編輯'菜單中的‘選項(xiàng)'，在選項(xiàng)窗口中選中‘重復(fù)播放'和去掉‘重放的控制條'前的選中標(biāo)記，確認(rèn)后退出。
回到VisualBasic5.0系統(tǒng)環(huán)境，按下鼠標(biāo)右鍵，在彈出菜單中點(diǎn)擊‘屬性'欄調(diào)出屬性窗口。選擇‘Ole1'對(duì)象，將它的‘Visible'屬性設(shè)為.F.，‘Autosize'屬性設(shè)為.F.。再按下鼠標(biāo)右鍵，在彈出菜單中點(diǎn)擊‘代碼'欄進(jìn)入過(guò)程書(shū)寫(xiě)窗口，編寫(xiě)‘Form1'對(duì)象的‘Load'過(guò)程：

二、透明效果立體按鈕

在制作多媒體軟件時(shí)有時(shí)需要有透明效果的立體按鈕，我們可以利用標(biāo)簽（LABEL）與形狀（SHAPE）的組合來(lái)完成這一設(shè)計(jì)。

進(jìn)入VisualBasic5.0系統(tǒng)環(huán)境，建立一個(gè)新的表單（FORM1），并設(shè)置FORM1的Picture屬性為一個(gè)WINDOWS位圖文件（.BMP）。
鼠標(biāo)點(diǎn)擊“表單控制欄”中的“形狀”，并在FORM1上拉出一個(gè)矩形方框（SHAPE1）。以同樣方法創(chuàng)建SHAPE2、SHAPE3和SHAPE4。在屬性窗口中對(duì)這四個(gè)SHAPE的屬性進(jìn)行如下設(shè)置：
SHAPE1：

BorderColor=&HFFFFFF

BorderWidth=3Left=2160

Top=2040Width=1100

SHAPE2：

BorderColor=&H80000008

BorderWidth=3Left=2160

Top=2520Width=1100

SHAPE3：

BorderColor=&HFFFFFF

BorderWidth=3Left=2160

Top=2040Height=500

SHAPE4：

BorderColor=&H80000008

BorderWidth=3Left=3240

Top=2040Height=500

鼠標(biāo)點(diǎn)擊“表單控制欄”中的“標(biāo)簽”，并在FORM1上拉出一個(gè)矩形方框（LABEL1），調(diào)整其大小以剛好嵌入四個(gè)SHAPE中。設(shè)置它的屬性Caption為定制的按鈕的標(biāo)題，Alignment為2，Backstyle為0。
雙擊LABEL1，編寫(xiě)LABEL1的MouseDown過(guò)程和MouseUp過(guò)程如下：
PrivateSubLabel1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

Shape1.BorderColor=&H80000008

Shape3.BorderColor=&H80000008

Shape2.BorderColor=&HFFFFFF

Shape4.BorderColor=&HFFFFFF

Label1.Top=Label1.Top 10

EndSub

PrivateSubLabel1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

Shape1.BorderColor=&HFFFFFF

Shape3.BorderColor=&HFFFFFF

Shape2.BorderColor=&H80000008

Shape4.BorderColor=&H80000008

Label1.Top=Label1.Top-10

EndSub

按‘F5'鍵運(yùn)行即可。
三、移動(dòng)字幕

在電視上我們時(shí)常會(huì)看到屏幕下方會(huì)有一行提示文字或廣告信息由右至左移動(dòng)，這樣既起了提示作用又不會(huì)破壞整體屏幕。在VisualBasic5.0中我們同樣可以完成這種設(shè)計(jì)。

進(jìn)入VisualBasic5.0系統(tǒng)環(huán)境，建立一個(gè)新的表單（FORM1），并設(shè)置FORM1的Backcolor屬性為一個(gè)RGB(192,192,192)。
鼠標(biāo)點(diǎn)擊“表單控制欄”中的“標(biāo)簽”，并在FORM1上拉出一個(gè)矩形方框（LABEL1）。設(shè)置它的屬性Caption為“活動(dòng)字幕演示”，Autosize為.T.，Backstyle為0，F(xiàn)orecolor為RGB（128,128,128），F(xiàn)ontname為“隸書(shū)體”,Fontbold為.T.，F(xiàn)ontsize為36。
鼠標(biāo)點(diǎn)擊LABEL1，按CTRL C（拷貝）鍵，再按CTRL V（粘貼）鍵，在FORM1上創(chuàng)建另一個(gè)標(biāo)題與LABEL1相同的標(biāo)簽（LABEL2），設(shè)置它的Forecolor屬性為RGB（255，255，0）。調(diào)整LABEL2的位置，使其剛好比LABEL1高一些，使LABEL1看起來(lái)象LABEL2的陰影。
鼠標(biāo)點(diǎn)擊“表單控制欄”中的“計(jì)時(shí)器”，再在FORM1上點(diǎn)擊一下，即可在FORM1上創(chuàng)建一個(gè)計(jì)時(shí)器（TIMER1）。設(shè)置它的屬性Interval為200。
雙擊FORM1，編寫(xiě)FORM1的Load過(guò)程如下：
PrivateSubForm_Load()

Label1.Left=Width 50

Label2.Left=Width

EndSub

6、雙擊TIMER1，編寫(xiě)TIMER1的Timer過(guò)程如下：

PrivateSubTimer1_Timer()

IfLabel1.Left<0-Label1.WidthThen

Label1.Left=Width 50

Label2.Left=Width

EndIf

Label1.Left=Label1.Left-500

Label2.Left=Label2.Left-500

EndSub

7、按‘F5'鍵運(yùn)行即可見(jiàn)到字幕由屏幕右方出現(xiàn)，移至屏幕最左方消失。

四、文字的淡入淡出

很多游戲的開(kāi)始時(shí)的解說(shuō)字幕和爆機(jī)后的創(chuàng)作人員表都使用了字符的淡入淡出方式，在VisualBasic5.0中同樣可以制作有淡入淡出效果的文字。

進(jìn)入Visual　Basic5.0系統(tǒng)環(huán)境，建立一個(gè)新的表單（FORM1）。
鼠標(biāo)點(diǎn)擊“表單控制欄”中的“標(biāo)簽”，并在FORM1上拉出一個(gè)矩形方框（LABEL1）。設(shè)置它的屬性Caption為“文字的淡入淡出”，Autosize為.T.，Backstyle為0，文字顏色為RGB（0,128,128），字體為“隸書(shū)體”,Fontbold為.T.，字體大小為36。
鼠標(biāo)點(diǎn)擊“表單控制欄”中的“計(jì)時(shí)器”，再在FORM1上點(diǎn)擊一下，即可在FORM1上創(chuàng)建一個(gè)計(jì)時(shí)器（TIMER1）。設(shè)置它的屬性Interval為100，Enabled屬性為.F.。
鼠標(biāo)點(diǎn)擊“表單控制欄”中的“命令按鈕”，并在FORM1上拉出一個(gè)矩形方框（COMMAND1）。設(shè)置它的屬性Caption為“開(kāi)始”。
雙擊COMMAND1，編寫(xiě)COMMAND1的Click過(guò)程如下：
PrivateSubCommand1_Click()

IfTimer1.Enabled=FalseThen

Timer1.Enabled=True

EndIf

EndSub

雙擊FORM1，編寫(xiě)FORM1的Activate過(guò)程如下：
BackColor=RGB(0,128,128)

I=0

7、雙擊TIMER1，編寫(xiě)TIMER1的Timer過(guò)程如下：

PrivateSubTimer1_Timer()

I=I 10

IfI>=255*2Then

Timer1.Enabled=False

I=0

EndIf

IfI>=255Then

Label1.ForeColor=RGB(255*2-I,128,128)

Else

Label1.ForeColor=RGB(I,128,128)

EndIf

EndSub

按‘F5'鍵運(yùn)行。用鼠標(biāo)點(diǎn)“開(kāi)始”按鈕，可以看到標(biāo)題由背景色漸變?yōu)榧t色，然后由紅色漸變?yōu)楸尘吧?br>
以上程序均在VisualBasic5.0及WINDOWS95中運(yùn)行通過(guò)。->

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

VisualBasic5.0多媒體創(chuàng)作技巧