VisualBasic5.0因其可視化的程式設計方式越來越受到程式設計人員的青睞,我們可以使用VisualBasic5.0編寫擁有漂亮的介面、動聽的音樂的多媒體軟體。但在實際的程式設計過程中可能會遇到一些難以解決的問題,以下是筆者在多媒體創作中的幾點經驗,或許能豐富一下你的多媒體配件箱。
一、背景音樂
在使用VisualBasic5.0編制應用程式時,我們可以利用OLE嵌套的方法很容易的為一個應用程式加入背景音樂。
進入VisualBasic5.0系統環境,建立一個新的表單。點選'表單控制'上的'OLE容器',並將其拖曳至FORM中任意位置。在'插入物件'視窗中選擇'媒體剪輯',選取'以圖示顯示'欄(必須選取此欄,否則無法將其隱藏起來),按'確認'鍵退出。
在'媒體播放機'視窗中,選擇'檔案'、'開啟',從檔案清單中選擇想要作為背景音樂的聲音檔案。由於音樂檔案一般不是很長,所以要求循環播放,可以透過設定'媒體播放機'重複播放來實現。然後選擇'編輯'選單中的'選項',在選項視窗中選取'重複播放'和去掉'重播的控制條'前的選取標記,確認後退出。
回到VisualBasic5.0系統環境,按下滑鼠右鍵,在彈出式選單中點選'屬性'欄調出屬性視窗。選擇'Ole1'對象,將它的'Visible'屬性設為.F.,'Autosize'屬性設為.F.。再按下滑鼠右鍵,在彈出式選單中點選'代碼'欄進入過程書寫窗口,編寫'Form1'物件的'Load'過程:
PRivateSubForm_Load()
OLE1.DoVerb(0)
EndSub
4、按'F5'鍵運行即可。
二、透明效果立體按鈕
在製作多媒體軟體時有時需要有透明效果的立體按鈕,我們可以利用標籤(LABEL)與形狀(SHAPE)的組合來完成這項設計。
進入VisualBasic5.0系統環境,建立一個新的表單(FORM1),並設定FORM1的Picture屬性為一個WINDOWS位圖檔案(.BMP)。
滑鼠點擊“表單控制列”中的“形狀”,並在FORM1上拉出一個矩形方框(SHAPE1)。以同樣方法建立SHAPE2、SHAPE3和SHAPE4。在屬性視窗中對這四個SHAPE的屬性進行如下設定:
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
滑鼠點擊“表單控制列”中的“標籤”,並在FORM1上拉出一個矩形方框(LABEL1),調整其大小以剛好嵌入四個SHAPE中。設定它的屬性Caption為自訂的按鈕的標題,Alignment為2,Backstyle為0。
雙擊LABEL1,寫出LABEL1的MouseDown過程和MouseUp過程如下:
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'鍵運轉即可。
三、移動字幕
在電視上我們時常會看到螢幕下方會有一行提示文字或廣告訊息由右至左移動,這樣既起了提示作用又不會破壞整體螢幕。在VisualBasic5.0我們同樣可以完成這個設計。
進入VisualBasic5.0系統環境,建立一個新的表單(FORM1),設定FORM1的Backcolor屬性為一個RGB(192,192,192)。
滑鼠點擊“表單控制列”中的“標籤”,並在FORM1上拉出一個矩形方框(LABEL1)。設定它的屬性Caption為“活動字幕示範”,Autosize為.T.,Backstyle為0,Forecolor為RGB(128,128,128),Fontname為“隸書體”,Fontbold為.T.,Fontsize為36。
滑鼠點選LABEL1,按CTRL C(拷貝)鍵,再按CTRL V(貼上)鍵,在FORM1上建立另一個標題與LABEL1相同的標籤(LABEL2),設定它的Forecolor屬性為RGB(255,255,0 )。調整LABEL2的位置,使其剛好比LABEL1高一些,使LABEL1看起來像LABEL2的陰影。
滑鼠點擊“表單控制欄”中的“計時器”,再在FORM1上點擊一下,即可在FORM1上建立計時器(TIMER1)。設定它的屬性Interval為200。
雙擊FORM1,寫出FORM1的Load過程如下:
PrivateSubForm_Load()
Label1.Left=Width 50
Label2.Left=Width
EndSub
6.雙擊TIMER1,寫出TIMER1的Timer過程如下:
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'鍵運行即可見到字幕由螢幕右邊出現,移至螢幕最左方消失。
四、文字的淡入淡出
許多遊戲的開始時的解說字幕和爆機後的創作人員表都使用了字符的淡入淡出方式,在VisualBasic5.0中同樣可以製作有淡入淡出效果的文字。
進入Visual Basic5.0系統環境,建立一個新的表單(FORM1)。
滑鼠點擊“表單控制列”中的“標籤”,並在FORM1上拉出一個矩形方框(LABEL1)。設定它的屬性Caption為“文字的淡入淡出”,Autosize為.T.,Backstyle為0,文字顏色為RGB(0,128,128),字體為“隸書體”,Fontbold為.T.,字體大小為36。
滑鼠點擊“表單控制欄”中的“計時器”,再在FORM1上點擊一下,即可在FORM1上建立計時器(TIMER1)。設定它的屬性Interval為100,Enabled屬性為.F.。
滑鼠點擊“表單控制列”中的“命令按鈕”,並在FORM1上拉出一個矩形方框(COMMAND1)。設定它的屬性Caption為「開始」。
雙擊COMMAND1,寫出COMMAND1的Click過程如下:
PrivateSubCommand1_Click()
IfTimer1.Enabled=FalseThen
Timer1.Enabled=True
EndIf
EndSub
雙擊FORM1,編寫FORM1的Activate流程如下:
BackColor=RGB(0,128,128)
I=0
7.雙擊TIMER1,寫出TIMER1的Timer過程如下:
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'鍵運轉。用滑鼠點「開始」按鈕,可以看到標題由背景色漸變為紅色,然後由紅色漸變為背景色。
以上程式均在VisualBasic5.0及WINDOWS95中運行通過。 ->