一個實用的VB屏幕程序

在VB5.0具有面向對象的程序設計思想及可視化的編程方式，可開發出各種多媒體應用程序，頗得軟件設計者青睐。筆者最近應用VB5.0編制了一程序，成功實現了“圖文並茂”的屏幕效果，即：屏幕出現用戶選定的一幅賞心悅目的圖像，在圖像下方有一行字幕緩緩地從屏幕右邊向左邊移動，全部文字移至左邊消失後，從右邊又平滑拖出字幕，字幕移動過程中既不影響圖像的整體效果又能對圖像進行提示、說明，使應用程序界面充滿“活性”。
　　現將設計的整個過程介紹如下：
　　(1)創建一個新目標文件(Project1)，並建立一個窗體Form1。
　　(2)在Form1上配置一個計時器控件Timer1、標簽控件Label1、圖像控件Picture1。
　　(3)各控件屬性設置：
　　Timer1的Enabled設置為“True”。
　　用Label1的Font設置屏幕下方循環移動的提示信息字體及大小，ForeColor設置字體顏色，AutoSize設置為True，BackStyle設置為“0－transparent”。
　　Picture1的AutoSize設置為False，Height設為5435，Width設為8235，Scalemode設置為“3－pixel”。
　　(4)程序代碼清單：
　　PrivateSubForm_Load()
　　′設置圖像控件Picture1屬性，在屏幕顯示圖像Picture1Picture=LoadPicture(″C:Pwin95Setup.bmp″)Picture1ForeColor=RGB(255，10，110)Picture1FontItalic=TruePicture1FontBold=TruePicture1Top=155Picture1Left=635′將標簽控件Label1的Caption屬性設置為屏幕下方循環移動的提示信息Label1Caption=″江西省黎川縣職業中專電腦室設計″Label1Left=WidthLabel1Top=5653Timer1Interval=375Form1Windowstate=2EndSubPrivateSubTimer1_Timer()IfLabel1Left<0－Label1WidthThenLabel1Left=WidthEndIfLabel1Left=Label1Left－255EndSub程序中的圖像及移動字幕可依自己喜好靈活設計，以達到最佳效果。若屏幕顯示多幅圖像，需設置好幾個圖像控件Picture的屏幕顯示位置，分別調用函數LoadPicture(″.bmp文件名″)即可。該程序設計也適用VB3.0、VB4.0。->